<%if request("id")="" then response.Write "<script>alert('对不起！你输入了非法字符');location.href='../';</Script>" response.end end if id=request("id") set rs=server.CreateObject("
;adodb.recordset") rs.open "select web_open from tgy where username='"&id&"'",conn,1,1 if rs.eof then response.Write "<script>alert('对不起！该网站不存在！');location.href='../';</Script>" response.end end if if rs("web_open")=0 then response.Write "<script>alert('对不起！该网站处于关闭状态！');location.href='../';</Script>" response.end end if rs.close %> <%set user_rs=server.CreateObject("adodb.recordset") user_rs.open "select * from tgy where username='"&id&"'",conn,1,3 member_get=user_rs("member_get") webname=user_rs("web") pm=user_rs("pm") qq=user_rs("qq") email=user_rs("email") name1=user_rs("name") province=user_rs("province") city=user_rs("city") visit=user_rs("visit") vip=user_rs("vip") adddate=user_rs("adddate") vip_url=user_rs("weburl") if request.Cookies("id")="" then user_rs("visit")=user_rs("visit")+1 if user_rs("jifen1")="" or isnull(user_rs("jifen1")) then user_rs("jifen1")=0.1 else user_rs("jifen1")=user_rs("jifen1")+0.1 end if visit=user_rs("visit") end if user_rs.update response.Cookies("ip")=request.ServerVariables("REMOTE_ADDR") response.Cookies("id")=id if user_rs("vip")=1 and user_rs("vipdate")>=date() then if user_rs("weburl")="" or isnull(user_rs("weburl")) then response.redirect "/cd4/?id="&id&"" else response.redirect "/"&user_rs("weburl")&"/?id="&id&"" end if end if response.Cookies("tgy_url")="/cd/index.asp?id="&id&"" user_rs.close set user_rs=nothing
