<%option Explicit
 'on error resume next
 '页面执行时间开始
 Dim start,times
 start=timer()
 times=0
'数据库的连接
 dim str,Conn,mdbdir
 mdbdir="data/Exblog3.asp"'数据库路径
 str="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath(mdbdir)
 set Conn=server.CreateObject("adodb.connection")
 Conn.open str
%>