Question

conn数据库连接出错，请检查Conn.asp文件中的数据库参数“

<% response.charset="gb2312" %>
<!--#include file="QQ.asp"-->
<%

'-----此文件为连接联盟站数据库文件

dim ConnStr
dim conn
dim DatabaseType

%>

<%

DatabaseType="SQL"

On Error Resume Next

ConnStr = "DRIVER={SQL Server};SERVER=(local);UID=sa;PWD=sq_sjk;DATABASE=982004217;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If

%>

<%sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%><!--#include file=sqlok.asp-->

Answer 1

问题出在程序代码中没有明确指定数据库存放的位置，你可以临时屏蔽 On Error Resume Next语名（即 'On Error Resume Next），在ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)后面加一条“response.write ConnStr”语句，就会发现数据库路径问题。
如果数据库文件夹在网站根目录下，那么db=应写成：
db="\%$##@DS@!data\FDXW@#FSF#@#@.asp"

Answer 2

用OLEDB连接
ConnStr = "Provider = Sqloledb; User ID = " & strUid & "; Password = " & strPwd & "; Initial Catalog = " & strServer & "; Data Source = " & strDB & ";"