连接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
%>

总结

以上是内存溢出为你收集整理的连接access数据库conn.asp的常用写法全部内容，希望文章能够帮你解决连接access数据库conn.asp的常用写法所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。