最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
精简asp数据库连接程序
时间：2022-07-02 23:01:27 编辑：袖梨 来源：一聚教程网
'option explicit
dim startime,conn,connstr,db,rs,rs_s,rs_s1
startime=timer()
db="bbhtgl/%^&$%/#.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
数据库教程连接代码
set rs_2=server.CreateObject("adodb.recordset")
rs_2.open "select * from system",conn,1,1
if not rs_2.eof then
banquan=rs_2("banquan")
beian=rs_2("beian")
zzywz=rs_2("zzywz")
kfqq=rs_2("qq")
kfemail=rs_2("email")
kftel=rs_2("tel")
kfdpdz=rs_2("dpdz")
kfww=rs_2("ww")
shuchu=rs_2("shuchu")
fang=rs_2("fang")
end if
rs_2.close
set rs_2=nothing
%>
HomeUrl=url
Session("HomeUrl")=HomeUrl %>
相关文章
- 原神2025最新兑换码有哪些 限时前瞻福利领取 11-16
- 百炼英雄2025兑换码大全 最新礼包福利领取合集 11-16
- 寻道大千2025兑换码 最新可用的礼包码合集 11-16
- 蛋仔派对2025兑换码 最新礼包码合集 11-16
- 元气骑士2025兑换码大全 最新可用礼包码合集 11-16
- 明日方舟终末地测试资格查询入口 官方验证方法一览 11-16