admin_setup.asp

很漂亮

<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>




</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>首页显示论坛列表样式：</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%">选择上传组件：</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>






<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



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

%>