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)

%>

下一篇：asp实现限制一个ip只能访问一次的方法