网络收藏

dim   conn,connstr,db  
  startime=timer()  
  if   not   isobject(session(sessionname))   then  
  set   conn=server.createobject("adodb.connection")  
  connstr="provider=microsoft.jet.oledb.4.0;data   source="   &   server.mappath("e-office/database/myoffice.mdb")  
  conn.open   connstr         （提示这里出错）！！  
  set   session(sessionname)=conn  
  function   closedatabase  
  conn.close  
  set   conn   =   nothing  
  end   if  
  set   opendb=session(sessionname)  
  end   function

推荐阅读