<%  dim connstrmx
    dim connmx
	dim dbmx
	dbmx="mingxing/data/mingxing.mdb"'日文章数和周文章数数据
connstrmx="DBQ="+server.mappath(dbmx)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
	Set connmx = Server.CreateObject("ADODB.Connection")
	connmx.Open connstrmx
%>