www.pudn.com > QQ.zip > dbconn.asp, change:2009-07-11,size:260b


<% 
'On Error Resume Next 
   dim connstr,datapath,conn 
   datapath="../database/#qyky.mdb" 
   connstr="Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.mappath(datapath) 
   Set conn=Server.CreateObject("ADODB.Connection") 
   conn.open connstr 
 
%>