<!--#include file=conn.asp-->
<!--#include file=const.asp -->
<%
if not theUser.admin then
	connclose()
	response.redirect ("index.asp")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=sitetitle%></title>
<META name="Author" content="木鸟">
<link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
</head>

<body>
<!--#include file="head.asp"-->
<!--#include file="admin_bar.inc"-->
<%
dim sql,rs,objPost

if request.form<>"" then
	set objPost=request.form
	sql="select  pageLinkNum,mustReg,masterRe,imgUbb,rcPerPage1,rcPerPage2,defaultSkin,defaultStyle,homepage,title,masterEmail,timeDiff,killWord,maxLength,showface,postLimit from GBconst"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	for i=1 to objPost.count
		if objPost(i)="" then
			rs(i-1)=null
		else
			rs(i-1)=objPost(i)
		end if
	next
	rs.update
	rs.close
	set rs=nothing
	set objPost=nothing
	getConst()
end if
connclose()
%>
<form method="POST" name="form1">
<table border="0" width="400" cellspacing="0" cellpadding="0" align="center" class="table004">
 <tr> 
  <td width="100%" class="table001" align="center"> 
	<table border="0" width="100%" cellspacing="0" cellpadding="7">
	<tr>
	<td colspan=2 class=table003 align=center><b>E4无忧系统设置</b></td>
	</tr>
	 <tr> 
	  <td width="60%" >每页显示页连接数：</td>
	  <td width="40%"> 
	   <input type="text" name="pageLinkNum" size="17" class="input1" value="<%=pageLinkNum%>" >
	  </td>
	 </tr>
	 <tr> 
	  <td >是否必须注册：</td>
	  <td > 
	  <select name="mustReg">
	  	<option value="1" >是</option>
	  	<option value="0" <% if not mustReg then response.write "selected" %> >否</option>
	  </select>
	  </td>
	 </tr>
	 <tr> 
	  <td >是否只有版主可以回复：</td>
	  <td > 
	  <select name="masterRe">
	  	<option value="1" >是</option>
	  	<option value="0" <% if not masterRe then response.write "selected" %> >否</option>
	  </select>
	  </td>
	 </tr>
	 <tr> 
	  <td >是否可以使用ubb帖图：</td>
	  <td > 
	  <select name="imgUbb">
	  	<option value="1" >是</option>
	  	<option value="0" <% if not imgUbb then response.write "selected" %> >否</option>
	  </select>
	  </td>
	 </tr>
	 <tr> 
	  <td >留言本方式查看时每页显示留言数：</td>
	  <td > 
	   <input type="text" name="rcPerPage1" size="17" class="input1" value="<%=rcPerPage1%>" >
	  </td>
	 </tr>
	 <tr> 
	  <td >讨论区方式查看时每页显示留言数：</td>
	  <td > 
	   <input type="text" name="rcPerPage2" size="17" class="input1" value="<%=rcPerPage2%>" >
	  </td>
	 </tr>
	 <tr> 
	  <td >默认界面风格（数字）：</td>
	  <td > 
	   <input type="text" name="defaultSkin" size="17" class="input1" value="<%=defaultSkin%>" >
	  </td>
	 </tr>
	 <tr> 
	  <td >默认显示方式<br>（1留言本式，2讨论区式）：</td>
	  <td > 
	   <input type="text" name="defaultStyle" size="17" class="input1" value="<%=defaultStyle%>" >
	  </td>
	 </tr>
	 <tr> 
	  <td >网站首页url：</td>
	  <td > 
	   <input type="text" name="homepage" size="17" class="input1" value="<%=homepage%>" >
	  </td>
	 </tr>
	 <tr> 
	  <td >网站标题：</td>
	  <td > 
	   <input type="text" name="sitetitle" size="17" class="input1" value="<%=sitetitle%>" >
	  </td>
	 </tr>
	 <tr> 
	  <td >网站联络email：</td>
	  <td > 
	   <input type="text" name="masterEmail" size="17" class="input1" value="<%=masterEmail%>" >
	  </td>
	 </tr>
	 <tr> 
	  <td >服务器时差（小时数,注意正负）：</td>
	  <td > 
	   <input type="text" name="timeDiff" size="17" class="input1" value="<%=timeDiff%>" >
	  </td>
	 </tr>
	 <tr> 
	  <td >过滤词语（英文逗号分隔）：</td>
	  <td > 
	   <input type="text" name="killWord" size="17" class="input1" value="<%
	   if ubound(killword)>=0 then
	   	response.write killword(0)
	   	for i=1 to ubound(killword)
	   		response.write ","&killword(i)
	   	next
	   end if
	   %>" >
	  </td>
	 </tr>
	 <tr> 
	  <td >留言内容最多字数：</td>
	  <td > 
	   <input type="text" name="maxLength" size="17" class="input1" value="<%=maxLength%>" >
	  </td>
	 </tr>
	 <tr> 
	  <td >是否显示用户头像：</td>
	  <td >
	  	<select name="showFace">
	  		<option value=0>否</option>
	  		<option value=1 <%if showFace then response.write "selected"%> >是</option>
	  	</select>
	  </td>
	 </tr>
	 <tr> 
	  <td >留言间隔时间(防灌水)：</td>
	  <td > 
	   <input type="text" name="postLimit" size="5" class="input1" value="<%=postLimit%>" > 秒
	  </td>
	 </tr>
	 <tr> 
	  <td width="100%" colspan="2" height="40"> 
	   <p align="center"> 
		<input type="submit" value="提交" class="input2" >
		&nbsp;&nbsp;&nbsp; 
		<input type="reset" value="清除" class="input2" >
	  </td>
	 </tr>
	</table>
   ：：： <a href="index.asp">返 回 留 言 首 页 面</a> ：：：<br>
  </td>
 </tr>
</table>
</form>
<!--#include file="foot.asp"-->

</body>

</html>
