% Dim Conn Dim Rs Sub CloseDatabase Conn.close Set Conn = Nothing End Sub Sub OpenDatabase Dim StrServer,StrUid,StrSaPwd,StrDbName StrServer="192.168.1.1" '數(shù)據(jù)庫服務器名 StrUid="sa" '您的登錄帳號 StrSaPwd="" '您的登錄密碼 StrDbName="cnbruce.mdb" '您的數(shù)據(jù)庫名稱 Set Conn = Server.CreateObject("ADODB.Connection") '用于連接ACCESS Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" Server.MapPath(StrDbName) '用于連接MSSQL 'Conn.ConnectionString = "Driver={sql server};driver={SQL server};server="StrServer";uid="StrUid";pwd="StrSaPwd";database="StrDbName set rs=server.CreateObject("ADODB.RecordSet") conn.open if Err Then err.Clear Set Conn = Nothing GBL_CHK_TempStr = GBL_CHK_TempStr "數(shù)據(jù)庫連接錯誤!" Response.Write GBL_CHK_TempStr Response.End End If End Sub %>