mdb.asp

来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 20 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%'Session.CodePage=936%>
<%
dim conn,connstr,time1,time2,mdb
time1=timer   
mdb="mdb/hx#66.mdb"
on error resume next
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdb)
Set Conn=Server.CreateObject("ADODB.Connection") 
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
%>