<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
response.buffer=True

'名称
Const sitetitle="网吧许愿墙"

'关键字
Const sitekeywords="网吧,许愿墙,许愿,心愿,贴字条"

'描述
Const sitedescription="通过“网吧许愿墙”把您的“愿望”贴到“网吧许愿墙”上，让亿万网友和您一起分享。"

'敏感字词过滤(,)
Const BAN_LIST="http,www,江泽民,胡锦涛,温家宝,共产党,法轮,fuck,操,sex,强奸,日你,性交,测试,test"

'发帖间隔时间(秒)
Const KEEP_TIME=10	

'首页显示条数
Const PAGE_SIZE=50

'列表显示条数
Const LOVE_SIZE=20

Dim db
	db="_lovewall.asa"	'数据库路径
Dim conn
	Set conn=server.CreateObject("ADODB.CONNECTION")
	conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
Sub Header(title)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="robots" content="noodp">
<meta name="keywords" content="<%=sitekeywords%>" />
<meta name="description" content="<%=sitedescription%>" />
<title><%=sitetitle & title%> - 网吧服务助手</title>
<link href="images/style.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="inc/common.js"></script>
</head>
<body>
<div style="display:none;" id="mask" onclick="Hide();"></div>
<div id="header">
	<div id="logo"><a href="default.asp"><img src="images/logo.jpg" alt="<%=sitetitle%>" /></a></div>
	<ul id="nav">
		<li id="nav_1"><a href="default.asp">首页</a></li>
		<li id="nav_2"><a href="add.asp">我要贴字条</a></li>
		<li id="nav_3"><a href="list.asp">字条列表</a></li>
	</ul>
	<form action="default.asp" onsubmit="return searchMsg();" id="searchBox">
		<span>字条搜索:</span>
		<input id="find" name="id" class="ipt" type="text" maxlength="10" size="13" value="输入字条编号" onclick="this.value='';" />
		<input type="submit" class="btn" value="搜索" />
	</form>
</div>
<%
End Sub
Sub Footer()
%>
<div id="footer">
	<div class="link"><span class="STYLE6 STYLE20"><font size="2"><strong>网吧许愿墙</strong></div>
</div>
</body>
</html>
<%
End Sub
%>