最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 查询数据代码
时间:2022-07-02 22:37:54 编辑:袖梨 来源:一聚教程网
<%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
%>
相关文章
- 《流放之路2》寻找熔炉任务攻略分享 12-23
- 《流放之路2》德雷文打法技巧分享 12-23
- 《流放之路2》永恒裁判者德雷文具体位置介绍 12-23
- 未定事件簿夏彦归路沿风怎么样 12-23
- 未定事件簿左然墨望书怎么样 12-23
- 桃源深处有人家冬至阳生怎么玩 12-23