Question

刚下载了一个ASP网站代码 进后台发现数据库连接出错，请检查连接字串。

以下是远目录代码 我看了下 mdb文件在根目录Data/#371data.mdb下 前面已经安装了Access2003 请高手看下哪里的错误 我不懂代码意思 呵呵
<%
//Rem 过滤HTML代码
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), " ")
fString = Replace(fString, CHR(10), " ")
fString=ChkBadWords(fString)
HTMLEncode = fString
end if
end function
//Rem 过滤SQL非法字符
function checkStr(str)
if isnull(str) then
checkStr = ""
exit function
end if
checkStr=replace(str,"'","''")
end function

Const SiteDb = "/Data/#371data.mdb" '如果是SQL Server数据库，此项不需要设置
Const DataType = 0 '0为Access数据库，1为SQL Server数据库

dim sessionvar,ConnStr
On Error Resume Next
If DataType=0 Then
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("admin/data/#371data.mdb")
else
ConnStr = "driver={SQL Server}; server=127.0.0.1;database=IP_Address;uid=sa;pwd="
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If

sessionvar="admin&^jffsddasf"
%>
conn.asp在根目录siteconfig下的 请高手详解 感激不尽
源代码ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & SiteDb) 上面是我把(MyDbPath & SiteDb)改为了("admin/data/#371data.mdb")的 #371data.mdb路径应该是DATA/#371data.mdb 不u过改这里也不行 不知道是哪里的问题

Answer 1

这个应该是Conn.asp文件的代码吧？？？

Const SiteDb = "/Data/#371data.mdb"
这句应该是数据库的路径，表示数据库应该在Data目录的#371data.mdb文件，你查看一下文件是否存在。
不过建议你把更改数据库所在的目录，默认的数据库目录不安全，一旦主机被攻击的话，别人很轻易地找到你的数据库！

Answer 2

你看下下载的网站目录中是否有 admin/data/#371data.mdb，如果没有，则应该是 /data/#371data.mdb。提示信息应该是数据库文件没有找到，所以无法打开。

Answer 3

不用安装Access也可以使用数据库的。路径问题 吧， conn.asp在根目录siteconfig目录下，那么它的链接地址是Const SiteDb =