%@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è)條件滿(mǎn)足。")
elseif a=200 then
response.Write("a=200,第二個(gè)條件滿(mǎn)足。")
elseif a=300 then
response.Write("a=300,第三個(gè)條件滿(mǎn)足。")
else
response.Write("三個(gè)條件都不滿(mǎn)足。")
end if
%>
%
response.Write("br />")
dim textnumber
textnumber=200
select case textnumber
case 100
response.Write("數(shù)值為100， 條件滿(mǎn)足！")
case 200
response.Write("數(shù)值為200，條件滿(mǎn)足 ！")
case 300
response.Write("數(shù)值為300 ，條件滿(mǎn)足！")
case else
response.Write("以上條件，條件都不滿(mǎn)足！")
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以?xún)?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
B
end if
③if A then
B
else
C
end if
④if A then
B
elseif C then
D
end if
⑤if A then
B
elseif C then
D
else
E
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í)行。
