外挂编程

开发平台：

ASP/ASPX

Conn.asp：源码内容

							<%
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>"
%>

						