Question

数据库连接出错，请修改conn.asp文件的对应数据库链接设置。

捷扬文章系统免费版程序1.10.12版本安装山谷出现数据库连接出错，请修改conn.asp文件的对应数据库链接设置，请教下怎么回事，以下的conn.asp的代码
<%
dim Conn '数据库连接
dim connstr '连接字符串
dim sql
dim rs
dim MainWebCss
dim closeoropen,closewhy,sitenames,sitetitle,sitedescription,sitekeywords,siteurl
dim sitelogo,ishtml,htmlfolder,InstallDir,Editor,CreateTime,SubNav,S_listshow,ChannelSortNum,SortNum,ViewLimit,Starget,SRecord,S_IsSaveKeyWords
dim ListCreatTime,ContentCreateTime,ListNums,Scookies
dim isreg,ischeckreg,ischecklogin
dim post,telephone,fax,email,address,ContactMan,ContactQQ,S_Count
dim Guestflag,GuestContent,GuestCode
dim MailObject,MailServer,MailServerName,MailServerPwd,MailDomain,AdminDir
Dim SiteComment,SiteCommentFlag,CommentCode,CommentContent
Dim DefaultTempProFolder,DefaultTempProId
Dim IsAspJpeg,DrawFontSize,DrawFontFamily,DrawFontColor,DrawShadowColor,DrawText,DrawXWidth
Dim S_openqq,S_qqlist,S_qqname,S_bottomfloat,S_bottomcontent
Dim MemberIsReg,MemberRegIsFlag,MemberRegDisabled,MemberRegEmail
Dim S_adminip,cookiestime
Dim S_filter,S_mood,S_conlink

Const JY_Sql = True '是否启用防SQL注入功能，True为启用，False为禁用
Const JY_Version = "1.10.12" '程序版本
Set Rs=Server.CreateObject("ADODB.RecordSet")
Dim Database
'二级目录安装请修改为
'Database = "jycms/DataBase/JYcms123.mdb" jycms为二级目录名称，前面不要加/
Database = "DataBase/JYcms.mdb" 'ACCESS数据库的文件名

On Error Resume Next
ConnStr = "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath(Add_Root_Dir(Database))
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Err Then
Err.Clear
Conn.close
Set Conn = Nothing
Response.Write "<br><br><br><br><br><br><br><div align='center'>数据库连接出错，请修改conn.asp文件的对应数据库链接设置。</div>"
Response.End
End If

Call GetSiteConfig()
Call GetTempProFolder()
Call GetSkin()

'获得网站根目录
Function Add_Root_Dir(f_Path)
Dim f_All_Path
If Left(f_Path,1)="/" Then
f_All_Path = FR_ROOT_DIR & f_Path
Else
f_All_Path = FR_ROOT_DIR & "/" & f_Path
End If
If Trim(FR_ROOT_DIR) <> "" Then
f_All_Path = "/" & f_All_Path
End If
Add_Root_Dir = f_All_Path
End Function

'关闭数据库连接,在每页调用该函数,将连接放入连接池
Sub CloseConn()
conn.close()
set conn=nothing
End Sub

'关闭记录集
'调用方法 CloseRs(记录集名称) 不加引号
Function CloseRs(RsName)
RsName.close
set RsName=nothing
End Function

'********************************************************
'过滤SQL非法字符并格式化html代码
'********************************************************
function Replace_Text(fString)
if isnull(fString) then
Replace_Text=""
exit function
else
fString=trim(fString)
fString=replace(fString,"'","''")
fString=replace(fString,";","；")

Answer 1

如果是mssql数据库，检查下这个路径和数据库名是否正确'Database = "jycms/DataBase/JYcms123.mdb"
如果是ACCESS数据库检查下这个路径和数据库名是否正确Database = "DataBase/JYcms.mdb"