conn.asp

来自「这是一个物流网站的源代码」· ASP 代码 · 共 22 行

<%
	'on error resume next
dim conn,connstr,dbstr
dbstr="../../data/#data.mdb"

set conn=CreateObject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.MapPath(dbstr)
conn.open connstr

set rs=server.createobject("adodb.recordset")

sub closeconn
	conn.close
	set conn=nothing
end sub
%>