<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%session.CodePage=936%>
<%
'---------------------------數(shù)據(jù)庫連接函數(shù)---------------------------
	dim conn
	dim connstr
	dim db
	db="/admin/data/5284data.mdb"
	Set conn = Server.CreateObject("ADODB.Connection")
	Set conn1 = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	conn.Open connstr
	conn1.Open connstr
	If Err Then
		err.Clear
		response.write("數(shù)據(jù)庫連接出錯，請檢查連接字串。")
		response.End()
	End If
%>