数据库连接出错,请检查Inc/Cls_Conn.asp文件数据库连接路径 10

OptionExplicitDimstartime,ConnDimServerDatabaseDimNowStringDimConnStrResponse.Buffer=... Option Explicit
Dim startime,Conn
Dim ServerDatabase
Dim NowString
Dim ConnStr
Response.Buffer = True
startime = Timer()
If IsSqlDataBase = 1 Then
'-----------------------SQL数据库连接参数---------------------------------------
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
NowString = "GetDate()"
SqlDatabaseName = "tee5" '数据库名
SqlUsername = "TeGq" '用户名
SqlPassword = "TeGq" '用户密码
SqlLocalName = "(local)" '连接名(本地用local,外地用IP)
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
'-------------------------------------------------------------------------------
Else
'-----------------------ACCESS数据库连接----------------------------------------
NowString = "Now()"
'ACCESS数据库连接,请使用根路径或者绝对路径
ServerDatabase = "\Database\123.mdb"
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(ServerDatabase)
'-------------------------------------------------------------------------------
End If

Sub ConnectionDatabase()
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
Err.Clear
Set conn = Nothing
Response.Write "<br><br><br><center><font style=color:red;font-size:12pt;><b>数据库连接出错,请检查Inc/Cls_Conn.asp文件数据库连接路径!</b></font></center>"
Response.End
End If
End sub
Sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
End Sub
%> 一连接数据库连接出错,请检查Inc/Cls_Conn.asp文件数据库连接路径
看了好几遍都没看出啥来 哪为高手帮帮我
展开
 我来答
sdconey
2008-06-22 · TA获得超过296个赞
知道小有建树答主
回答量:262
采纳率:0%
帮助的人:224万
展开全部
ACCESS数据库的话保证你的数据库文件为123.mdb且在网站根目录下的

Database文件夹内,否则连接不成功

要是SQL数据库的话还要自己导入数据库,否则连接不成功。

你的要是是ACCESS数据库,看一下你的数据库文件是否在Database下,且文件名为123.mdb。还有一个,看看数据库文件是否正常,打开看一下里面是否有内容,且内容完整。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式