
网站本地测试没问题,上传到服务器就登陆不了后台了,提示 数据库连接错误,请检查连接字符串
<%'OptionExplicitresponse.buffer=true'开启缓冲页面功能Server.ScriptTimeout=100ConstSystemPath...
<%
'Option Explicit
response.buffer=true '开启缓冲页面功能
Server.ScriptTimeout = 100
Const SystemPath="" '系统目录
Const ErrBackPath="/index.asp" '出错返回
Const MaxCharPage=3000
Const Edition = "全功能版"
Const Ke_System="明科EIS V5.1"
Const CreateHtml=0 ' 添加文章时是否同时生成HTML文章
Const Folder="/Article"
Const DelMode=1 '删除模式 1 表式删除文章时同时删除相关的图片,0 表示只删除文章
Const IsSqlDataBase=0 '数据数
'定义运行模式,测试的时候设置1,正常运行的时候设置为0,不输出错误信息有利于安全,
Const IsDeBug = 1
Dim Startime,Endtime,runtime
Startime=Timer()
Dim NewsTable,ArticleTable,SoftTable,PhotoTable,SMTP,pop3,DataPathbbs
Dim AdminPath,AdminTable,UserTable,MessageTable,BoardID,MyDbPath,F_Ext,Connbbs,Connstrbbs
'-------------用户自定义部分[开始]----------------------
'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称,如将Kews2_free.mdb修改为Kews2_free.asp
'--------------------------------------------
'修改网站数据库的名称后,请修改以下内容
DataPath = SystemPath&"/data/#data.mdb" '数据库实际名称及路径
DataPathbbs =SystemPath&"/bbs/Data/Dvbbs7.mdb" '数据库实际名称及路径
MyDbPath=SystemPath&"/data/IP.mdb"
'后台管理路径
AdminPath =SystemPath& "admin" '只写目录名
'邮件服务顺器
SMTP="mail.mksun.com"
PoP3="mial.mksun.com"
'网站用户表表名
UserTable = "Ke_User"
NewsTable = "Ke_News"
ArticleTable = "Ke_Article"
SoftTable = "Ke_Soft"
PhotoTable = "Ke_Photo"
MessageTable = "Ke_Message"
'-------------用户自定义部分[结束]----------------------
Dim DataPath,Conn,Connstr,ArrshowLine(10)
Dim Ke,Re,Template,SqlNowString,MyUserOnline,Restr,Ka
Dim Title,ErrMsg,info
Set Re = New RegExp
Set Ke = New Cls_Ke
Set Ka=New ArticleClass
Set re = New RegExp
If IsSqlDataBase = 1 Then
SqlNowString = "GetDate()"
Else
SqlNowString = "Now()"
End If
'网站数据库连接
Sub Connect()
Set conn=server.createobject("ADODB.connection")
If IsSqlDataBase = 1 Then
Connstr="PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=sa;PWD=123456;DATABASE=cncmr"
Else
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DataPath)
End IF
On Error Resume Next
Set Conn = server.CreateObject("ADODB.Connection")
Conn.open Connstr
if Err Then
Err.Clear
Set Conn=nothing
Response.Write "用户数据库连接出错,请检查连接字串。"
Response.End
End if
End Sub
%>
这是conn.asp 高手帮忙看下 展开
'Option Explicit
response.buffer=true '开启缓冲页面功能
Server.ScriptTimeout = 100
Const SystemPath="" '系统目录
Const ErrBackPath="/index.asp" '出错返回
Const MaxCharPage=3000
Const Edition = "全功能版"
Const Ke_System="明科EIS V5.1"
Const CreateHtml=0 ' 添加文章时是否同时生成HTML文章
Const Folder="/Article"
Const DelMode=1 '删除模式 1 表式删除文章时同时删除相关的图片,0 表示只删除文章
Const IsSqlDataBase=0 '数据数
'定义运行模式,测试的时候设置1,正常运行的时候设置为0,不输出错误信息有利于安全,
Const IsDeBug = 1
Dim Startime,Endtime,runtime
Startime=Timer()
Dim NewsTable,ArticleTable,SoftTable,PhotoTable,SMTP,pop3,DataPathbbs
Dim AdminPath,AdminTable,UserTable,MessageTable,BoardID,MyDbPath,F_Ext,Connbbs,Connstrbbs
'-------------用户自定义部分[开始]----------------------
'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称,如将Kews2_free.mdb修改为Kews2_free.asp
'--------------------------------------------
'修改网站数据库的名称后,请修改以下内容
DataPath = SystemPath&"/data/#data.mdb" '数据库实际名称及路径
DataPathbbs =SystemPath&"/bbs/Data/Dvbbs7.mdb" '数据库实际名称及路径
MyDbPath=SystemPath&"/data/IP.mdb"
'后台管理路径
AdminPath =SystemPath& "admin" '只写目录名
'邮件服务顺器
SMTP="mail.mksun.com"
PoP3="mial.mksun.com"
'网站用户表表名
UserTable = "Ke_User"
NewsTable = "Ke_News"
ArticleTable = "Ke_Article"
SoftTable = "Ke_Soft"
PhotoTable = "Ke_Photo"
MessageTable = "Ke_Message"
'-------------用户自定义部分[结束]----------------------
Dim DataPath,Conn,Connstr,ArrshowLine(10)
Dim Ke,Re,Template,SqlNowString,MyUserOnline,Restr,Ka
Dim Title,ErrMsg,info
Set Re = New RegExp
Set Ke = New Cls_Ke
Set Ka=New ArticleClass
Set re = New RegExp
If IsSqlDataBase = 1 Then
SqlNowString = "GetDate()"
Else
SqlNowString = "Now()"
End If
'网站数据库连接
Sub Connect()
Set conn=server.createobject("ADODB.connection")
If IsSqlDataBase = 1 Then
Connstr="PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=sa;PWD=123456;DATABASE=cncmr"
Else
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DataPath)
End IF
On Error Resume Next
Set Conn = server.CreateObject("ADODB.Connection")
Conn.open Connstr
if Err Then
Err.Clear
Set Conn=nothing
Response.Write "用户数据库连接出错,请检查连接字串。"
Response.End
End if
End Sub
%>
这是conn.asp 高手帮忙看下 展开
1个回答
展开全部
SOURCE=127.0.0.1;
UID=sa;
PWD=123456;
DATABASE=cncmr"
服务器的数据库配置和你本地测试的时候一样吗?
UID=sa;
PWD=123456;
DATABASE=cncmr"
服务器的数据库配置和你本地测试的时候一样吗?

2023-07-25 广告
要快速搭建在线客服系统,可以考虑以下步骤:1. 确定需求:首先需要确定自己的需求和目标,例如需要什么类型的客服、需要支持多少用户、需要什么样的沟通工具等等。2. 选择合适的平台:选择一个合适的在线客服系统平台,可以选择公有云或私有云部署方式...
点击进入详情页
本回答由合力亿捷提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询