<!--#include file="../include/MainClass.asp" -->
<%
Dim Rs,Conn,SqlConnectionString,Righttrue,SqlCount,UserTrue,MaxP,Territory
SqlCount=0'初始化数据库查询次数
'###############设置开始####################
Const WebDir="/"'网站目录,如果直接放在根目录则为CityBlogDir="/",放别的目录如"/blog/",注意最后要加/
Const DbPath="DataBase/BaseSJ.mdb"
'以上必须设置过,否则系统会出错
Const WebName="XXX"'网站名称
Const CopyRight="后台管理系统 " '网站版权
Const SmtpServer = "smtp.163.com"
Const SmtpUser = "longzhiyu52"
Const SmtpPwd = "61083083"
Const SmtpEmail = " "
Const Mailname="网上反馈"
'###############设置结束####################
UserTrue=false
Righttrue=true
Territory="http://"&Request.ServerVariables("HTTP_HOST")
SqlConnectionString="DBQ="+server.mappath(WebDir & DbPath)+";DRIVER={Microsoft Access Driver (*.mdb)};"
'SqlConnectionString="Provider=SQLOLEDB.1;Password='joleo#**';Persist Security Info=True;User ID='joleo';Initial Catalog='fandian';Data Source='61.129.68.20.'"
'On Error resume next
Set conn= Server.CreateObject("ADODB.Connection")
conn.open SqlConnectionString
If Err.number<>0 Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,您设置的数据库:<br/>相对路径为:" & WebDir & DbPath & ",<br/>绝对路径为:"& server.mappath(WebDir & DbPath) &"。<br/>请检查数据库路径是否正确!Include/Config.asp文件。"
Response.End
End If
Set Joleo=New MainClass
%>
这些在服务器上运行http://www.longzhiyu.com都是很正常的啊,是不是在本地测试需要更改一些什么呢?
------解决方案--------------------
Const WebDir="/"'网站目录,如果直接放在根目录则为CityBlogDir="/",放别的目录如"/blog/",注意最后要加/
本地你应该设置为虚拟目录了,那这个地方就要改