连接access数据库conn.asp的常用写法

<%@ 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
%>

• 收藏此页到 IE收藏夹 POCO网摘 [365Key] [ViVi] 百度藏搜 和讯网摘 天极网摘 狐摘 向您的朋友推荐此文章
• 转载请注明来源：文章大全 网址：http://www.itlearner.com/article/
• 文章关键词：access
• 如意搜索搜索更多内容：连接access数据库conn.asp的常用写法
• 特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系我们，我们会尽快予以更正。

• 上一篇文章：面试经：他绝对是做盗版的好人选
• 下一篇文章：META标签的奥妙