最新下载
热门教程
- 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 %>
相关文章
- z-libirary软件-强大功能与独特特点 02-28
- 漫蛙manwa2最新版本下载官方正版入口-下载安装教程及常见问题解答 02-28
- 羞羞漫画-官网快捷入口 02-28
- Deepseek网页版-Deepseek云端入口 02-28
- 蛙漫app下载安装包最新版-安卓苹果都能用的官方正式版 02-28
- 推特网页版极速体验-twitter网页流畅访问 02-28