admin_config_ranks.asp

一个不错的ASP论坛源码

			strSql = strSql & ",    C_INTRANKLEVEL1 = " & ChkString(Request.Form("intRankLevel1"),"number") & ""
			strSql = strSql & ",    C_INTRANKLEVEL2 = " & ChkString(Request.Form("intRankLevel2"),"number") & ""
			strSql = strSql & ",    C_INTRANKLEVEL3 = " & ChkString(Request.Form("intRankLevel3"),"number") & ""
			strSql = strSql & ",    C_INTRANKLEVEL4 = " & ChkString(Request.Form("intRankLevel4"),"number") & ""
			strSql = strSql & ",    C_INTRANKLEVEL5 = " & ChkString(Request.Form("intRankLevel5"),"number") & ""
			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_ranks.asp" method="post" id="Form1" name="Form1">
<input type="hidden" name="Method_Type" value="Write_Configuration">
<table border="0" cellspacing="1" cellpadding="4" align=center bgcolor="<% =strPopUpBorderColor %>">
  <tr valign="top">
    <td bgcolor="<% =strHeadCellColor %>" colspan="2"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><b>等级设定</b></font></td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">等级显示模式：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    <select name="strShowRank">
      <option value="0"<% if strShowRank = "0" then Response.Write(" selected")%>>无</option>
      <option value="1"<% if strShowRank = "1" then Response.Write(" selected")%>>只显示等级</option>
      <option value="2"<% if strShowRank = "2" then Response.Write(" selected")%>>只显示星号</option>
      <option value="3"<% if strShowRank = "3" then Response.Write(" selected")%>>显示星号和等级</option>
    </select>
    <a href="JavaScript:openWindow3('pop_config_help.asp#ShowRank')"><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="text" name="strRankAdmin" size="30" value="<% if strRankAdmin <> " " then Response.Write(strRankAdmin) end if %>">
    <img src="<%=strImageURL %>icon_smile_question.gif" border="0" alt="(Administrator)"></td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align=right><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">星号选择：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    <input type=radio name=strRankColorAdmin value=gold<% if strRankColorAdmin = "gold" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_gold.gif border=0>
    <input type=radio name=strRankColorAdmin value=silver<% if strRankColorAdmin = "silver" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_silver.gif border=0>
    <input type=radio name=strRankColorAdmin value=bronze<% if strRankColorAdmin = "bronze" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_bronze.gif border=0>
    <input type=radio name=strRankColorAdmin value=orange<% if strRankColorAdmin = "orange" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_orange.gif border=0>
    <input type=radio name=strRankColorAdmin value=red<% if strRankColorAdmin = "red" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_red.gif border=0>
    <input type=radio name=strRankColorAdmin value=purple<% if strRankColorAdmin = "purple" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_purple.gif border=0>
    <input type=radio name=strRankColorAdmin value=blue<% if strRankColorAdmin = "blue" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_blue.gif border=0>
    <input type=radio name=strRankColorAdmin value=cyan<% if strRankColorAdmin = "cyan" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_cyan.gif border=0>
    <input type=radio name=strRankColorAdmin value=green<% if strRankColorAdmin = "green" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_green.gif border=0>
    <a href="JavaScript:openWindow3('pop_config_help.asp#RankColor')"><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="text" name="strRankMod" size="30" value="<% if strRankMod <> " " then Response.Write(strRankMod) end if %>">
    <img src="<%=strImageURL %>icon_smile_question.gif" border="0" alt="(Moderator)">
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align=right><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">星号选择：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    <input type=radio name=strRankColorMod value=gold<% if strRankColorMod = "gold" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_gold.gif border=0>
    <input type=radio name=strRankColorMod value=silver<% if strRankColorMod = "silver" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_silver.gif border=0>
    <input type=radio name=strRankColorMod value=bronze<% if strRankColorMod = "bronze" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_bronze.gif border=0>
    <input type=radio name=strRankColorMod value=orange<% if strRankColorMod = "orange" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_orange.gif border=0>
    <input type=radio name=strRankColorMod value=red<% if strRankColorMod = "red" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_red.gif border=0>
    <input type=radio name=strRankColorMod value=purple<% if strRankColorMod = "purple" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_purple.gif border=0>
    <input type=radio name=strRankColorMod value=blue<% if strRankColorMod = "blue" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_blue.gif border=0>
    <input type=radio name=strRankColorMod value=cyan<% if strRankColorMod = "cyan" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_cyan.gif border=0>
    <input type=radio name=strRankColorMod value=green<% if strRankColorMod = "green" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_green.gif border=0>
    <a href="JavaScript:openWindow3('pop_config_help.asp#RankColor')"><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 %>">新注册用户称号：&nbsp;</font></td>
    <td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strRankLevel0" size="30" value="<% if strRankLevel0 <> " " then Response.Write(strRankLevel0) else Response.Write("Starting Member") end if %>">
    <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>文章数：</b></font><input type="text" name="intRankLevel0" size="5" value="0" readonly>
    <img src="<%=strImageURL %>icon_smile_question.gif" border="0" alt="（文章数少於等级一的会员）">
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align=right><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">星号选择：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    <input type=radio name=strRankColor0 value=gold<% if strRankColor0 = "gold" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_gold.gif border=0>
    <input type=radio name=strRankColor0 value=silver<% if strRankColor0 = "silver" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_silver.gif border=0>
    <input type=radio name=strRankColor0 value=bronze<% if strRankColor0 = "bronze" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_bronze.gif border=0>
    <input type=radio name=strRankColor0 value=orange<% if strRankColor0 = "orange" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_orange.gif border=0>
    <input type=radio name=strRankColor0 value=red<% if strRankColor0 = "red" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_red.gif border=0>
    <input type=radio name=strRankColor0 value=purple<% if strRankColor0 = "purple" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_purple.gif border=0>
    <input type=radio name=strRankColor0 value=blue<% if strRankColor0 = "blue" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_blue.gif border=0>
    <input type=radio name=strRankColor0 value=cyan<% if strRankColor0 = "cyan" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_cyan.gif border=0>
    <input type=radio name=strRankColor0 value=green<% if strRankColor0 = "green" then Response.Write(" checked") %>><img src=<%=strImageURL %>icon_star_green.gif border=0>
    <a href="JavaScript:openWindow3('pop_config_help.asp#RankColor')"><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="text" name="strRankLevel1" size="30" value="<% if strRankLevel1 <> " " then Response.Write(strRankLevel1) end if %>">
    <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>文章数：</b></font><input type="text" name="intRankLevel1" size="5" value="<% =intRankLevel1 %>">