<%@language=vbscript codepage=936%>
<%
'Option Explicit
response.buffer=True
'****************************************************************
'** 程序: 【网吧许愿墙】 QQ324707900
 
'****************************************************************

'修改首页公告信息,30个字以内
Const SITE_AD="许愿墙珍藏每一个心愿，把您的心愿吼出来吧~~~一定会心想事成的"

'修改过滤字符.以英文逗号隔开
Const BAN_LIST="江泽民,胡锦涛,温家宝,共产党,法轮,fuck,操,sex"

'修改发贴、搜索等操作间隔时间(秒)
Const KEEP_TIME=10	

'修改首页每页所显示条数
Const PAGE_SIZE=50

'修改列表页每页显示条数
Const LIST_SIZE=20


Dim db
	db="_#$bwre_gnit.asa"	'数据库路径
Dim conn
	Set conn=server.CreateObject("ADODB.CONNECTION")
	conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
%>