admin_config_features.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<% If Session(strCookieURL & "Approval") = "15916941253" Then %>
<!--#INCLUDE file="inc_functions.asp" -->
<!--#INCLUDE file="inc_top.asp" -->
	<TD width="70%" align="left" valign="top">
<TABLE border="0" width="85%" align=center>
  <TR>
    <TD width="33%" align="left" nowrap><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><a href="default.asp"><img src="<% =strImageURL %>icon_folder_open.gif" alt="返回论坛首页" border="0">&nbsp;<% =strForumTitle %></a>
<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open.gif" border="0">&nbsp;<A href="admin_home.asp">论坛管理中心</A>
<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;论坛设置
</FONT></TD>
  </TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>

<%
	if Request.Form("Method_Type") = "Write_Configuration" then
		Err_Msg = ""
		if Request.Form("strIMGInPosts") = "1" and Request.Form("strAllowForumCode") = "0" then
			Err_Msg = Err_Msg & "<li>如果允许贴图就必须开启本版专用代码</li>"
		end if
		if (Request.Form("strHotTopic") = "1" and strHotTopic = "1") or (Request.Form("strHotTopic") = "1" and strHotTopic = "0") then
			if Request.Form("intHotTopicNum") = "" then
				Err_Msg = Err_Msg & "<li>你必须设定热门主题的文章数</li>"
			end if
			if left(Request.Form("intHotTopicNum"), 1) = "-" then
				Err_Msg = Err_Msg & "<li>你必须设定确切的热门主题文章数</li>"
			end if
			if left(Request.Form("intHotTopicNum"), 1) = "+" then
				Err_Msg = Err_Msg & "<li>只能输入的数字不要包含 <b>+</b></li>"
			end if
		end if

		if Err_Msg = "" then

			'## Forum_SQL
			strSql = "UPDATE " & strTablePrefix & "CONFIG "
			strSql = strSql & " SET C_STRMOVETOPICMODE         = " & Request.Form("strMoveTopicMode") & ""
			strSql = strSql & ",    C_STRIPLOGGING             = " & Request.Form("strIPLogging") & ""
			strSql = strSql & ",    C_STRPRIVATEFORUMS         = " & Request.Form("strPrivateForums") & ""
			strSql = strSql & ",    C_STRSHOWMODERATORS        = " & Request.Form("strShowModerators") & ""
			strSql = strSql & ",    C_STRALLOWFORUMCODE        = " & Request.Form("strAllowForumCode") & ""
			strSql = strSql & ",    C_STRIMGINPOSTS            = " & Request.Form("strIMGInPosts") & ""
			strSql = strSql & ",    C_STRALLOWHTML             = " & Request.Form("strAllowHTML") & ""
			strSql = strSql & ",    C_STRALLOWCODE             = " & Request.Form("strAllowCODE") & ""
			strSql = strSql & ",    C_STRALLOWFLASH            = " & Request.Form("strAllowFLASH") & ""
			strSql = strSql & ",    C_STRHOTTOPIC              = " & Request.Form("strHotTopic") & ""
			if (Request.Form("strHotTopic") = "1" and strHotTopic = "1") or (Request.Form("strHotTopic") = "1" and strHotTopic = "0") then
				strSql = strSql & ",    C_INTHOTTOPICNUM           = " & Request.Form("intHotTopicNum") & ""
			end if
			strSql = strSql & ",    C_STRiconS                 = " & Request.Form("stricons") & ""
' ###			strSql = strSql & ",    C_STRSECUREADMIN           = " & Request.Form("strSecureAdmin") & ""
			strSql = strSql & ",    C_STRNOCOOKIES             = " & Request.Form("strNoCookies") & ""
			strSql = strSql & ",    C_STREDITEDBYDATE          = " & Request.Form("strEditedByDate") & ""
			strSql = strSql & ",    C_STRSHOWSTATISTICS        = " & Request.Form("strShowStatistics") & ""
			strSql = strSql & ",    C_STRSHOWPAGING            = " & Request.Form("strShowPaging") & ""
			strSql = strSql & ",    C_STRSHOWTOPICNAV          = " & Request.Form("strShowTopicNav") & ""
			strSql = strSql & ",    C_STRPAGESIZE		   = " & Request.Form("strPageSize") & ""
			strSql = strSql & ",    C_STRPAGENUMBERSIZE        = " & Request.Form("strPageNumberSize") & ""
			strSql = strSql & " WHERE CONFIG_ID = " & 1

			my_Conn.Execute (strSql)
			Application(strCookieURL & "ConfigLoaded") = ""

%>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">论坛设置完毕</font></p>
<meta http-equiv="Refresh" content="0; URL=admin_home.asp">

<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">修改完成！</font></p>

<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="admin_home.asp">回到管理中心</font></a></p>
<%		else %>
	<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你输入的资料有问题或没有填写完整</font></p>

	<table align=center border=0>
	  <tr>
	    <td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
		<ul>
		<% =Err_Msg %>
		</ul>
	    </font></td>
	  </tr>
	</table>

	<p align=center><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>><a href="JavaScript:history.go(-1)">请返回重新输入</a></font></p>
<%		end if %>
<%	else %>
<form action="admin_config_features.asp" method="post" id="Form1" name="Form1">
<input type="hidden" name="Method_Type" value="Write_Configuration">
<table border="0" cellspacing="1" cellpadding="3" align=center bgcolor="<% =strPopUpBorderColor %>">
  <tr valign="top">
    <td bgcolor="<% =strHeadCellColor %>" colspan="2"><B>&nbsp;<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">论坛设置</font></B></td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">限制版主移动该版主题：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    开启：<input type="radio" class="radio" name="strMoveTopicMode" value="1"<% if strMoveTopicMode <> "0" then Response.Write(" checked") %>>
    关闭：<input type="radio" class="radio" name="strMoveTopicMode" value="0"<% if strMoveTopicMode = "0" then Response.Write(" checked") %>>
    <a href="JavaScript:openWindow3('pop_config_help.asp#MoveTopicMode')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">记录IP：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    开启：<input type="radio" class="radio" name="strIPLogging" value="1"<% if strIPLogging <> "0" then Response.Write(" checked") %>>
    关闭：<input type="radio" class="radio" name="strIPLogging" value="0"<% if strIPLogging = "0" then Response.Write(" checked") %>>
    <a href="JavaScript:openWindow3('pop_config_help.asp#IPLogging')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">秘密论坛：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    开启：<input type="radio" class="radio" name="strPrivateForums" value="1"<% if strPrivateForums <> "0" then Response.Write(" checked") %>>
    关闭：<input type="radio" class="radio" name="strPrivateForums" value="0"<% if strPrivateForums = "0" then Response.Write(" checked") %>>
    <a href="JavaScript:openWindow3('pop_config_help.asp#privateforums')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">显示版主：</font></td>