ASP数据库调用问题，把调用MSSQL数据库换成调用MDB数据库。

[雪花年年飘]

<%
Response.Buffer = true
EnableSessionState = false
Dim Conn,StartTime
StartTime = Timer()
'Sub ConnectionDatabase
on error resume next
'Dim Db,ConnStr
'Db="/Db/wionls32ds89.mdb"
'Set conn=Server.CreateObject("ADODB.Connection")
'ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)
'Conn.Open ConnStr

dim connstr,db,pass_word,User_ID,Data_Source
db="3892934091"
Pass_word="42900afsaw129"
User_ID="3892934091"
Data_Source="localhost"
Set conn = Server.CreateObject("ADODB.Connection")
connStr="Provider=SQLOLEDB.1;Password='"&pass_word&"';Persist Security Info=True;User ID='"&User_ID&"';Initial Catalog='"&db&"';Data Source='"&Data_Source&"'"
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If

'End Sub

%>






把调用MSSQL数据库换成调用MDB数据库。应该怎们弄呢？

[sdjnliu73]

是不是现在换成MDB数据库了啊？？
MDB数据库链接代码：
<%
Response.CacheControl = "no-cache"
dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("user/db.mdb") '把"user/db.mdb"改成你的数据库路径及名称
%>

[jd_zhangfeng]

<% 
Response.Buffer   =   true 
EnableSessionState   =   false 
Dim   Conn,StartTime 
StartTime   =   Timer() 

Set   conn   =   Server.CreateObject( "ADODB.Connection ") 
Dim   Db,ConnStr 
  Db= "/Db/wionls32ds89.mdb " 
  Set   conn=Server.CreateObject( "ADODB.Connection ") 
  ConnStr= "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "&server.mappath(Db) 
        conn.Open   connstr 
      If   Err   Then 
    err.Clear 
    Set   Conn   =   Nothing 
    Response.Write   "数据库连接出错，请检查连接字串。 " 
    Response.End 
  End   If 



%>   

[gingerkang]

你被注释的部分不是有吗?