conn.asp连接不上，高手指点一下

Question

Set Conn=Server.CreateObject ("adodb.connection")
Conn.Open "driver={sql server};server="&58.61.157.153&";uid="&sq_xianjie84&";pwd="&ppij840314&";database="&sq_xianjie84 看一下是那里出错

Answer 1

Conn.Open "driver={sql server};server=58.61.157.153;uid=sq_xianjie84;pwd=ppij840314;database=sq_xianjie84  

Answer 2

Conn.Open "driver={sql server};server=58.61.157.153;uid=sq_xianjie84;pwd=ppij840314;database=sq_xianjie84"

Answer 3

SqlConnection conn = new SqlConnection("server=58.61.157.153;uid=sq_xianjie84;pwd=ppij840314;database=sq_xianjie84"）;

Answer 4

原文：
<%session.Timeout=180%>
<%
Dim scriptName
scriptName=Request.ServerVariables("script_name")
i = instrRev(scriptname,"/")
scriptname = ucase(right(scriptname,len(scriptname)-i))
'Response.Write scriptname
''''''''''''''''''''''''''''''''''''''''''''''''''''''以上四行语句得到本页面的文件名称，后边要进行文件名称比较Dim Conn
Dim DBFileObject,DBFile
Dim strTmp,strServer,strDB,strUid,strPwd,arrTmp
    
strTmp = ""
strServer = ""
strDB = ""
strUid = ""
strPwd = ""
set InfoEncrypt=server.CreateObject("Infoencrypt.encrypt")
'Response.Write infoencrypt.encode("yxz")& "<br>"
'Response.Write infoencrypt.encode("scm")& "<br>"
'Response.Write infoencrypt.encode("idudba")& "<br>"
'Response.Write infoencrypt.encode("iloveidu")& "<br>"
'Response.Write infoencrypt.encode("yxz数据库")& "<br>"
'Response.End 
Set DBFileObject = Server.CreateObject("Scripting.FileSystemObject")
   
Dim strFilePath
strFilePath = Trim(Request.ServerVariables("APPL_PHYSICAL_PATH"))
strFilePath = strFilePath + "ConfigSys\DBServerInfo.dat"    
Set DBFile = DBFileObject.OpenTextFile(strFilePath)
    
Count=0
Do while not DBFile.AtEndOfStream
strTmp = DBFile.ReadLine
arrTmp = split(strTmp,"и",-1) 
if InfoEncrypt.decode(trim(arrTmp(4)))=Request.Form("strAccount") then
strServer = InfoEncrypt.decode(trim(arrTmp(0)))
strDB =InfoEncrypt.decode(trim(arrTmp(1)))
strUid =InfoEncrypt.decode(trim(arrTmp(2)))
strPwd =InfoEncrypt.decode(trim(arrTmp(3)))
session("strServer") = strServer
    session("strDB") =strDB
session("strUid") =strUid
session("strPwd") =strPwd
session("strAccount")=Request.Form("strAccount")
exit Do
End if
Count=Count+1
loop
DBFile.Close
'Response.Write strServer& "<br>" & strDB &"<br>"& strUid
'''''''''''''''''''''''''''''''''''''''''''''通过上页的表单值确定打开哪个帐套，并得到打开数据库连接的参数
'If IsObject(Session("SCMConn")) and Not IsNull(Session("SCMConn")) and scriptName<>"LOGIN.ASP" and session("UserID")<>"" Then
If IsObject(Session("SCMConn")) and Not IsNull(Session("SCMConn"))  and scriptName<>"LOGIN.ASP"  Then
Set Conn = Session("SCMConn")
Else
If strServer <> "" and strDB <> "" and strUid <> "" Then
'On Error Resume Next
Set Conn=Server.CreateObject ("adodb.connection")
Conn.Open "driver={sql server};server="&strServer&";uid="&strUid&";pwd="&strPwd&";database="&strDB
If Err.number>0 Then
Response.Write "数据库服务器端连接错误，请您点击<a href='mailto:[email protected]'>这里</a>用邮件与易读网管理员联系。谢谢！</p>"
Response.End
Else
Set Session("SCMConn") = Conn
End If
Else
'Response.Write "<br><br><div align=center><h1>数据库服务器配置有错误，请重新配置！</h1></div>"
'Response.End 
End If
End If''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''以下为 DataAccess组件
'If IsObject(Session("SCMDataAccess")) and  Not IsNull(Session("SCMDataAccess")) and scriptName<>"LOGIN.ASP"  and session("UserID")<>""  Then
If IsObject(Session("SCMDataAccess")) and  Not IsNull(Session("SCMDataAccess")) and scriptName<>"LOGIN.ASP"   Then
Set DataAccess = Session("SCMDataAccess")
Else
If strServer <> "" and strDB <> "" and strUid <> "" Then
dim DataAccess
Set DataAccess=server.CreateObject("DataAccess.Access")
DataAccess.Server =strServer
DataAccess.UserName=strUid
DataAccess.Password=strPwd
DataAccess.DB =strDB
DataAccess.OpenConn()

If Err.number>0 Then
Response.Write "数据库服务器端连接错误，请您点击<a href='mailto:[email protected]'>这里</a>用邮件与易读网管理员联系。谢谢！</p>"
Response.End
Else
Set Session("SCMDataAccess") = DataAccess
End If
Else
'Response.Write "<br><br><div align=center><h1>数据库服务器配置有错误，请重新配置！</h1></div>"
'Response.End 
End If
End If
'Response.Write strDB&"<br>asdf<br>"
'Response.Write strUid
'Response.End %>

Answer 5

strServer = InfoEncrypt.decode(trim(arrTmp(0)))
strDB =InfoEncrypt.decode(trim(arrTmp(1)))
strUid =InfoEncrypt.decode(trim(arrTmp(2)))
strPwd =InfoEncrypt.decode(trim(arrTmp(3)))你把这个4个变量打印出来，看看都是什么值

Answer 6

这个我也试过了，还是打不开，我在本地用企业管理器能连接上服务器，说明服务器正常，ASP文件上传到网站空间了，现在就差连接设置这里不行，各位高手帮忙一下，多谢啦