conn.asp

来自「一个企业管理ASP源码.增加了一些新的功能.」· ASP 代码 · 共 17 行

<%
dim conn,db
dim connstr
db="baseddata/basedsoft_592s.asp" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
	conn.close
	set conn=nothing
end sub
%>