<%

'dbhost="127.0.0.1"                            ' 數(shù)據(jù)庫服務(wù)器IP
'dbuser="sa"                                ' 數(shù)據(jù)庫用戶名
'dbpass="sa"                                ' 數(shù)據(jù)庫密碼
dbname="hetong" 


Dim strConn,conn
Set conn = Server.CreateObject("ADODB.Connection")
strconn="DRIVER={SQL Server};SERVER=127.0.0.1;UID=sa;PWD=sa;DATABASE="&dbname
conn.Open strconn

sub endConn()
      conn.close
  set conn=nothing
end sub



%>