conn.asp

来自「破解的整站程序,可自由下载.上传可直接使用,大家试一试吧」· ASP 代码 · 共 22 行

<%
dim conn
dim connstr
dim db
db="../Databases/0791idc.mdb" '数据库文件位置
'db="../Databases/#asp99_demo.asa" '数据库文件位置
'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

%>