下面是论坛的连接数据库方式，你看看，修改数据库名字调试下~应该们问题啊，如果出错，会有这个在维护升级的提示信息
Dim conn
Dim conntol
Dim mmdb '更改数据库名字
mmdb="数据库名字.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conntol="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&mmdb&"")
on error resume next
conn.Open conntol
if err then
err.clear
conn.Close
Response.Write "<span style=""font-size:14px; font-family:Verdana, Arial, 宋体;""""><p><strong>＜今晚在线--讨论组＞正在进行日常维护，请稍候再来！</p>HTTP://BBS.GamVan.COM</strong></span>"
Response.End
end if
