<%
dim connj,plusstr,plusid
datapath1    ="database/"      '数据库目录的相对路径
datafile1    ="#(jiehun)#haha.mdb"      '数据库的文件名
plusstr="DBQ="&server.mappath(""&datapath1&""&datafile1&"")&";DRIVER={Microsoft Access Driver (*.mdb)};"
Set connj = Server.CreateObject("ADODB.Connection")
connj.Open plusstr
%>