Set Conn = Server。CreateObject("ADODB。Connection") Set Rs = Server。CreateObject("ADODB。Recordset")Set Cmmd = Server。CreateObject("ADODB。
Command") ConnStr="DRIVER={SQL Server};server=。;UID=admin;PWD=123;DataBase=message"Conn。Open ConnStr Response。Write "数据库连接成功" End Sub答案补充修改成这样,把PWD="123"改成PWD=123答案补充错误分析,双引号"引住的内容是字符串,你在PWD="的这个双引号中,已经结束了字符串,但你后面又有内容,并且没有用"&"这个连接起来,所以会提示语句未结束错误如改成ConnStr="DRIVER={SQL Server};server=。
;UID=admin;PWD="&"123"&";DataBase=message"或ConnStr="DRIVER={SQL Server};server=。;UID=admin;PWD="&"123;DataBase=message"。
你把PWD="123"的双引号删掉好用了
Private Sub OpenConn()Dim SqlServer,SqlName,SqlPassword,DatabaseNameSqlServer = "(local)" 'sql服务器DatabaseName= "message" '数据库名称SqlName = "admin" '用户名SqlPassword = "123" '密码Set Conn = Server。
CreateObject("ADODB。Connection") Set Rs = Server。CreateObject("ADODB。Recordset")Set Cmmd = Server。CreateObject("ADODB。Command") ConnStr="driver={SQL Server}; server="&SqlServer&"; database="&DatabaseName&"; uid="&SqlName&"; pwd="&SqlPassword&""Conn。
Open ConnStr Response。Write "数据库连接成功" End Sub 答案补充If Err Then err。Clear Set Conn = Nothing Response。
Write "数据库连接错误!" Response。EndEnd If。
答：你要把asp文件放在IIS里设置好的路径下,如果你是单机测试asp文件的话,只要打开IE浏览器,在地址栏输入 （省略号表示你asp文件相对于站点的路径），这样就...详情>>
答：详情>>
