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

<%
dim SqlLocalName,SqlUsername,SqlPassword,SqlDatabaseName,Conn,ConnStr,db,Err_OpenDatabase
SqlLocalName ="(local)" '連接IP [ 本地用 (local) 外地用IP ]
SqlUsername ="sa" '用戶名
SqlPassword ="zhengque" '用戶密碼
SqlDatabaseName="vnut" '數(shù)據(jù)庫名
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
%>