<%@ LANGUAGE = VBScript CodePage = 936%><%
Option Explicit
Response.Buffer = True
Dim conn,db,prefix,timeset,connstr,time1,onlinetime,rs
prefix="Woodcoal.BBS"
Server.ScriptTimeout=40
timeset=0 '時區(qū)相對東八區(qū)（北京時間）
onlinetime=3  '保存用戶在線的時間(小時)。
db="/Database/BBS#DB.mdb"
set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(db)
conn.open connstr
Sub closedb
conn.close
Set conn = nothing
End Sub

%>