保康玻璃桥多少钱:<%if replace(replace(request("id"),"'",""),"""","")>0 then

来源:百度文库 编辑:神马品牌网 时间:2024/04/28 06:52:46
<%@ 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%>