admin_config_ranks.asp

代码名称： Snitz Forums 2000 代码语言： 英文 代码类型： 国外代码 运行环境： ASP 授权方式： 免费代码 代码大小： 530kb 代码等级： 3 整

	strStarColor = split(arrStarColors, "|")

	Response.Write	"      <form action=""admin_config_ranks.asp"" method=""post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
			"      <input type=""hidden"" name=""Method_Type"" value=""Write_Configuration"">" & vbNewLine & _
			"      <table border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
			"        <tr>" & vbNewLine & _
			"          <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
			"            <table border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgcolor=""" & strHeadCellColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Ranking Configuration</b></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Show Ranking:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
			"                <select name=""strShowRank"">" & vbNewLine & _
			"                	<option value=""0""" & chkSelect(strShowRank,0) & ">None</option>" & vbNewLine & _
			"                	<option value=""1""" & chkSelect(strShowRank,1) & ">Rank Only</option>" & vbNewLine & _
			"                	<option value=""2""" & chkSelect(strShowRank,2) & ">Stars Only</option>" & vbNewLine & _
			"                	<option value=""3""" & chkSelect(strShowRank,3) & ">Rank and Stars</option>" & vbNewLine & _
			"                </select>" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=ranks#ShowRank')"">" & getCurrentIcon(strIconSmileQuestion,"ShowRank","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Administrator Name:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strRankAdmin"" size=""30"" value=""" & chkExistElse(chkString(strRankAdmin,"edit"),"Administrator") & """>" & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileQuestion,"(Administrator)","") & "</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Star Color:</b></font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	for c = 0 to ubound(strStarColor)
		Response.Write	"                <input type=""radio"" class=""radio"" name=""strRankColorAdmin"" value=""" & strStarColor(c) & """" & chkRadio(strRankColorAdmin,strStarColor(c),true) & ">" & getCurrentIcon(arrIconStarColors(c),"","") & vbNewLine
	next
	Response.Write	"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=ranks#RankColor')"">" & getCurrentIcon(strIconSmileQuestion,"RankColor","") & "</a>&nbsp;</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Moderator Name:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strRankMod"" size=""30"" value=""" & chkExistElse(chkString(strRankMod,"edit"),"Moderator") & """>" & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileQuestion,"(Moderator)","") & "</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Star Color:</b></font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	for c = 0 to ubound(strStarColor)
		Response.Write	"                <input type=""radio"" class=""radio"" name=""strRankColorMod"" value=""" & strStarColor(c) & """" & chkRadio(strRankColorMod,strStarColor(c),true) & ">" & getCurrentIcon(arrIconStarColors(c),"","") & vbNewLine
	next
	Response.Write	"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=ranks#RankColor')"">" & getCurrentIcon(strIconSmileQuestion,"RankColor","") & "</a>&nbsp;</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Starting Member Name:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strRankLevel0"" size=""30"" value=""" & chkExistElse(chkString(strRankLevel0,"edit"),"Starting Member") & """>" & vbNewLine & _
			"                <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Number:</b>&nbsp;</font><input type=""text"" name=""intRankLevel0"" size=""5"" value=""0"" readonly>" & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileQuestion,"(Member who has less than Member Level 1 but more than Starting Member Level posts)","") & "</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Member Level 1 Name:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strRankLevel1"" size=""30"" value=""" & chkExistElse(chkString(strRankLevel1,"edit"),"New Member") & """>" & vbNewLine & _
			"                <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Number:</b>&nbsp;</font><input type=""text"" name=""intRankLevel1"" size=""5"" value=""" & chkExistElse(intRankLevel1,50) & """>" & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileQuestion,"(Member who has between Member Level 1 and Member Level 2 posts)","") & "</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Star Color:</b></font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	for c = 0 to ubound(strStarColor)
		Response.Write	"                <input type=""radio"" class=""radio"" name=""strRankColor1"" value=""" & strStarColor(c) & """" & chkRadio(strRankColor1,strStarColor(c),true) & ">" & getCurrentIcon(arrIconStarColors(c),"","") & vbNewLine
	next
	Response.Write	"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=ranks#RankColor')"">" & getCurrentIcon(strIconSmileQuestion,"RankColor","") & "</a>&nbsp;</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Member Level 2 Name:</b>&nbsp;</font></td>" & vbNewLine & _
    			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strRankLevel2"" size=""30"" value=""" & chkExistElse(chkString(strRankLevel2,"edit"),"Junior Member") & """>" & vbNewLine & _
			"                <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Number:</b>&nbsp;</font><input type=""text"" name=""intRankLevel2"" size=""5"" value=""" & chkExistElse(intRankLevel2,100) & """>" & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileQuestion,"(Member who has between Member Level 2 and Member Level 3 posts)","") & "</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Star Color:</b></font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	for c = 0 to ubound(strStarColor)
		Response.Write	"                <input type=""radio"" class=""radio"" name=""strRankColor2"" value=""" & strStarColor(c) & """" & chkRadio(strRankColor2,strStarColor(c),true) & ">" & getCurrentIcon(arrIconStarColors(c),"","") & vbNewLine
	next
	Response.Write	"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=ranks#RankColor')"">" & getCurrentIcon(strIconSmileQuestion,"RankColor","") & "</a>&nbsp;</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Member Level 3 Name:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strRankLevel3"" size=""30"" value=""" & chkExistElse(chkString(strRankLevel3,"edit"),"Average Member") & """>" & vbNewLine & _
			"                <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Number:</b>&nbsp;</font><input type=""text"" name=""intRankLevel3"" size=""5"" value=""" & chkExistElse(intRankLevel3,500) & """>" & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileQuestion,"(Member who has between Member Level 3 and Member Level 4 posts)","") & "</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Star Color:</b></font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	for c = 0 to ubound(strStarColor)
		Response.Write	"                <input type=""radio"" class=""radio"" name=""strRankColor3"" value=""" & strStarColor(c) & """" & chkRadio(strRankColor3,strStarColor(c),true) & ">" & getCurrentIcon(arrIconStarColors(c),"","") & vbNewLine
	next
	Response.Write	"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=ranks#RankColor')"">" & getCurrentIcon(strIconSmileQuestion,"RankColor","") & "</a>&nbsp;</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Member Level 4 Name:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strRankLevel4"" size=""30"" value=""" & chkExistElse(chkString(strRankLevel4,"edit"),"Senior Member") & """>" & vbNewLine & _
			"                <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Number:</b>&nbsp;</font><input type=""text"" name=""intRankLevel4"" size=""5"" value=""" & chkExistElse(intRankLevel4,1000) & """>" & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileQuestion,"(Member who has between Member Level 4 and Member Level 5 posts)","") & "</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Star Color:</b></font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	for c = 0 to ubound(strStarColor)
		Response.Write	"                <input type=""radio"" class=""radio"" name=""strRankColor4"" value=""" & strStarColor(c) & """" & chkRadio(strRankColor4,strStarColor(c),true) & ">" & getCurrentIcon(arrIconStarColors(c),"","") & vbNewLine
	next
	Response.Write	"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=ranks#RankColor')"">" & getCurrentIcon(strIconSmileQuestion,"RankColor","") & "</a>&nbsp;</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Member Level 5 Name:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strRankLevel5"" size=""30"" value=""" & chkExistElse(chkString(strRankLevel5,"edit"),"Advanced Member") & """>" & vbNewLine & _
			"                <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Number:</b>&nbsp;</font><input type=""text"" name=""intRankLevel5"" size=""5"" value=""" & chkExistElse(intRankLevel5,2000) & """>" & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileQuestion,"(Member who has more than Member Level 5 posts)","") & "</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Star Color:</b></font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	for c = 0 to ubound(strStarColor)
		Response.Write	"                <input type=""radio"" class=""radio"" name=""strRankColor5"" value=""" & strStarColor(c) & """" & chkRadio(strRankColor5,strStarColor(c),true) & ">" & getCurrentIcon(arrIconStarColors(c),"","") & vbNewLine
	next
	Response.Write	"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=ranks#RankColor')"">" & getCurrentIcon(strIconSmileQuestion,"RankColor","") & "</a>&nbsp;</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Submit New Config"" id=""submit1"" name=""submit1""> <input type=""reset"" value=""Reset Old Values"" id=""reset1"" name=""reset1""></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"            </table>" & vbNewLine & _
			"          </td>" & vbNewLine & _
			"        </tr>" & vbNewLine & _
			"      </table>" & vbNewLine & _
			"      </form>" & vbNewLine
end if 
WriteFooter
Response.End
%>