7.10.asp

ASP对象例子

<%
dim say
say=Request.QueryString("flag")
select case say
case "1"
Response.Redirect "7.9.asp?say=1"
case "2"
Response.Redirect "7.9.asp?say=2"
case "3"
Response.Redirect "7.9.asp?say=3"
case "0"
Response.Redirect "7.9.asp?say=0"
end select%>