conn.asp

Excel的“录制宏”功能

<%
   '定义连接及打开连接为各程序共用
   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 
%>