go.asp

来自「驴友格子(access)版v1.50 (中国驴友网开发http://www」· ASP 代码 · 共 29 行

<!--#include file="conn.asp"-->
<%if IsNumeric(request.QueryString("id"))=False then
response.Redirect ("index.asp")
response.end
end if%>
<%
if replace(replace(replace(request("id"),"'",""),"""",""),"&","")>0 then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [G_user] where G_userid="&replace(replace(replace(request("id"),"'",""),"""",""),"&","")
rs.open sql,conn,1,3
if rs.eof then
response.Redirect("http://www.hikers.cn")
else
goa=Request.ServerVariables("REMOTE_ADDR")&request("id")
gob=Application("Goip")
if Instr(gob,goa)>0 then
url=("http://"&rs("G_weburl"))
response.Redirect (url)
else
rs("G_goout")=(rs("G_goout")+1)
url=("http://"&rs("G_weburl"))
rs.update
rs.close
Application("Goip")=Goa&"|"&Application("Goip")
response.Redirect (url)
end if
end if
end if
%>