UC知道我的本地sql怎么连不上呀 哪有错??
来源：百度知道 编辑：UC知道 时间：2024/07/01 01:48:20
strSQLServer="wb"
strSQLUser="sq_caopeng"
strSQLPassword="020310"
strSQLDataBase="caopeng"
loveconnstr = "Driver={SQL Server};server=" & strSQLServer & ";UID=" & strSQLUser & ";PWD=" & strSQLPassword & ";database=" & strSQLDataBase & ""
set loveconn = Server.Createobject("ADODB.Connection")
loveconn.Open loveconnstr
CommandType=0
CommandTable=""
iparam = -1
ifilter = -1
end sub
Private Sub Class_Terminate()
Err.Clear
if loveconn.State=adStateOpen then
loveconn.Close
end if
set loveconn = nothing
End Sub
strSQLUser="sq_caopeng"
strSQLPassword="020310"
strSQLDataBase="caopeng"
loveconnstr = "Driver={SQL Server};server=" & strSQLServer & ";UID=" & strSQLUser & ";PWD=" & strSQLPassword & ";database=" & strSQLDataBase & ""
set loveconn = Server.Createobject("ADODB.Connection")
loveconn.Open loveconnstr
CommandType=0
CommandTable=""
iparam = -1
ifilter = -1
end sub
Private Sub Class_Terminate()
Err.Clear
if loveconn.State=adStateOpen then
loveconn.Close
end if
set loveconn = nothing
End Sub
<%
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,ConnStr,Conn
SqlDatabaseName = "caopeng" 'SQL数据库名
SqlUsername = "sq_caopeng" 'SQL数据库用户名
SqlPassword = "020310" 'SQL数据库用户密码
SqlLocalName = "(local)" 'SQL主机IP地址（本地可用“127.0.0.1”或“(local)”，非本机请用真实IP）
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
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
sub CloseConn()
conn.close
set conn=nothing
end sub
%>