请问下各位斑竹，我的网站一打开就是

数据库连接出错，请检查Conn.asp文件中的数据库参数设置。

我设置了

我的网站是http://我的网站.org/CD/conn.asp 出来的是一段字 请斑竹 看下 麻烦了！

以下是我的网站代码！！！！ 请斑竹尽快回复 谢谢！

<%
Dim SqlNowString,SiteSN,Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw
Const DataBaseType=0 '系统数据库类型，"1"为MS SQL2000数据库，"0"为MS ACCESS 2000数据库
Const SysVer=0
 
If DataBaseType=0 then
 '如果是ACCESS数据库，请认真修改好下面的数据库的文件名
 DBPath       = "/cd/database/ks_database.asp"      'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
 SqlNowString = "Now()"
Else
  '如果是SQL数据库，请认真修改好以下数据库选项
  DataServer   = "(local)"                                  '数据库服务器IP
  DataUser     = "sa"                                       '访问数据库用户名
  DataBaseName = "KS_DataBase"                              '数据库名称
  DataBasePsw  = "kesion"                                   '访问数据库密码
  SqlNowString = "GetDate()"
End if

 '采集数据库路径
 CollectDBPath="/admin/collect/ks_data/Collect.Mdb"

Call OpenConn
Sub OpenConn()
    On Error Resume Next
    Dim ConnStr
    If DataBaseType = 0 Then
       ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename
    Else
       ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
    End If
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.open ConnStr
    If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End
 
    Application("DBPath") = DBPath
    Application("ConnStr") = ConnStr
 Application("CollcetConnStr") ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( CollectDBPath)
    Application("DataBaseType") = DataBaseType
 Application("SqlNowString")=SqlNowString
    Application("SysVer") = SysVer
 
End Sub
Sub CloseConn()
    On Error Resume Next
 Conn.close:Set Conn=nothing
End sub
%>

不行 朋友都用过了 为什么不可以呢? 那是什么问题呢。