dim conn
dim connstr
set conn=server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("数据库地址") &";Persist Security Info=False;Jet OLEDB:Database Password=zr3500mbsjk" '## MS Access 2000 on Brinkster
set conn= Server.CreateObject("adodb.connection")
conn.mode=adModeReadWrite
conn.ConnectionString=connstr
conn.connectiontimeout=30
conn.open