<%
   dim conn   
   dim connstr
   dim db
   db="../data/Huanqiu.mdb"
   Set conn = Server.CreateObject("ADODB.Connection")
   connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
   conn.open connstr 
%>