conn.asp

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

<%@ LANGUAGE = VBScript CodePage = 936%>
<%Option Explicit
Response.Buffer = True

Dim conn,db,prefix,timeset,connstr,time1,onlinetime,rs
prefix="99321.Net_BBS"
Server.ScriptTimeout=40
timeset=0 '时区相对东八区（北京时间）
onlinetime=0.2  '保存用户在线的时间(小时)。
Db = "/Database/BBS#DB.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)

On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
	err.Clear
	Set Conn = Nothing
	Response.Write "服务器升级中，请稍后访问..."
	Response.End
End If

Sub closedb
	conn.close
	set conn=nothing
End Sub%>