asp源码怎么用 asp 查询数据代码

asp 查询数据代码  

　　<%if request("id")="" then response Write "<script>alert( 对不起！你输入了非法字符 );location ;</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 if rs eof then response Write "<script>alert( 对不起！该网站不存在！ );location ;</Script>" response end end if  if rs("web_open")= then response Write "<script>alert( 对不起！该网站处于关闭状态！ );location ;</Script>" response end end if rs close %> <%set user_rs=server CreateObject("adodb recordset")  user_rs open "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  request Cookies("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_rs update  response Cookies("ip")=request ServerVariables("REMOTE_ADDR")  response Cookies("id")=id  if user_rs("vip")= and  user_rs("vipdate")>=date() then  if user_rs("weburl")="" or isnull(user_rs("weburl")) then  response redirect "/cd /?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