系统老是 "模板不存在,请先绑定!",conn.asp数据库设置不对-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2566 查看	4 回复

主题：[求助] 系统老是 "模板不存在,请先绑定!",conn.asp数据库设置不对 [收藏主题]

转到：

abin123 当前离线

3 主题	0 广播	0 粉丝

级别:学前班

用户积分:229 分
登录次数:1 次
注册时间:2007/8/17
最后登录:2007/8/17

abin123 发表于：2007/8/17 18:09:00 | 只看该作者查看该作者主题楼主

有课程找生源就上科汛课堂街

模板不存在,请先绑定!

配置是winxp 系统，在本地建立的ke虚拟目录，浏览index.asp出错，提示“模板不存在,请先绑定! ”；

我在admin/index.asp 提示是“数据库连接出错，请检查Conn.asp文件中的数据库参数设置。”

conn.asp代码为：

<%
Dim SqlNowString,SiteSN,Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw,ConnStr,CollcetConnStr
Const DataBaseType=0 '系统数据库类型，"1"为MS SQL2000数据库，"0"为MS ACCESS 2000数据库
Const SysVer=1
Const MsxmlVersion=".3.0" '系统采用XML版本设置

If DataBaseType=0 then
'如果是ACCESS数据库，请认真修改好下面的数据库的文件名
DBPath = "\KS_Data\KesionCMS4.mdb"      'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
'SqlNowString = "Now()"
Else
'如果是SQL数据库，请认真修改好以下数据库选项
DataServer   = "(local)"                                  '数据库服务器IP
DataUser     = "sa"                                       '访问数据库用户名
DataBaseName = "KesionCms4"                                '数据库名称
DataBasePsw = "989066"                                   '访问数据库密码
SqlNowString = "getdate()"
End if

'采集数据库路径
CollectDBPath="\KS_Data\Collect\KS_Collect.mdb"

Call OpenConn
Sub OpenConn()
    On Error Resume Next
    If DataBaseType = 1 Then
       ConnStr="Provider = Sqloledb; User ID = " & datauser & "; Password = " & databasepsw & "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";"
    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
CollcetConnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(CollectDBPath)
End Sub
Sub CloseConn()
    On Error Resume Next
Conn.close:Set Conn=nothing
End sub
%>