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

时间:2021-04-16

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

<%@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>

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章