asp7b.asp

asp教程

<%
Dim say
say = Request.QueryString("flag")
Select case say
case "1"
 Response.Redirect "asp7.asp?say=1"
case "2"
 Response.Redirect "asp7.asp?say=2"
case "3"
 Response.Redirect "asp7.asp?say=3"
case "0"
 Response.Redirect"asp7.asp?say=0"
End Select
%>