最新下载
热门教程
- 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 %>
相关文章
- 正则表达式的整理与归纳：附例子 06-07
- 大语言模型表达感受实验挑战传统对齐策略 06-07
- Shell正则表达式实战：从入门到精通 06-07
- 正则表达式中的星号为何不是通配符示例详解 06-07
- 前端正则表达式表单验证与字符串处理高频场景实战合辑 06-07
- 我的世界如何传送到队友身边 06-07