以下為引用的內容: 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 %> |