select case 是一個條件選擇他的好處是唯出口,很多時間他大優於if else哦。
<script language="vbscript" runat="server">
sub select1()
dim varweek '聲明變數
varweek=weekday(now()) '擷取代表今天是星期幾的整數
response.write("<center>") '中間顯示
response.write("<font size=10>") '顯示的字型大小
select case varweek 'select case 條件選擇語句
case 1 'varweek的值為1
response.write("今天星期日")
case 2 'varweek的值為1
response.write("今天星期一")
case 3 'varweek的值為2
response.write("今天星期二")
case 4 'varweek的值為3
response.write("今天星期三")
case 5 'varweek的值為4
response.write("今天星期四")
case 6 'varweek的值為5
response.write("今天星期五")
case 7 'varweek的值為6
response.write("今天星期六")
end select 'select case 語句結束標誌
response.write("</font>")
end sub
</script>
<html>
<head>
<title>example18</title>
</head>
<body>
<%
select1
%>
</body>
</html>
select語句的文法如下:
select case expression
case label_1
statements_1
case label_2
statements_2
...
case else
statements_n
end select
更多詳細內容請查看:http://www.111cn.net/asp/2/0ad10f01d7e31bbfce58e3700b98c897.htm
<%
sub getstar(hybuycount)
select case hybuycount
case 1
response.write"<img src=img/1.gif>"
case 3
response.write"<img src=img/2.gif>"
case 5
response.write"<img src=img/3.gif>"
case 10
response.write"<img src=img/4.gif>"
case 20
response.write"<img src=img/5.gif>"
case else
response.write"<img src=img/6.gif>"
end select
end sub
%>