admin_config_ranks.asp

一个不错的ASP论坛源码

<%
'########## Snitz Forums 2000 Version 3.1 SR4 ####################
'#                                                               #
'#  汉化修改: 资源搜罗站                                         #
'#  电子邮件: [e-mail]                                     #
'#  主页地址: http://www.sdsea.com                               #
'#            http://www.99ss.net                                #
'#            http://www.cdown.net                               #
'#	     http://www.wzdown.com                               #
'#	     http://www.13888.net                                #
'#  论坛地址:http://ubb.yesky.net                                #
'#  最后修改日期: 2001/03/12    中文版本：Version 3.1 SR4        #
'#################################################################
'# 原始来源                                                      #
'# Snitz Forums 2000 Version 3.1 SR4                             #
'# Copyright 2000 http://forum.snitz.com - All Rights Reserved   #
'#################################################################
'#【版权声明】                                                   #
'#                                                               #
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,#
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。          #
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓#
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！  #
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作#
'# 如有任何问题请到我们的论坛告诉我们                            #
'#################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<% If Session(strCookieURL & "Approval") = "15916941253" Then %>
<!--#INCLUDE file="inc_functions.asp" -->
<!--#INCLUDE file="inc_top.asp" -->
<table border="0" width="100%">
  <tr>
    <td width="33%" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    <img src="<%=strImageURL %>icon_folder_open.gif" height=15 width=15 border="0">&nbsp;<a href="default.asp">返回论坛首页</a>&nbsp;<img src="<%=strImageURL %>icon_folder_open.gif" height=15 width=15 border="0">&nbsp;<a href="admin_home.asp">论坛管理中心</a>&nbsp;<img src="<%=strImageURL %>icon_folder_open_topic.gif" height=15 width=15 border="0">&nbsp;等级设定<br>
    </font></td>
  </tr>
</table>
<%
	if Request.Form("Method_Type") = "Write_Configuration" then 
		Err_Msg = ""
		if Request.Form("strRankAdmin") = "" then 
			Err_Msg = Err_Msg & "<li>你必须输入管理员称号</li>"
		end if
		if Request.Form("strRankMod") = "" then 
			Err_Msg = Err_Msg & "<li>你必须输入版主称号</li>"
		end if
		if Request.Form("strRankLevel0") = "" then 
			Err_Msg = Err_Msg & "<li>你必须输入新注册会员称号</li>"
		end if
		if Request.Form("strRankLevel1") = "" then 
			Err_Msg = Err_Msg & "<li>你必须输入等级一会员称号</li>"
		end if
		if Request.Form("strRankLevel2") = "" then 
			Err_Msg = Err_Msg & "<li>你必须输入等级二会员称号</li>"
		end if
		if Request.Form("strRankLevel3") = "" then 
			Err_Msg = Err_Msg & "<li>你必须输入等级三会员称号</li>"
		end if
		if Request.Form("strRankLevel4") = "" then 
			Err_Msg = Err_Msg & "<li>你必须输入等级四会员称号</li>"
		end if
		if Request.Form("strRankLevel5") = "" then 
			Err_Msg = Err_Msg & "<li>你必须输入等级五会员称号</li>"
		end if
		if cint(Request.Form("intRankLevel1")) > cint(Request.Form("intRankLevel2")) then 
			Err_Msg = Err_Msg & "<li>等级一不能比等级二高</li>"
		end if
		if cint(Request.Form("intRankLevel1")) > cint(Request.Form("intRankLevel3")) then 
			Err_Msg = Err_Msg & "<li>等级一不能比等级三高</li>"
		end if
		if cint(Request.Form("intRankLevel2")) > cint(Request.Form("intRankLevel3")) then 
			Err_Msg = Err_Msg & "<li>等级二不能比等级三高</li>"
		end if
		if cint(Request.Form("intRankLevel1")) > cint(Request.Form("intRankLevel4")) then 
			Err_Msg = Err_Msg & "<li>等级一不能比等级四高</li>"
		end if
		if cint(Request.Form("intRankLevel2")) > cint(Request.Form("intRankLevel4")) then 
			Err_Msg = Err_Msg & "<li>等级二不能比等级四高</li>"
		end if
		if cint(Request.Form("intRankLevel3")) > cint(Request.Form("intRankLevel4")) then 
			Err_Msg = Err_Msg & "<li>等级三不能比等级四高</li>"
		end if
		if cint(Request.Form("intRankLevel1")) > cint(Request.Form("intRankLevel5")) then 
			Err_Msg = Err_Msg & "<li>等级一不能比等级五高</li>"
		end if
		if cint(Request.Form("intRankLevel2")) > cint(Request.Form("intRankLevel5")) then 
			Err_Msg = Err_Msg & "<li>等级二不能比等级五高</li>"
		end if
		if cint(Request.Form("intRankLevel3")) > cint(Request.Form("intRankLevel5")) then 
			Err_Msg = Err_Msg & "<li>等级三不能比等级五高</li>"
		end if
		if cint(Request.Form("intRankLevel4")) > cint(Request.Form("intRankLevel5")) then 
			Err_Msg = Err_Msg & "<li>等级四不能比等级五高</li>"
		end if

		if Err_Msg = "" then

			'## Forum_SQL
			strSql = "UPDATE " & strTablePrefix & "CONFIG "
			strSql = strSql & " SET C_STRSHOWRANK = " & Request.Form("strShowRank") & ""
			strSql = strSql & ",    C_STRRANKADMIN = '" & ChkString(Request.Form("strRankAdmin"),"name") & "'"
			strSql = strSql & ",    C_STRRANKMOD = '" & ChkString(Request.Form("strRankMod"),"name") & "'"
			strSql = strSql & ",    C_STRRANKLEVEL0 = '" & ChkString(Request.Form("strRankLevel0"),"name") & "'"
			strSql = strSql & ",    C_STRRANKLEVEL1 = '" & ChkString(Request.Form("strRankLevel1"),"name") & "'"
			strSql = strSql & ",    C_STRRANKLEVEL2 = '" & ChkString(Request.Form("strRankLevel2"),"name") & "'"
			strSql = strSql & ",    C_STRRANKLEVEL3 = '" & ChkString(Request.Form("strRankLevel3"),"name") & "'"
			strSql = strSql & ",    C_STRRANKLEVEL4 = '" & ChkString(Request.Form("strRankLevel4"),"name") & "'"
			strSql = strSql & ",    C_STRRANKLEVEL5 = '" & ChkString(Request.Form("strRankLevel5"),"name") & "'"
			strSql = strSql & ",    C_STRRANKCOLORADMIN = '" & ChkString(Request.Form("strRankColorAdmin"),"name") & "'"
			strSql = strSql & ",    C_STRRANKCOLORMOD = '" & ChkString(Request.Form("strRankColorMod"),"name") & "'"
			strSql = strSql & ",    C_STRRANKCOLOR0 = '" & ChkString(Request.Form("strRankColor0"),"name") & "'"
			strSql = strSql & ",    C_STRRANKCOLOR1 = '" & ChkString(Request.Form("strRankColor1"),"name") & "'"
			strSql = strSql & ",    C_STRRANKCOLOR2 = '" & ChkString(Request.Form("strRankColor2"),"name") & "'"
			strSql = strSql & ",    C_STRRANKCOLOR3 = '" & ChkString(Request.Form("strRankColor3"),"name") & "'"
			strSql = strSql & ",    C_STRRANKCOLOR4 = '" & ChkString(Request.Form("strRankColor4"),"name") & "'"
			strSql = strSql & ",    C_STRRANKCOLOR5 = '" & ChkString(Request.Form("strRankColor5"),"name") & "'"
			strSql = strSql & ",    C_INTRANKLEVEL0 = " & ChkString(Request.Form("intRankLevel0"),"number") & ""