<%  dim connstrbbs
    dim connbbs
	dim dbbbs
	dbbbs="datarexsp/datarexsp.mdb"'改成论坛数据库地址
 Set connbbs = Server.CreateObject("ADODB.Connection")
connstrbbs="DBQ="+server.mappath(dbbbs)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
 connbbs.open connstrbbs
%>