<% on error resume next dim conn dim dbpath set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("data.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Mypagesize = 7 '每页显示留言数 PassWord = "123456" '管理密码 %>