Question

ASP连接sql数据库代码修改

根据图片修改以下代码
<%Option ExplicitResponse.Buffer = TrueDim Conn,Db,PagePathDim QsitePagePath = ""const tablePrefix = "qbzzcom_"'Const SqlDatabaseName="db_yiwujiajiaocom" 'SQL数据库的名称'Const SqlUsername="yiwujiajiaocom" 'SQL数据库的登陆名'Const SqlPassword="1010aa" 'SQL数据库的登陆密码'Const SqlLocalName="db113.72dns.net" 'SQL数据库所在的服务器名'Const SqlDatabaseName="sq_caoenze" 'SQL数据库的名称'Const SqlUsername="beijing" 'SQL数据库的登陆名'Const SqlPassword="c7e4b5y8" 'SQL数据库的登陆密码'Const SqlLocalName="124.248.37.182" 'SQL数据库所在的服务器名Const SqlUsername="sq_caoenze" 'SQL数据库的登陆名Const SqlPassword="caoenzes1fs45" 'SQL数据库的登陆密码Const SqlLocalName="127.0.0.1" 'SQL数据库所在的服务器名Session.Timeout = 500
Sub ConnectionDatabase() Dim ConnStr 'ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Db) 'ConnStr="driver={SQL Server};server="&SqlLocalName&";uid="&SqlUsername&";pwd="&SqlPassword&";database="&SqlDatabaseName&";" ConnStr="Provider=SQLOLEDB.1;Persist Security InFso=true;Data Source="&SqlLocalName&";Initial Catalog="&SqlDatabaseName&";User ID="&SqlUsername&";Password="&SqlPassword&"" On Error Resume Next Set Conn = Server.CreateObject("ADODB.Connection") Conn.open ConnStr If Err Then err.Clear Set Conn = Nothing Response.Write "数据库连接出错，请检查连接字串。1" Response.End End IfEnd Sub
function closedb() if(not IsNull(conn) and not conn is nothing) then conn.close() set conn=nothing end ifend function%>
==========

Answer 1

Const SqlDatabaseName="aO326104445" 'SQL数据库的名称
Const SqlUsername="aO326104445" 'SQL数据库的登陆名
Const SqlPassword="28993271" 'SQL数据库的登陆密码
Const SqlLocalName="localhost" 'SQL数据库所在的服务器名

追问

不可以，数据库连接出错，请检查连接字串。1 很奇怪，不知道哪里错误

追答

Const SqlLocalName="localhost"
改为
Const SqlLocalName="localhost:3306"
试试

追问

依旧有问题

追答

set conn = server.createobject("adodb.connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=aO326104445;USER=aO326104445;PASSWORD=28993271;"
替换
Dim ConnStr
'ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Db)
'ConnStr="driver={SQL Server};server="&SqlLocalName&";uid="&SqlUsername&";pwd="&SqlPassword&";database="&SqlDatabaseName&";"
ConnStr="Provider=SQLOLEDB.1;Persist Security InFso=true;Data Source="&SqlLocalName&";Initial Catalog="&SqlDatabaseName&";User ID="&SqlUsername&";Password="&SqlPassword&""
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
再试下看

追问

追答

最好咨询一下空间商
是否有标准的连接字符串
?