ASP中if语句、select 、while循环的使用方法

站长资源 2024/11/24 佚名

12 1538 12

DDR爱好者之家 Design By 杰米

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%="页面标题"%></title>
</head>

<body>
<%="多条件判断"%>
<%
response.Write("<br />")
response.Write("利用response对象的Write方法输出地内容！")

%>
<br />
<%

dim a,b
a=200
b=300
response.Write("两数之和为：")
response.Write(a+b)
response.Write("<br />")
if a=100 then
response.Write("a=100,第一个条件满足。")
elseif a=200 then
response.Write("a=200,第二个条件满足。")
elseif a=300 then
response.Write("a=300,第三个条件满足。")
else
response.Write("三个条件都不满足。")
end if
%>
<%
response.Write("<br />")
dim textnumber
textnumber=200
select case textnumber
 case 100
 response.Write("数值为100， 条件满足！")
 case 200
 response.Write("数值为200，条件满足 ！")
 case 300
 response.Write("数值为300 ，条件满足！")
 case else
 response.Write("以上条件，条件都不满足！")
 end select


%>
<%
response.Write("<br />")
dim i,sum
i=0
sum=0
 while i<=100
 sum=sum+i
 i=i+1
wend
response.Write("100以内所有整数的和为：")
response.Write(sum)
%>
<%
response.Write("<br />")
dim w,s
w=0
s=0
do 
s=s+w
w=w+1
loop while w<=100
response.Write("100之内的所有整数之和为：")
response.Write(s)
response.Write("<br/>")
response.Write("w的值是：")
response.Write(w)
%>

</body>
</html>

具体的介绍就不多说了，大家看下实例就可以了

考虑后期的便于阅读，小编再为大家整理一下

asp if语句

①if A then B

②if A then

end if

③if A then

else

end if

④if A then

elseif C then

end if

⑤if A then

elseif C then

else

end if

If....Then.....Else

在下面的情况中，您可以使用 If...Then...Else 语句：
在条件为 true 时，执行某段代码
选择两段代码之一来执行时
如果需要在条件为 true 时只执行一行语句，可以把代码写为一行：
if i=10 Then msgbox "Hello"
在上面的代码中，没有 .else.. 语句。我们仅仅让代码在条件为 true 时执行一项操作（当 i 为 10 时）。
假如我们需要在条件为 true 时执行不止一条语句，那么就必须在一行写一条语句，然后使用关键词 "End If" 来结束这个语句：

if i=10 Then
  msgbox "Hello"
  i = i+1
end If

在上面的代码中，同样没有 .else.. 语句。我们仅仅让代码在条件为 true 时执行了多项操作。
假如我们希望在条件为 true 时执行某条语句，并当条件不为 true 时执行另一条语句，就必须添加关键词 "Else"：

if i=10 then
  msgbox "Hello"
else
  msgbox "Goodbye"
end If

当条件为 true 时会执行第一段代码，当条件不成立时执行第二段代码（当 i 不等于 10 时）。
If....Then.....Elseif
假如你希望选择多套代码之一来执行，可以使用if...then...elseif语句：

if payment="Cash" then
  msgbox "You are going to pay cash!"
 elseif payment="Visa" then
  msgbox "You are going to pay with visa."
 elseif payment="AmEx" then
  msgbox "You are going to pay with American Express."
 else
  msgbox "Unknown method of payment."
end If

Select Case
假如你希望选择多套代码之一来执行，可以使用 SELECT 语句：

select case payment
 case "Cash"
  msgbox "You are going to pay cash"
 case "Visa"
  msgbox "You are going to pay with visa"
 case "AmEx"
  msgbox "You are going to pay with American Express"
 case Else
  msgbox "Unknown method of payment"
end select

以上代码的工作原理：首先，我们需要一个简单的表达式（常常是一个变量），并且这个表达式会被做一次求值运算。然后，表达式的值会与每个 case 中的值作比较，如果匹配，被匹配的 case 所对应的代码会被执行。

if,select,while

DDR爱好者之家 Design By 杰米

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！

DDR爱好者之家 Design By 杰米

评论“ASP中if语句、select 、while循环的使用方法”

暂无评论...

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。

艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。
《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒经典版》的玩家都可以获得奖励。

更新日志

2024年11月24日

ASP中if语句、select 、while循环的使用方法

ASP实现多行注释的方法(dw)

ASP中用select case代替其他语言中的switch case, default用case else

评论“ASP中if语句、select 、while循环的使用方法”

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

更新日志

友情链接