<!-- #include file="setup.asp" -->
<%
if adminpassword<>session("pass") then response.redirect "admin.asp?menu=login"
log(""&Request.ServerVariables("script_name")&"<br>"&Request.ServerVariables("Query_String")&"<br>"&Request.form&"")
id=int(Request("id"))


response.write "<center>"

select case Request("menu")

case "affichelist"
affichelist


case "link"
link

case "linkok"
linkok

case "editlink"
editlink


case "editlinkok"
conn.execute("update [link] set name='"&HTMLEncode(Request("name"))&"',logo='"&HTMLEncode(Request("logo"))&"',url='"&HTMLEncode(Request("url"))&"',intro='"&HTMLEncode(Request("intro"))&"',topme='"&HTMLEncode(Request("topme"))&"' where id="&Request("id")&"")
%>编 辑 成 功 ！<p><a href=javascript:history.back()>< 返 回 ></a><%


case "dellink"
conn.execute("delete from [link] where id="&id&"")
link



case "supernote"
content=Trim(request.Form("content"))
always=int(request.Form("always"))
content=replace(content,"'","")
content=replace(content,vbCrlf,"<br>")
conn.execute("update ecc set dinfor='"&content&"|"&always&"'")
error2("操作成功！")


case "registerok"
rs.Open "ecc",Conn,1,3
rs("regContent")=Request.Form("regContent")
rs("regName")=Request.Form("regName")
rs.update
rs.close
%>
更新成功<br><br><a href=javascript:history.back()>返 回</a>
<%

case "addaffiche"
addaffiche

case "addafficheok"
sql="select * from [affiche] where id="&id&""
rs.Open sql,Conn,1,3
if rs.eof then rs.addnew
rs("title")=""&Request("title")&""
rs("content")=replace(replace(Request("content"),vbCrlf,""),"'","&#39;")
rs("username")=""&Request.Cookies("username")&""
rs("posttime")=date()
rs.update
rs.close
sql="select top 2 * from affiche order by posttime Desc"
Set Rs=Conn.Execute(sql)
Do While Not RS.EOF
affiche=affiche&"<b>"&rs("title")&"</b> ("&rs("posttime")&")　　　"
RS.MoveNext
loop
Set Rs = Nothing
conn.execute("update [clubconfig] set affichetitle='"&affiche&"'")

%> 发布成功<br><br><a href=javascript:history.back()>返 回</a><%

case "delaffiche"
conn.execute("delete from [affiche] where id="&id&"")
sql="select top 2 * from affiche order by posttime Desc"
Set Rs=Conn.Execute(sql)
Do While Not RS.EOF
affiche=affiche&"<b>"&rs("title")&"</b> ("&rs("posttime")&")　　　"
RS.MoveNext
loop
Set Rs = Nothing
conn.execute("update [clubconfig] set affichetitle='"&affiche&"'")

%> 删除成功<br><br><a href=javascript:history.back()>返 回</a><%
case "variable"
variable

case "variableok"
variableok

case "register"
register

end select

sub affichelist
%>

<a href="?menu=addaffiche">发布公告</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
<a href="javascript:this.location.reload()">刷新列表</a><br>
　<table border="0" cellpadding="5" cellspacing="1" class=a2 width=97%>
<tr>
<td width="5%" align="center" height="25" class=a1>ID</td>
<td width="35%" align="center" height="25" class=a1>标题</td>
<td width="10%" align="center" height="25" class=a1>发布人</td>
<td width="15%" align="center" height="25" class=a1>发布时间</td>
<td width="15%" align="center" height="25" class=a1>管理</td>
</tr>
<%
sql="select * from affiche order by posttime Desc"
rs.Open sql,Conn,1
pagesetup=20 '设定每页的显示数量
rs.pagesize=pagesetup
TotalPage=rs.pagecount  '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1%>
<tr>



<td height="25" align="center" bgcolor="FFFFFF"> <%=rs("id")%>
<td height="25" align="center" bgcolor="FFFFFF"><%=rs("title")%>
<td height="25" align="center" bgcolor="FFFFFF"><a target="_blank" href="Profile.asp?username=<%=rs("username")%>"><%=rs("username")%></a>
<td height="25" align="center" bgcolor="FFFFFF"><%=rs("posttime")%>
<td height="25" align="center" bgcolor="FFFFFF"><a href="?menu=addaffiche&id=<%=rs("id")%>">修改公告</a> <a onclick=checkclick('您确定要删除该公告？') href="?menu=delaffiche&id=<%=rs("id")%>">删除公告</a></td>
</tr>
<%
RS.MoveNext
loop
RS.Close
%>
</table>
[<b>
<script>
ShowPage(<%=TotalPage%>,<%=PageCount%>,"")
</script>
</b>]

<%
end sub


sub link
%>
<FORM action=?menu=linkok method=post>
<table cellspacing="1" cellpadding="5" width="100%" border="0" class="a2" align=center>
<tr><td height="7" class="a1" colspan="2">　■<b> </b>友情链接管理</td></tr>

<tr><td height="6" class="a3">论坛名称：<INPUT size=60 name=name></td></tr>
<tr><td height="6" class="a3">论坛简介：<INPUT size=60 name=intro></td></tr>
<tr><td height="6" class="a3">地址 URL：<INPUT size=60 name=url value="http://"></td></tr>
<tr><td height="6" class="a3">图标 URL：<INPUT size=60 name=logo value="http://"></td></tr>

<tr><td height="6" class="a3">友情置顶：<input type=radio name="topme" value="0" <%if topme=0 then%>checked<%end if%> id=topme><label for=topme>取消</label><input type=radio name="topme" value="1" <%if topme=1 then%>checked<%end if%> id=topme_1><label for=topme_1>置顶</label></td></tr>


<tr>
<td height="6" class="a4" colspan="2" align="center">
<INPUT type=submit value=" 添 加 " name=Submit>
<input type="reset" value=" 重 填 " name="Submit2">
</td></tr></table>
</FORM>


<table cellspacing="1" cellpadding=5 width="<%=wid%>" border="0" class="a2" align="center">
<tr><td height="25" class="a1" colspan="3" valign="top">-=>友情链接</td></tr>
<%
rs.Open "link",Conn
do while not rs.eof

if rs("topme")=1 then
link3=link3+"<tr class=a3><td width=5% valign=top align=center><img src=images/mini.gif></td><td width=80% class=a4 valign=center><b><a onmouseover="&Chr(34)&"showmenu(event,'<div class=menuitems><a href=?menu=editlink&id="&rs("id")&">编辑</a></div><div class=menuitems><a href=?menu=dellink&id="&rs("id")&">删除</a></div>')"&Chr(34)&" title='"&rs("name")&""&chr(10)&""&rs("intro")&"' href="&rs("url")&" target=_blank>"&rs("name")&"</a></b><br>"&rs("intro")&"</td><td width=15% valign=top align=center><img src="&rs("logo")&" border=0 width=88 height=31></td></tr>"

else

if rs("logo")="" or rs("logo")="http://" then
link1=link1+"<a onmouseover="&Chr(34)&"showmenu(event,'<div class=menuitems><a href=?menu=editlink&id="&rs("id")&">编辑</a></div><div class=menuitems><a href=?menu=dellink&id="&rs("id")&">删除</a></div>')"&Chr(34)&" title='"&rs("intro")&"' href="&rs("url")&" target=_blank>"&rs("name")&"</a> | "
else
link2=link2+"<a onmouseover="&Chr(34)&"showmenu(event,'<div class=menuitems><a href=?menu=editlink&id="&rs("id")&">编辑</a></div><div class=menuitems><a href=?menu=dellink&id="&rs("id")&">删除</a></div>')"&Chr(34)&" title='"&rs("name")&""&chr(10)&""&rs("intro")&"' href="&rs("url")&" target=_blank><img src="&rs("logo")&" border=0 width=88 height=31></a> "
end if
end if
rs.movenext
loop
rs.close
%>
<%=link3%>
<tr class="a4">
<td width="5%" rowspan="2" valign=center><img src=images/shareforum.gif></td>
<td width="95%" colspan="2" valign=center><%=link2%></td>
</tr>
<tr class="a4">
<td colspan="2" valign=center><%=link1%></td>
</tr>
</table>

<%


end sub



sub editlink

sql="Select * From link where id="&Request("id")&""
Set Rs=Conn.Execute(sql)
%>
<FORM action=?menu=editlinkok method=post>
<input type=hidden name=id  value=<%=Request("id")%>>
<table cellspacing="1" cellpadding="5" width="100%" border="0" class="a2" align=center><tr>
	<td height="7" class="a1" colspan="2">　■<b> </b>友情链接管理</td></tr>

<tr><td height="6" class="a3">论坛名称：<INPUT size=60 name=name value="<%=rs("name")%>"></td></tr>
<tr><td height="6" class="a3">论坛简介：<INPUT size=60 name=intro value="<%=rs("intro")%>"></td></tr>
<tr><td height="6" class="a3">地址 URL：<INPUT size=60 name=url value="<%=rs("url")%>"></td></tr>
<tr><td height="6" class="a3">图标 URL：<INPUT size=60 name=logo value="<%=rs("logo")%>"></td></tr>

<tr><td height="6" class="a3">友情置顶：<input type=radio name="topme" value="0" <%if rs("topme")=0 then%>checked<%end if%> id=topme><label for=topme>取消</label><input type=radio name=topme value="1" <%if rs("topme")=1 then%>checked<%end if%> id=topme_1><label for=topme_1>置顶</label></td></tr>

<tr><td height="6" class="a4" colspan="2" align="center"><INPUT type=submit value=" 编 辑 " name=Submit>
<input type="reset" value=" 重 填 " name="Submit2">
</td></tr></table>
</FORM><p><a href=javascript:history.back()>< 返 回 ></a>
<%
end sub



sub linkok

if Request("url")="http://" or Request("url")="" then error2("论坛URL没有填写")

conn.Execute("insert into link(name,logo,url,intro,topme) values ('"&Request("name")&"','"&Request("logo")&"','"&Request("url")&"','"&Request("intro")&"','"&Request("topme")&"')")
link
end sub


sub register

set rs=conn.execute("select * from ecc")
%>
<form method="post" action="?menu=registerok">
<table cellspacing="1" cellpadding="2" width="97%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan=2>注册自动发送短信</td>
  </tr>
      <tr>
    <td class=a3 align=left width="20%"><font color=blue>发信人：</font><input size="10" name="regName" value="<%=rs("regName")%>"><br>限制字数255字<br>
	<font color="#FF0000">支持html语法</font><br><font color="#FF0000"><b>注意：内容为空，不自动发送信息</b></font>
 </td>
    <td class=a3>
<textarea name="regContent" rows="6" style="width:100%"><%=rs("regContent")%></textarea></td>
  </tr>
  
  </table>
  <br>
<input type="submit" value=" 更 新 ">
</form>
<!-----------------首页提示开始--------------->
<table cellspacing="1" cellpadding="2" width="97%" border="0" class="a2" align="center">
<form method="post" action="?menu=supernote"><tr height=25>
    <td class=a1 align=middle colspan=2><b>首页公告</b></td>
  </tr>
   <tr height=25>
    <td class=a3 align=middle width="20%">
显示设置：</td>
    <td class=a3 width="70%">
  不显示:<input type="radio" name="always" value="0" <%if always=0 then response.Write("checked") end if%>> &nbsp;每次进入首页都显示 :<input type="radio" name="always" value="1" <%if always=1 then response.Write("checked") end if%>>  &nbsp;显示一次:<input type="radio" name="always" value="2" <%if always=2 then response.Write("checked") end if%>></td></tr>
  <tr height=25>
    <td class=a3 align=middle width="20%">
内容：</td>
    <td class=a3 width="70%">
<textarea name="content" style="width:100%" rows="5"><%=notecontent%></textarea></td></tr>
   <tr height=25>
    <td class=a3 align=middle colspan=2>
<input type="submit" value=" 发 送 " name="submit3">
<input type="reset" value=" 重 填 " name="Submit4">
支持HTML代码</td></tr></form></table>
<!-----------------首页提示开始--------------->

<%
rs.close
end sub


sub addaffiche


if Request("id")<>empty then
sql="select * from [affiche] where id="&id&""
Set Rs=Conn.Execute(sql)
content=rs("content")
title=rs("title")
end if

%>
<form name="yuziform" method="post" action="?menu=addafficheok" onSubmit="return CheckForm(this);">
<input name="content" type="hidden" value='<%=content%>'>
<input name="id" type="hidden" value='<%=id%>'>

<table cellspacing="1" cellpadding="2" width="90%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan=2>发布公告</td>
  </tr>
   <tr height=25>
    <td class=a3 align=middle width="16%">
标题：</td>
    <td class=a3 width="82%">
<input type="text" name="title" size="60" value="<%=title%>"></td></tr>
   <tr height=25>
    <td class=a3 align=middle width="16%">
内容：</td>
    <td class=a3 width="82%" height="250">
    
    <SCRIPT src="inc/post.js"></SCRIPT>

</td></tr>
   <tr height=25>
    <td class=a3 align=middle colspan=2>
<input type="submit" value=" 发 送 " name="submit1">
<input name=preview type="Button" value=" 预 览 " onclick="Gopreview()">
<input type="reset" value=" 重 置 ">
</td></tr></table></form><form name=preview action=preview.asp method=post target=preview_page><input name="content" type="hidden"></form>
<a href=javascript:history.back()>返 回</a>
<%
end sub

sub variable
if ""&cluburl&""=empty then cluburl="http://"&Request.ServerVariables("server_name")&""&replace(Request.ServerVariables("script_name"),"admin_setup.asp","")&""
%>


<table cellspacing="1" cellpadding="2" width="97%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan=2>基本信息</td>
  </tr>
<form method="post" action="?menu=variableok">

<tr class=a3>
<td width="50%">社区名称：</td>
<td><input size="30" name="clubname" value="<%=clubname%>"></td>
</tr>
<tr class=a4>
<td>社区URL：<br>
<script>
autourl="http://<%=Request.ServerVariables("server_name")%><%=replace(Request.ServerVariables("script_name"),"admin_setup.asp","")%>"

if (autourl != '<%=cluburl%>'){
document.write("系统自动检测到的URL：<font color=FF0000>"+autourl+"</font>");
}
</script>

</td>
<td><input size="30" name="cluburl" value="<%=cluburl%>"></td>
</tr>
<tr class=a3>
<td>主页名称：</td>
<td><input size="30" name="homename" value="<%=homename%>"></td>
</tr>
<tr class=a4>
<td>主页地址：</td>
<td><input size="30" value="<%=homeurl%>" name="homeurl"></td>
</tr>

</table>



<br>
<table cellspacing="1" cellpadding="2" width="97%" border="0" class="a2" align="center">
  <tr height=25 class=a1>
    <td class=a4 align=middle colspan=2>信息设置</td>
  </tr>

  
  <tr class=a3>
<td width="50%">首页显示论坛深度：</td>
<td>
<input size="4" value="<%=floor%>" name="floor"> 级&nbsp; [默认:2]</tr>
	</tr>



    <tr class=a3>
<td>用户发帖间隔：</td>
<td><input size="4" value="<%=PostTime%>" name="PostTime"> 秒&nbsp; [默认:30]</td>
</tr>
  <tr class=a4>
<td>脚本超时时间：</td>
<td><input size="4" value="<%=Timeout%>" name="Timeout"> 秒&nbsp; [默认:60]</td>
</tr>

  
  <tr class=a3>
<td width="50%">统计用户在线时间：</td>
<td><input size="4" value="<%=OnlineTime%>" name="OnlineTime"> 秒&nbsp; [默认:1200]</td>
	</tr>
 
  <tr class=a4>
<td>定义论坛缓存名称：（如果一个站点有多个论坛请更改成不同名称）</td>
<td>
<input size="8" value="<%=CacheName%>" name="CacheName"></td>
</tr>
  
<tr class=a3>
<td>默认风格设置：（指定<font color="#FF0000">images/skins/</font>目录下的目录名即可）<br>
例如：<font color="FF0000">1</font></td>
<td>
<input size="8" value="<%=style%>" name="style"></td>
</tr>



</table>




<br>
<table cellspacing="1" cellpadding="2" width="97%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan=2>邮件信息</td>
  </tr>
  

<tr class=a3>
<td width="50%"0>发送邮件组件：</td>
<td>
<select name="selectmail">
<option value="">关闭</option>
<option value="JMail" <%if selectmail="JMail" then%>selected<%end if%>>JMail.Message</option>
<option value="CDONTS" <%if selectmail="CDONTS" then%>selected<%end if%>>CDONTS.NewMail</option>
</select>
</td>
</tr>
<tr class=a4>
<td>SMTP Server地址：</td>
<td><input size="30" value="<%=smtp%>" name="smtp"></td>
</tr>
<tr class=a3>
<td>邮件服务器登录名：</td>
<td><input size="30" value="<%=MailServerusername%>" name="MailServerusername"></td>
</tr>
<tr class=a4>
<td>邮件服务器登录密码：</td>
<td>
<input size="30" value="<%=MailServerPassword%>" name="MailServerPassword" type="password"></td>
</tr>
<tr class=a3>
<td>发件人Email地址：</td>
<td><input size="30" value="<%=smtpmail%>" name="smtpmail"></td>
</tr>  
</table>




<br>
<table cellspacing="1" cellpadding="2" width="97%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan=2>用户选项</td>
  </tr>


<tr class=a3>
<td width="50%">新用户注册：</td>
<td>
<input type=radio name="CloseRegUser" value="1" <%if CloseRegUser=1 then%>checked<%end if%> id=CloseRegUser><label for=CloseRegUser>关闭</label>
<input type=radio name="CloseRegUser" value="0" <%if CloseRegUser=0 then%>checked<%end if%> id=CloseRegUser_1><label for=CloseRegUser_1>开放</label>
</td>
</tr>



<tr class=a4>
<td>一个Email只能注册一个帐号</td>
<td>
<input type=radio name="RegOnlyMail" value="0" <%if RegOnlyMail=0 then%>checked<%end if%> id=RegOnlyMail><label for=RegOnlyMail>关闭</label>
<input type=radio name="RegOnlyMail" value="1" <%if RegOnlyMail=1 then%>checked<%end if%> id=RegOnlyMail_1><label for=RegOnlyMail_1>打开</label>
</td>
</tr>

<tr class=a3>
<td width="50%">注册用户密码通过Email发送：<br><font color="FF0000">服务器必须支持邮件发送功能</font></td>
<td>
<input type=radio name="SendPassword" value="0" <%if SendPassword=0 then%>checked<%end if%> id=SendPassword><label for=SendPassword>关闭</label>
<input type=radio name="SendPassword" value="1" <%if SendPassword=1 then%>checked<%end if%> id=SendPassword_1><label for=SendPassword_1>打开</label>
</td>
</tr>

<tr class=a4>
<td>注册后是否需要停留10分钟才能发表</td>
<td>
<input type=radio name="Reg10" value="0" <%if Reg10=0 then%>checked<%end if%> id=Reg10><label for=Reg10>关闭</label>
<input type=radio name="Reg10" value="1" <%if Reg10=1 then%>checked<%end if%> id=Reg10_1><label for=Reg10_1>打开</label>
</td>
</tr>




</table>


  <br>
<table cellspacing="1" cellpadding="2" width="97%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan=2>搜索选项</td>
  </tr>
<tr class=a4>
<td width="50%">搜索返回最多的结果数</td>
<td>
&nbsp;<input size="4" value="<%=MaxSearch%>" name="MaxSearch">&nbsp; [默认:500]</td>
</tr>
<tr class=a4>
<td width="50%">是否开启帖子内容搜索</td>
<td>
<input type=radio name="searchcontent" value="0" <%if searchcontent=0 then%>checked<%end if%> id=searchcontent><label for=searchcontent>关闭</label>
<input type=radio name="searchcontent" value="1" <%if searchcontent=1 then%>checked<%end if%> id=searchcontent_1><label for=searchcontent_1>打开</label>
</td>
</tr>
  
</table>



<br>
<table cellspacing="1" cellpadding="2" width="97%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan=2>论坛选项</td>
  </tr>
  

</tr>
  
<tr class=a3>
<td width="50%">帖子是否需要经过激活才能显示：</td>
<td>
<input type=radio name="ActivationForum" value="0" <%if ActivationForum=0 then%>checked<%end if%> id=ActivationForum><label for=ActivationForum>否</label>&nbsp;&nbsp;
<input type=radio name="ActivationForum" value="1" <%if ActivationForum=1 then%>checked<%end if%> id=ActivationForum_1><label for=ActivationForum_1>是</label>
</td>
</tr>

<tr class=a4>
<td width="50%">用户是否需要经过激活才能登录：</td>
<td>
<input type=radio name="ActivationUser" value="1" <%if ActivationUser=1 then%>checked<%end if%> id=ActivationUser><label for=ActivationUser>否</label>&nbsp;&nbsp;
<input type=radio name="ActivationUser" value="0" <%if ActivationUser=0 then%>checked<%end if%> id=ActivationUser_1><label for=ActivationUser_1>是</label>
</td>
</tr>





<tr class=a3>
<td width="50%">开放申请论坛功能：</td>
<td>
<input type=radio name="apply" value="0" <%if apply=0 then%>checked<%end if%> id=apply><label for=apply>关闭</label>
<input type=radio name="apply" value="1" <%if apply=1 then%>checked<%end if%> id=apply_1><label for=apply_1>开放</label>
</td>
</tr>

<tr class=a4>
<td width="50%">类别论坛与下属论坛拥有同样功能：
（如：<font color="FF0000">发帖、浏览</font>）</td>
<td>
<input type=radio name="SortShowForum" value="0" <%if SortShowForum=0 then%>checked<%end if%> id=SortShowForum><label for=SortShowForum>关闭</label>
<input type=radio name="SortShowForum" value="1" <%if SortShowForum=1 then%>checked<%end if%> id=SortShowForum_1><label for=SortShowForum_1>开放</label>
</td></tr>


<tr class=a3>
<td width="50%">打开来源检测（防止从外部提交数据）：</td>
<td>
<input type=radio name="StopOutPost" value="0" <%if StopOutPost=0 then%>checked<%end if%> id=StopOutPost><label for=StopOutPost>关闭</label>
<input type=radio name="StopOutPost" value="1" <%if StopOutPost=1 then%>checked<%end if%> id=StopOutPost_1><label for=StopOutPost_1>打开</label>
</td>
</tr>

<tr class=a4>
<td width="50%">发贴增加<font color=red>金钱</font>设置：
（如：<font color="FF0000">20</font>）&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="text" name="newtopicMONadd" value="<%=newtopicMONadd%>"  size="9"></td>
<td width="50%">回贴增加<font color=red>金钱</font>设置：
（如：<font color="FF0000">10</font>）&nbsp;&nbsp;&nbsp;
<input type="text" name="retopicMONadd" value="<%=retopicMONadd%>" size="9"></td>
</tr>

<tr class=a4>
<td width="50%">发贴增加<font color=red>经验值</font>设置：
（如：<font color="FF0000">10</font>）&nbsp;&nbsp;
<input type="text" name="newtopicEXPadd" value="<%=newtopicEXPadd%>"  size="9"></td>
<td width="50%">回贴增加<font color=red>经验值</font>设置：
（如：<font color="FF0000">5</font>）&nbsp;&nbsp;
<input type="text" name="retopicEXPadd" value="<%=retopicEXPadd%>" size="9"></td>
</tr>

<tr class=a4>
<td width="50%">发贴增加<font color=red>威望值</font>设置：
（如：<font color="FF0000">10</font>）&nbsp;&nbsp;
<input type="text" name="newtopicPOWadd" value="<%=newtopicPOWadd%>"  size="9"></td>
<td width="50%">回贴增加<font color=red>威望值</font>设置：
（如：<font color="FF0000">5</font>）&nbsp;&nbsp;
<input type="text" name="retopicPOWadd" value="<%=retopicPOWadd%>" size="9"></td>
</tr>

<tr class=a4>
<td width="50%">发贴增加<font color=red>魅力值</font>设置：
（如：<font color="FF0000">10</font>）&nbsp;&nbsp;
<input type="text" name="newtopicMAGadd" value="<%=newtopicMAGadd%>"  size="9"></td>
<td width="50%">回贴增加<font color=red>魅力值</font>设置：
（如：<font color="FF0000">5</font>）&nbsp;&nbsp;
<input type="text" name="retopicMAGadd" value="<%=retopicMAGadd%>" size="9"></td>
</tr>


<tr class=a4>
<td>首页显示论坛列表样式：</td>
<td>
<input type=radio name="ListStyle" value="0" <%if ListStyle=0 then%>checked<%end if%> id=ListStyle><label for=ListStyle>简洁</label>
<input type=radio name="ListStyle" value="1" <%if ListStyle=1 then%>checked<%end if%> id=ListStyle_1><label for=ListStyle_1>详细</label>
</td>
</tr>
</table>

<br>
<table cellspacing="1" cellpadding="2" width="97%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan=2>上传选项</td>
  </tr>

<tr class=a4>
<td width="50%">选择上传级别(<font color=red>大于您所选择的级别</font>)：</td>
<td>
<select name=filecode>
<option value="6" <%if filecode="6" then%>selected<%end if%>>ECC 区长</option>
<option value="5" <%if filecode="5" then%>selected<%end if%>>ECC管理员</option>
<option value="4" <%if filecode="4" then%>selected<%end if%>>超级版主</option>
<option value="3" <%if filecode="3" then%>selected<%end if%>>ECC 版主</option>
<option value="2" <%if filecode="2" then%>selected<%end if%>>VIP 会员</option>
<option value="1" <%if filecode="1" then%>selected<%end if%>>ECC 会员</option>
<option value="0" <%if filecode="0" then%>selected<%end if%>>未 注 册</option>
</select></td>
</tr>

<tr class=a4>
<td width="50%">选择上传组件：</td>
<td>
<select name="selectup">
<option value="">关闭</option>
<option value="FSO" <%if selectup="FSO" then%>selected<%end if%>>FSO</option>
<option value="SA-FileUp" <%if selectup="SA-FileUp" then%>selected<%end if%>>SA-FileUp</option>
</select></td>
</tr>
  
<tr class=a3>
<td width="50%">允许头像文件的大小：</td>
<td>
<input size="6" value="<%=MaxFace%>" name="MaxFace"> byte&nbsp; [默认:10240]</td>
</tr>

<tr class=a4>
<td>允许照片文件的大小：</td>
<td>
<input size="6" value="<%=MaxPhoto%>" name="MaxPhoto"> byte&nbsp; [默认:30720]</td>
</tr>
  
 <tr class=a3>
<td>允许附件文件的大小：</td>
<td>
<input size="6" value="<%=MaxFile%>" name="MaxFile"> byte&nbsp; [默认:102400]</td>
</tr>
   
  
   <tr class=a4>
<td>允许附件文件的类型：<br>例如：<font color="FF0000">gif|jpg|png|bmp|swf|txt|mid|doc|xls|zip|rar</font></td>
<td>
<input size="40" value="<%=UpFileGenre%>" name="UpFileGenre"> </td>
</tr>

</table>



<br>
<table cellspacing="1" cellpadding="2" width="97%" border="0" class="a2" align="center">
  <tr height=25 class=a1>
    <td class=a4 align=middle colspan=2>过滤设置</td>
  </tr>

  <tr class=a4>
<td width="50%">过滤敏感字（多字请用“|”分隔）：<br>例如：<font color="FF0000">fuck|shit|你妈</font></td>
<td><input size="40" value="<%=badwords%>" name="badwords"></td>
</tr>

  <tr class=a3>
<td width="50%">过滤用户帖子（多用户请用“|”分隔）：<br>例如：<font color="FF0000">yuzi|裕裕</font></td>
<td><input size="40" value="<%=badlist%>" name="badlist"></td>
</tr>

<tr class=a4>
<td width="50%">禁止IP地址进入论坛（多IP请用“|”分隔）：<br>例如：<font color="FF0000">127.0.0.1|192.168.0.1</font></td>
<td><input size="40" value="<%=badip%>" name="badip"></td>
</tr>

</table>


<br>

<table cellspacing="1" cellpadding="2" width="97%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan=2>插件选项</td>
  </tr>
<tr class=a4>
<td width="50%">打开验证码功能：</td>
<td>
<input type=radio name="yanzhengma" value="0" <%if yanzhengma=0 then%>checked<%end if%> id=yanzhengma><label for=yanzhengma>关闭</label>
<input type=radio name="yanzhengma" value="1" <%if yanzhengma=1 then%>checked<%end if%> id=yanzhengma_1><label for=yanzhengma_1>登陆验证</label>
<input type=radio name="yanzhengma" value="2" <%if yanzhengma=2 then%>checked<%end if%> id=yanzhengma_2><label for=yanzhengma_2>登陆和发回帖验证</label>
</td></tr>

<tr class=a3>
<td width="50%">打开/关闭社区即时聊天：</td>
<td>
<input type=radio name="fabiao" value="0" <%if fabiao=0 then%>checked<%end if%>>关闭
<input type=radio name="fabiao" value="1" <%if fabiao=1 then%>checked<%end if%>>打开</td>
</tr>

<tr class=a4>
<td width="50%">打开/关闭社区点歌祝福：</td>
<td>
<input type=radio name="diange" value="0" <%if diange=0 then%>checked<%end if%>>关闭
<input type=radio name="diange" value="1" <%if diange=1 then%>checked<%end if%>>打开</td>
</tr>

<tr class=a3>
<td width="50%">打开/关闭社区动态：</td>
<td>
<input type=radio name="dongtai" value="0" <%if dongtai=0 then%>checked<%end if%>>关闭
<input type=radio name="dongtai" value="1" <%if dongtai=1 then%>checked<%end if%>>打开</td>
</tr>

<tr class=a4>
<td width="50%">打开/关闭社区明星显示：</td>
<td>
<input type=radio name="mingx" value="0" <%if mingx=0 then%>checked<%end if%>>关闭
<input type=radio name="mingx" value="1" <%if mingx=1 then%>checked<%end if%>>打开</td>
</tr>

<tr class=a3>
<td width="50%">社区明星设置：</td>
<td>
一区设置：<select name="mingxa"><option value="<%=mingxa%>">默认设置</option><option value="1">今日明星</option><option value="2">本周明星</option><option value="3">本月明星</option><option value="4">今年明星</option><option value="5">真正明星</option></select>
二区设置：<select name="mingxb"><option value="<%=mingxb%>">默认设置</option><option value="1">今日明星</option><option value="2">本周明星</option><option value="3">本月明星</option><option value="4">今年明星</option><option value="5">真正明星</option></select></td>
</tr>

<tr class=a4>
<td width="40%">关闭/打开默认社区签名：</td>
<td>
<input type=radio name="Rtsignon" value="0" <%if Rtsignon=0 then%>checked<%end if%>>关闭
<input type=radio name="Rtsignon" value="1" <%if Rtsignon=1 then%>checked<%end if%>>打开
</td>
</tr>
<tr class=a3>
<td width="40%">默认社区签名(支持YBB代码)：</td>
<td><textarea name="Rtsign" cols="40" rows="5"><%=replace(Rtsign,"<br>",vbCrlf)%></textarea></td>  
</tr>

<tr class=a4>
<td width="40%">关闭/打开社区：</td>
<td>
<input type=radio name="guanclub" value="0" <%if guanclub=0 then%>checked<%end if%>>关闭
<input type=radio name="guanclub" value="1" <%if guanclub=1 then%>checked<%end if%>>打开
</td>
</tr>
<tr class=a3>
<td width="40%">关闭社区原因(支持HTML代码)：</td>
<td><textarea name="guanclubli" cols="40" rows="5"><%=guanclubli%></textarea></td>  
</tr>
</table><br>
<input type="submit" value=" 更 新 "></form>
<%
end sub


sub variableok

if Request("clubname")="" then error2("请输入社区名称")
if Request("style")="" then error2("默认风格不能没有设置")
if Request("SendPassword")="1" and Request("selectmail")="" then error2("您选择了注册用户密码通过Email发送，但是您没有设定发送邮件组件")


filtrate=split(Request("badip"),"|")
for i = 0 to ubound(filtrate)
if instr("|"&Request.ServerVariables("REMOTE_ADDR")&"","|"&filtrate(i)&"") > 0 then error2("请检查您输入的IP地址是否正确")
next




rs.Open "clubconfig",Conn,1,3
rs("badwords")=Request("badwords")
rs("clubname")=Request("clubname")
rs("cluburl")=Request("cluburl")
rs("homename")=Request("homename")
rs("homeurl")=Request("homeurl")
rs("selectmail")=Request("selectmail")
rs("smtp")=Request("smtp")
rs("smtpmail")=Request("smtpmail")
rs("MailServerusername")=Request("MailServerusername")
rs("MailServerPassword")=Request("MailServerPassword")
rs("badlist")=Request("badlist")
rs("badip")=Request("badip")
rs("style")=Request("style")
rs("CacheName")=Request("CacheName")
rs("selectup")=Request("selectup")
rs("UpFileGenre")=Request("UpFileGenre")
rs("allclass")=""&int(Request("floor"))&"\"&int(Request("CloseRegUser"))&"\"&int(Request("Reg10"))&"\"&int(Request("RegOnlyMail"))&"\"&int(Request("SendPassword"))&"\"&int(Request("apply"))&"\"&int(Request("Timeout"))&"\"&int(Request("OnlineTime"))&"\"&int(Request("MaxFace"))&"\"&int(Request("MaxPhoto"))&"\"&int(Request("MaxFile"))&"\"&int(Request("searchcontent"))&"\"&int(Request("MaxSearch"))&"\"&int(Request("ActivationForum"))&"\"&int(Request("ActivationUser"))&"\"&int(Request("SortShowForum"))&"\"&int(Request("PostTime"))&"\"&int(Request("ListStyle"))&"\"&int(Request("StopOutPost"))&""
rs.update

rs.close

rs.Open "ecc",Conn,1,3
Rtsign=HTMLEncode(Request("Rtsign"))
rs("plussetup")=""&Request("diange")&","&Request("dongtai")&","&Request("mingx")&","&Request("mingxa")&","&Request("mingxb")&","&Request("fabiao")&","&Request("guanclub")&","&Request("Rtsignon")&""

rs("topicadd")=""&Request("newtopicEXPadd")&","&Request("retopicEXPadd")&","&Request("newtopicMONadd")&","&Request("retopicMONadd")&","&Request("newtopicPOWadd")&","&Request("retopicPOWadd")&","&Request("newtopicMAGadd")&","&Request("retopicMAGadd")&""

rs("Rtsign")=replace(Rtsign,vbCrlf,"<br>")
rs("guanclubli")=Request("guanclubli")
rs("yanzhengma")=Request("yanzhengma")
rs("filecode")=Request("filecode")
if rs("dinfor")<>empty then
intro=split(rs("dinfor"),"|")
notecontent=intro(0)
always=intro(1)
end if
rs.update
rs.close

on error resume next
if Request("selectmail")="JMail" then
Set JMail=Server.CreateObject("JMail.Message")
If -2147221005 = Err Then error2("本服务器不支持 JMail.Message 组件！请关闭发送邮件功能！")
elseif Request("selectmail")="CDONTS" then
Set MailObject = Server.CreateObject("CDONTS.NewMail")
If -2147221005 = Err Then error2("本服务器不支持 CDONTS.NewMail 组件！请关闭发送邮件功能！")
end if


%>
更新成功<br><br><a href=javascript:history.back()>返 回</a>
<%
end sub



htmlend

%>