以下为引用的内容: HTTP/1.1 200 OK Server: Microsoft-IIS/5.1 Date: Sun, 11 Jun 2006 00:59:27 GMT Connection: close Content-Length: 65 Content-Type: text/html Cache-control: private HTTP/1.1 401 错误: 拒绝访问。 |
以下为引用的内容: <% dim SqlLocalName,SqlUsername,SqlPassword,SqlDatabaseName,Conn,ConnStr,db,Err_OpenDatabase SqlLocalName ="(local)" '连接IP [ 本地用 (local) 外地用IP ] SqlUsername ="sa" '用户名 SqlPassword ="zhengque" '用户密码 SqlDatabaseName="vnut" '数据库名 Set conn = Server.CreateObject("ADODB.Connection") connstr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";" conn.Open connstr sub CloseConn() On Error Resume Next Conn.close set Conn=nothing end sub %> |