连接access数据库conn.asp的常用写法
[导读]<%@ LANGUAGE = VBScript CodePage = 936%><%option explicitDim Startime,Endtime,Conn,Connstr,DBStartime = Timer()DB = data/itlearner.MDB '数据库路径ConnectionDatabase Sub ConnectionDatabase Con...
<%@ LANGUAGE = "VBScript" CodePage = 936%>
<%
option explicit
Dim Startime,Endtime,Conn,Connstr,DB
Startime = Timer()
DB = "data/itlearner.MDB" '数据库路径
ConnectionDatabase
Sub ConnectionDatabase
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动,请用下面连接方法
'Connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "对不起,数据库维护中,请您稍后访问。" '数据库访问出错提示信息。
Response.End
End If
End Sub
Function CloseDatabase
Conn.close
Set Conn = Nothing
End Function
%>
- 转载请注明来源:IT学习网 网址:http://www.t086.com/ 向您的朋友推荐此文章
- 特别声明: 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系我们,我们会尽快予以更正。