UC知道asp 创建连接出错
来源：百度知道 编辑：UC知道 时间：2024/05/23 20:06:24
我从网上下的一个asp+access的小网站，在本机上运行没问题，拷贝到另外一个机器上的时候就连不上数据库了，好像是创建Connection的时候出错，我用的这两台电脑都是xp系统，iis是5.1，恳请高手指点
我把程序拷贝到另外一台机器的时候，运行就会出现("数据库连接错误")这句话，是不是驱动有问题呀，在执行Set Conn = Server.CreateObject("ADODB.Connection")创建连接的时候出问题，请高手指教
<%
Dim Conn,ConnStr,Rs
Dim SysSiteDbPath
SysSiteDbPath = "Database/xgc#200910#ASP#ACC.ASP"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbdns & SysSiteDbPath)
Call OpenConn()
Set Rs = Server.CreateObject("Adodb.RecordSet")
If Application("Ok3w_SiteTitle") = "" Then
Application.Lock()
Sql = "select * from Ok3w_SiteConfig"
Rs.Open Sql,Conn,1,1
For i = 0 To Rs.Fields.Count - 1
Application("Ok3w_" & Rs.Fields(i).Name) = Rs(i).Value
Next
Rs.Close
Application.UnLock()
End If
Private Sub OpenConn()
On Error Resume Next
Set Conn = Serv
我把程序拷贝到另外一台机器的时候，运行就会出现("数据库连接错误")这句话，是不是驱动有问题呀，在执行Set Conn = Server.CreateObject("ADODB.Connection")创建连接的时候出问题，请高手指教
<%
Dim Conn,ConnStr,Rs
Dim SysSiteDbPath
SysSiteDbPath = "Database/xgc#200910#ASP#ACC.ASP"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbdns & SysSiteDbPath)
Call OpenConn()
Set Rs = Server.CreateObject("Adodb.RecordSet")
If Application("Ok3w_SiteTitle") = "" Then
Application.Lock()
Sql = "select * from Ok3w_SiteConfig"
Rs.Open Sql,Conn,1,1
For i = 0 To Rs.Fields.Count - 1
Application("Ok3w_" & Rs.Fields(i).Name) = Rs(i).Value
Next
Rs.Close
Application.UnLock()
End If
Private Sub OpenConn()
On Error Resume Next
Set Conn = Serv
文件夹执行权限不够
二台电脑的数据库完全一样吗？包括用户名密码，路径，名称。。不一样，当然连不上。你看一下数据库连接的语句。看哪些地方要做修改。
观摩下
你不把代码贴出来？