'连接数据库函数
function opendb(DBPath,sessionname,dbsort)
dim conn
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("db/XXXXXX.mdb")'这里设置access数据库的路径
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set session(sessionname)=conn
set opendb=session(sessionname)
end function
set conn=opendb("oabusy","conn","accessdsn") '打开数据库
sql="select count(*) as tatal from table" 'sql语句
set rs=conn.execute(sql) '执行sql语句