conn.asp

本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

<%@ 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 '时区相对东八区（北京时间）
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

%>