conn.asp

来自「电子商城」· ASP 代码 · 共 19 行

<%
   dim conn   
   dim connstr

   'on error resume next
   connstr="DBQ="+server.mappath("data/data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   set conn=server.createobject("ADODB.CONNECTION")
   if err then 
     err.clear
   else
        'conn.open Application("ConnectString") 
        conn.open connstr
        if err then 
           err.clear
        end if
   end if
%>