论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库Asp.net  | Flash AS
当前位置 > 文字教程 > asp教程
Tag:入门,文摘,实例,技巧,iis,表单,对象,上传,数据库,记录集,session,cookies,存储过程,注入,分页,安全,优化,xmlhttp,fso,jmail,application,防盗链,stream,组件,md5,乱码,缓存,加密,验证码,算法,ubb,正则表达式,水印,,日志,压缩,url重写,控件,函数,破解,触发器,socket,ADO,初学,聊天室,留言本,视频教程

ASP入门教程-单条件选择结构

文章类别:asp | 发表日期:2008-8-9 16:11:54

  单条件选择结构是最常用的双分支选择结构,其特点是:所给定条件(条件表达式)的值如果为真,则执行x1块,否则,就执行x2块。

  1、行 If 语句

  其语法格式为:

if<条件> then [ <语句1> ][Else <语句2> ]

  简单实例:

<html>
<head>
<title>Msgbox()函数的应用</title>
</head>
<body>
<script language="VBScript" for="button1" event="onClick">
dim myWeek,a
myWeek=WeekDay(Now)-1
if myWeek=0 then a="要好好休息哟。" else a="努力工作呀!"
msgbox "今天是星期" & myWeek & "," & a
</script>
<center><input type="button" name="button1" value="请查看今天是星期几"></center>
</html>

  说明:

当程序运行到 If 语句时,首先测试变量 myWeek 是不是为零,如果为零,则执行 Then 后的语句(a="要好好休息哟。"),否则执行 Else 后的子句(a="要努力工作呀!")。 在执行完 Then 或 Else 之后的语句的,会从 End If 之后的语句继续执行。 Else 子句是可选的。 可以在(<语句1>或<语句2>中使用冒号(:)将多个命令组合成一条语句。

  2、块 If 语句

  虽然行If语句使用方便,可以满足许多选择结构程序设计的需要,但是当 Then 部分和 Else 部分包含较多内容时,在一行中就难以容纳所有命令。为此,VBScript 提供了块 If 语句,将一个选择结构用多个语句行来实现。块 If 语句又称多行 If 语句,其语法结构为:

    if <条件> Then
      [语句列1]
    [Else
      [语句列2]]
    End if

  简单实例:

<html>
<head>
<title>块If语句的应用</title>
</head>
<body>
<script language="VBScript" for="button1" event="onClick">
dim a,b
a=Text1.value
if Not IsNumeric(a) then
Msgbox "您输入的不是数值数据"
Else
b="您输入的数据是:" & a &",它的平方根是:" & sqr(a)
Msgbox b,,"求一个数的平方根"
End if
</script>
<center>请输入数值数据:<input type="text" name="text1" size="10">
<input type="button" name="button1" value="求一个数的平方根"></center>
</html>

  3、If语句的嵌套

  If 语句可以嵌套使用,即在If 语句的操作块(语句列1 或语句列2 )中使用If语句。

  简单实例:铁路托运行李,从甲地到乙地,规定每张客标托运费计算方法是:行李重量不超过50公斤时,每公斤0.5元,超过50公斤超过100公斤时,其超过部分每公斤1.5元,超过100公斤时,其超过部分每公斤2元。请计算并输出托运的费用。

  分析:设行李重量为W公斤,应付运费为X元,则运费公式为:

  当W <=50 时,则 X=0.5*W

  当 50 < W <=100 时,则 X=05*50+1.5*(W-50)

  当 W > 100 时,则X=0.5*50+1.5*50+(W-100)

<html>
<head><title>托运费计算</title></head>
<body>
请输入行李重量:<input name="text2" TYPE="TEXT" size="10">&nbsp;kg&nbsp;&nbsp;
<input type="button" name="button3" value="计算运费">
<script language="VBScript" for="button3" event="onClick">
w=text2.value
if not isNumeric(w) then
msgbox "您输入的不是数值数据"
else
if w <=50 then
x=0.5 * w
else
if w<=100 then
x=0.5*50+1.5*(w-50)
else
x=0.5*50+1.5*50+2*(w-100)
end if
end if
Msgbox "行李的托运费是:"& x & "元",,"计算行李费"
end if
</script>
</body>
</html>

  

视频教程列表
文章教程搜索
 
Asp推荐教程
Asp热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058