conn.asp

本程序采用ACC数据核心构件！！ 功能介绍： 程序代码重新设计与优化

<%
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_set)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(DB_set)
conn.Open connstr
If Err Then
	Err.Clear
	Set conn = Nothing
	Response.Write "<br><br><br><center><font style=color:red;font-size:9pt;><b>数据库连接出错，请检查连接字串！</b></font></center>"
	Response.End
End If
	
sub CloseConn()
	On Error Resume Next
	If IsObject(Conn) Then
		conn.close
		set conn=nothing
	end if
end sub
Const Version = "<b>高级版</b> Ver3.2.0 SP2"
%>