<%if request("id")="" then
responseWrite "<script>alert(对不起！你输入了非法字符);location;</Script>"
responseend
end if
id=request("id")
set rs=serverCreateObject("adodbrecordset")
rsopen "select web_open from tgy where username="&id&""conn
if rseof then
responseWrite "<script>alert(对不起！该网站不存在！);location;</Script>"
responseend
end if
if rs("web_open")= then
responseWrite "<script>alert(对不起！该网站处于关闭状态！);location;</Script>"
responseend
end if
rsclose
%>
<%set user_rs=serverCreateObject("adodbrecordset")
user_rsopen "select * from tgy where username="&id&""conn
member_get=user_rs("member_get")
webname=user_rs("web")
pm=user_rs("pm")
qq=user_rs("qq")
email=user_rs("email")
name=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 requestCookies("id")="" then
user_rs("visit")=user_rs("visit")+
if user_rs("jifen")="" or isnull(user_rs("jifen")) then
user_rs("jifen")=
else
user_rs("jifen")=user_rs("jifen")+
end if
visit=user_rs("visit")
end if
user_rsupdate
responseCookies("ip")=requestServerVariables("REMOTE_ADDR")
responseCookies("id")=id
if user_rs("vip")= and user_rs("vipdate")>=date() then
if user_rs("weburl")="" or isnull(user_rs("weburl")) then
responseredirect "/cd/?id="&id&""
else
responseredirect "/"&user_rs("weburl")&"/?id="&id&""
end if
end if
responseCookies("tgy_url")="/cd/indexasp?id="&id&""
user_rsclose
set user_rs=nothing
%>
