<%
Dim BmEval_Db,BmEval_Conn,BMEval_MyDbPath
BmEval_Db="Data/z_BMEval.mdb"   '请改成您自己的数据库文件名

Sub BmEval_ConnectionDatabase
	Dim BMEval_ConnStr
	Set BmEval_Conn = Server.CreateObject("ADODB.Connection")
	BMEval_ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(BMEval_MyDbPath & BmEval_Db)
	BmEval_Conn.Open BMEval_ConnStr
End Sub
%>
