非常感谢，安装顺利！！！

没用啊，按你说的已经做了，不过还是提示错误

我的系统是XP-SP2，版本为 科汛CMS2006 SP1全功能免费正式版

虚拟目录安装在C:\asp， 在IE里通过 http://127.0.0.1/asp访问

但提示错误，，，请帮我看看我的Conn.asp是否设置错误

----------------------------------------------------------------------------------------------------------------------------------------

<%
'数据库链接
Dim Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw
Const DataBaseType=0 '系统数据库类型，"1"为MS SQL2000数据库，"0"为MS ACCESS 2000数据库
Const SysVer=0

 
 '如果是ACCESS数据库，请认真修改好下面的数据库的文件名
  DBPath = "\asp\database\KS_DataBase.mdb"      'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径

 '如果是SQL数据库，请认真修改好以下数据库选项
 DataServer="(127.0.0.1)"                                 '数据库服务器IP
 DataUser="abc"                                         '访问数据库用户名
 DataBaseName="KS_data"                                '数据库名称
 DataBasePsw="123456"                                  '访问数据库密码
 
 '采集数据库路径
  CollectDBPath="\admin\collect\ks_data\Collect.Mdb"

Call OpenConn
Sub OpenConn()
    On Error Resume Next
    Dim ConnStr
    If DataBaseType = 1 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
    End If
    Application("DBPath") = DBPath
    Application("ConnStr") = ConnStr
 Application("CollcetConnStr") ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( CollectDBPath)
    Application("DataBaseType") = DataBaseType
    Application("SysVer") = SysVer
End Sub
Sub CloseConn()
        On Error Resume Next
 Conn.close
 set Conn=nothing
End sub
%>

[此贴子已经被作者于2006-5-27 19:14:08编辑过]