conn.asp

来自「购物系统(本版为正式商业版」· ASP 代码 · 共 10 行

<%
dim startime,conn,connstr,db,rsjf,sqljf
'on error resume next
startime=timer()
db="/db1.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>