<%
   '定義連接及打開(kāi)連接為各程序共用
   dim conn   
   dim connstr,db
   on error resume next
   'connstr="driver={SQL Server};User Id=exam;PASSWORD=cddir;Description=examination;SERVER=10.184.7.8;DATABASE=exam"
   db="data\exam.mdb"
   Set conn = Server.CreateObject("ADODB.Connection")
   connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
   conn.open connstr 
%>