asp 查询数据代码

<%if request("id")="" then
response.Write ""
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 ""
response.end
end if
 if rs("web_open")=0 then
response.Write ""
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

 %>