知识大全 asp 查询数据代码

Posted 2022-07-17 知

篇首语：生命是不能被略过的，一定有人敢选最难的那条路，一定有人把生命排在利益前面。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 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

cha138/Article/program/net/201311/14322