right.asp

来自「采用ASP。NET做的网上游戏交易平台」· ASP 代码 · 共 29 行

<%
response.buffer=true
dim mystrid,url
mystrid=request.querystring("strid")
response.write "<br><br><br><br><br><br>"
if mystrid="" then
'response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src='image/zhuti.gif'>"
response.redirect "info.asp"
else
'response.write mystrid&"..."
select case mystrid
	case "00"
	url="info.asp"
	case "01"
	url="exit.asp"
	case "10"
	url="userManage.asp"
	case "20"
	url="infoManage.asp"
	case "30"
	url="reply.asp"
	case else
	response.write mystrid
	response.end
end select
response.redirect url
end if
%>