7.3冰法pvp视频:<%if replace(replace(request("id"),"'",""),"""","")>0 then

来源:百度文库 编辑:高校问答 时间:2024/04/19 17:10:38
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%if replace(replace(request("id"),"'",""),"""","")>0 then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [G_user] where G_userid="&replace(replace(request("id"),"'",""),"""","")
rs.open sql,conn,1,3
if rs.eof then
else
rs("G_goout")=(rs("G_goout")+1)
url=("http://"&rs("G_weburl"))
response.Write ("<Script Language=JavaScript>")
response.Write ("setTimeout(location.replace('"&url&"'))")
response.Write ("</Script>")
rs.update
rs.close
end if
end if%>