ASP中if語(yǔ)句、select 、while循環(huán)的使用方法

來(lái)源：本站原創(chuàng)|時(shí)間：2020-01-11|欄目：ASP編程|點(diǎn)擊：次

<%@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><%="頁(yè)面標(biāo)題"%></title>
</head>

<body>
<%="多條件判斷"%>
<%
response.Write("<br />")
response.Write("利用response對(duì)象的Write方法輸出地內(nèi)容！")

%>
<br />
<%

dim a,b
a=200
b=300
response.Write("兩數(shù)之和為：")
response.Write(a+b)
response.Write("<br />")
if a=100 then
response.Write("a=100,第一個(gè)條件滿足。")
elseif a=200 then
response.Write("a=200,第二個(gè)條件滿足。")
elseif a=300 then
response.Write("a=300,第三個(gè)條件滿足。")
else
response.Write("三個(gè)條件都不滿足。")
end if
%>
<%
response.Write("<br />")
dim textnumber
textnumber=200
select case textnumber
 case 100
 response.Write("數(shù)值為100， 條件滿足！")
 case 200
 response.Write("數(shù)值為200，條件滿足 ！")
 case 300
 response.Write("數(shù)值為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以內(nèi)所有整數(shù)的和為：")
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之內(nèi)的所有整數(shù)之和為：")
response.Write(s)
response.Write("<br/>")
response.Write("w的值是：")
response.Write(w)
%>

</body>
</html>

具體的介紹就不多說(shuō)了，大家看下實(shí)例就可以了

考慮后期的便于閱讀，我們小編再為大家整理一下

asp if語(yǔ)句

①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 語(yǔ)句：
在條件為 true 時(shí)，執(zhí)行某段代碼
選擇兩段代碼之一來(lái)執(zhí)行時(shí)
如果需要在條件為 true 時(shí)只執(zhí)行一行語(yǔ)句，可以把代碼寫(xiě)為一行：
if i=10 Then msgbox "Hello"
在上面的代碼中，沒(méi)有 .else.. 語(yǔ)句。我們僅僅讓代碼在條件為 true 時(shí)執(zhí)行一項(xiàng)操作（當(dāng) i 為 10 時(shí)）。
假如我們需要在條件為 true 時(shí)執(zhí)行不止一條語(yǔ)句，那么就必須在一行寫(xiě)一條語(yǔ)句，然后使用關(guān)鍵詞 "End If" 來(lái)結(jié)束這個(gè)語(yǔ)句：

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

在上面的代碼中，同樣沒(méi)有 .else.. 語(yǔ)句。我們僅僅讓代碼在條件為 true 時(shí)執(zhí)行了多項(xiàng)操作。
假如我們希望在條件為 true 時(shí)執(zhí)行某條語(yǔ)句，并當(dāng)條件不為 true 時(shí)執(zhí)行另一條語(yǔ)句，就必須添加關(guān)鍵詞 "Else"：

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

當(dāng)條件為 true 時(shí)會(huì)執(zhí)行第一段代碼，當(dāng)條件不成立時(shí)執(zhí)行第二段代碼（當(dāng) i 不等于 10 時(shí)）。
If....Then.....Elseif
假如你希望選擇多套代碼之一來(lái)執(zhí)行，可以使用if...then...elseif語(yǔ)句：

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
假如你希望選擇多套代碼之一來(lái)執(zhí)行，可以使用 SELECT 語(yǔ)句：

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

以上代碼的工作原理：首先，我們需要一個(gè)簡(jiǎn)單的表達(dá)式（常常是一個(gè)變量），并且這個(gè)表達(dá)式會(huì)被做一次求值運(yùn)算。然后，表達(dá)式的值會(huì)與每個(gè) case 中的值作比較，如果匹配，被匹配的 case 所對(duì)應(yīng)的代碼會(huì)被執(zhí)行。

上一篇：ASP常用源代碼的總結(jié)（下）

欄目：ASP編程

下一篇：asp文件用什么軟件編輯

本文標(biāo)題：ASP中if語(yǔ)句、select 、while循環(huán)的使用方法

本文地址：http://mengdiqiu.com.cn/a1/ASPbiancheng/11368.html

更多ASP編程