conn.asp

来自「实用的拍卖源码。适合个人建站学习使用。仅供学习参考」· ASP 代码 · 共 15 行

<%
'on error resume next
'dim dbpath,connstr,conn

dbpath="../"&datasetup

Set conn = Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)
conn.Open connstr

function endconn
conn.close
set conn=nothing
end function
%>