response2.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 16 行

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