<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>SELECT...CASE</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
dim a,b
a=40
select case a
case 10
response.Write("a=10")
case 20
response.Write("a=20")
case 30
response.Write("a=30")
case 40
response.Write("a=40")
end select
response.Write("<br>-------------CASE后面的值可以是数字型,也可以是字符型---------------<br>")
b="aa"
select case b
case "10"
response.Write("b=10")
case "20"
response.Write("b=20")
case "30"
response.Write("b=30")
case "aa"
response.Write("b=aa")
end select
%>
</html>