Question

怎么修改Conn.asp并修改数据库连接字符串!

(这是浏览网站的错误报告)-
# 程序在运行时发生错误
# 以下是错误信息:
--------------------------------------------------------------------
数据库连接失败,请打开Include/Conn.asp并修改数据库连接字符串!
--------------------------------------------------------------------
ASP内置错误描述：连接字符串属性无效
--------------------------------------------------------------------
（这下面是我Conn.asp的内容）请大家帮忙看下是什么原因啊！
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'强制声明变量
Option Explicit

'开启缓冲页面功能
Response.Buffer = True

Dim Conn,Rs,SQL,AccessDB,SqlConnstr,SqlQ,CjConnstr,IpSysConnstr,IpSysLink

'网站目录,务必认真填写
Const InstallDir = "/"

'网站Cookies,如果多个LKCMS程序运行在同一服务器,请一定得修改
Const InstallCookies = "wwwcd169netSQL"

'系统XML版本设置
Const MsxmlVersion = ".3.0"

'数据库类型 0为ACCESS数据库,1为SQL数据库
Const SqlType = 1

'数据库类型 0为SQL2000数据库,1为SQL2005Express数据库
Const SqlVer = 0

'0 表示使用外部链接IP查询系统，可节省空间，增大IP查询范围和精确度
'1 表示使用系统内部IP查询系统，如果填1，请先下载最新的IP数据库
Const IpSysType = 0

IpSysLink = "http://www.ip138.com/ips.asp?ip={$ip}"

If SqlType = 0 Then
SqlQ = "'"
'-----------ACCESS数据库的地址--我们这里ACC数据都整合在一起了---------
AccessDB = InstallDir & "DataBase/#xxCmsData.asp"
SqlConnstr="DBQ="&Server.Mappath(AccessDB)&";DRIVER={Microsoft Access Driver (*.mdb)};"
' SqlConnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(AccessDB)
CjConnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(AccessDB)
IpSysConnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(AccessDB)

Else

SqlQ = ""
'-----------SQL数据库连接字符-----------

If SqlVer = 0 Then
'SQL 2000连接字符串
SqlConnstr="provider=sqloledb;driver={SQL SERVER};server=(local);database=a0916145958;uid=a0916145958;pwd=wy5260119;"
CjConnstr="provider=sqloledb;driver={SQL SERVER};server=(local);database=a0916145958;uid=a0916145958;pwd=wy5260119;"
IpSysConnstr="provider=sqloledb;driver={SQL SERVER};server=(local);database=a0916145958;uid=a0916145958;pwd=wy5260119;"
Else
'SQL 2005 Express的连接字符串,公供参考
'SqlConnstr="Provider=SQLNCLI;Server=.\SQLEXPRESS;database=SQL数据库名;uid=SQL登陆账号;pwd=SQL登陆密码;"
SqlConnstr="Provider=SQLNCLI;Server=(local);database=SQL数据库名;uid=SQL登陆账号;pwd=SQL登陆密码;"
CjConnstr="Provider=SQLNCLI;Server=(local);database=SQL数据库名;uid=SQL登陆账号;pwd=SQL登陆密码;"
IpSysConnstr="Provider=SQLNCLI;Server=(local);database=SQL数据库名;uid=SQL登陆账号;pwd=SQL登陆密码;"
End If

End If
%>

Answer 1

你选的是sql数据库，连接字符却填access的数据库地址，能找到才有鬼哦。
你这里 AccessDB = InstallDir & "DataBase/#xxCmsData.asp"填这个不对，不过不用理它，主要是下面这此你都要改成你自己的东西。
SqlConnstr="provider=sqloledb;driver={SQL SERVER};server=(local);database=a0916145958;uid=a0916145958;pwd=wy5260119;"
CjConnstr="provider=sqloledb;driver={SQL SERVER};server=(local);database=a0916145958;uid=a0916145958;pwd=wy5260119;"
IpSysConnstr="provider=sqloledb;driver={SQL SERVER};server=(local);database=a0916145958;uid=a0916145958;pwd=wy5260119;"
Else
不要告诉你你不知道什么改啊，后面可是有注解清清楚楚的。

Answer 2

OracleConnection con = new OracleConnection();
con.ConnectionString = "Data Source=dl;Uid=dl;Pwd=dl";
con.Open();

OracleCommand cmd = con.CreateCommand();
这个是连接oracle数据库的，sql我不清楚，你看看有帮助没有

Answer 3

'SQL 2005 Express的连接字符串,公供参考
'SqlConnstr="Provider=SQLNCLI;Server=.\SQLEXPRESS;database=SQL数据库名;uid=SQL登陆账号;pwd=SQL登陆密码;"
SqlConnstr="Provider=SQLNCLI;Server=(local);database=SQL数据库名;uid=SQL登陆账号;pwd=SQL登陆密码;"
CjConnstr="Provider=SQLNCLI;Server=(local);database=SQL数据库名;uid=SQL登陆账号;pwd=SQL登陆密码;"
IpSysConnstr="Provider=SQLNCLI;Server=(local);database=SQL数据库名;uid=SQL登陆账号;pwd=SQL登陆密码;"

这个不是说的很清楚吗？

Answer 4

帮你重新写可一次.帐号自己设置下.支持SQL+ACCESS双数据库

<%
Option Explicit
Response.Buffer = True
'******** 定义数据库类别 ************************************************
'0=Access数据库，1=SQLServer数据库
Const IsSqlDB = 0
'******** SQL数据库设置 *************************************************
'SQL数据库连接参数
Const SqlDBHost = "(local)" '服务器(SqlDBHost)(本地用local，外地用IP)
Const SqlDBName = "0e" '数据库名(SqlDBName)
Const SqlDBUser = "sa" '用户名称(SqlDBUser)
Const SqlDBPass = "" '用户密码(SqlDBPass)
'******** Access数据库设置 **********************************************
'Access数据库路径
Const DBPath = "/Data/#mydata.mdb"
'系统设置自定义结束
Dim TimeExec:TimeExec = Timer()
Dim conn,sql,cmd,rs,MyDB,SqlNowStr,SqlDatStr,BF,BL,BE,BU,SessID,FromID
If IsSqlDB = 1 Then
SqlNowStr = "GetDate()"
SqlDatStr = "d"
Else
SqlNowStr = "Now()"
SqlDatStr = "'d'"
End If
MyDB = ""
Sub DBOpen
Dim ConnStr
If IsSqlDB = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & SqlDBUser & "; Password = " & SqlDBPass & "; Initial Catalog = " & SqlDBName & "; Data Source = " & SqlDBHost & ";"
Else
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDb & DBPath)
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
%>