我一直用如下代码做数据库连接,日前还没有出现大问题。你可以试试。
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim idsCon,db,connstr
Server.ScriptTimeout=30
db="YourDataBase.mdb"
set idsCon=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(db)
idsCon.open connstr
Sub closedb
idsCon.close
Set idsCon = nothing
End Sub
%>