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

		'## Forum_SQL
		strSql = "UPDATE " & strTablePrefix & "CONFIG "
		strSql = strSql & " SET C_STRDEFAULTFONTFACE       = '" & Request("strDefaultFontFace") & "', "
		strSql = strSql & "     C_STRDEFAULTFONTSIZE       = '" & Request.Form("strDefaultFontSize") & "', "
		strSql = strSql & "     C_STRHEADERFONTSIZE        = '" & Request.Form("strHeaderFontSize") & "', "
		strSql = strSql & "     C_STRFOOTERFONTSIZE        = '" & Request.Form("strFooterFontSize") & "', "
		strSql = strSql & "     C_STRPAGEBGIMAGE           = '" & Request.Form("strPageBGImage") & "', "
		strSql = strSql & "     C_STRPAGEBGCOLOR           = '" & Request.Form("strPageBGColor") & "', "
		strSql = strSql & "     C_STRDEFAULTFONTCOLOR      = '" & Request.Form("strDefaultFontColor") & "', "
		strSql = strSql & "     C_STRLINKCOLOR             = '" & Request.Form("strLinkColor") & "', "
		strSql = strSql & "     C_STRLINKTEXTDECORATION    = '" & Request.Form("strLinkTextDecoration") & "', "
		strSql = strSql & "     C_STRVISITEDLINKCOLOR      = '" & Request.Form("strVisitedLinkColor") & "', "
		strSql = strSql & "     C_STRVISITEDTEXTDECORATION = '" & Request.Form("strVisitedTextDecoration") & "', "
		strSql = strSql & "     C_STRACTIVELINKCOLOR       = '" & Request.Form("strActiveLinkColor") & "', "
		strSql = strSql & "     C_STRHOVERFONTCOLOR        = '" & Request.Form("strHoverFontColor") & "', "
		strSql = strSql & "     C_STRHOVERTEXTDECORATION   = '" & Request.Form("strHoverTextDecoration") & "', "
		strSql = strSql & "     C_STRHEADCELLCOLOR         = '" & Request.Form("strHeadCellColor") & "', "
		strSql = strSql & "     C_STRHEADFONTCOLOR         = '" & Request.Form("strHeadFontColor") & "', "
		strSql = strSql & "     C_STRCATEGORYCELLCOLOR     = '" & Request.Form("strCategoryCellColor") & "', "
		strSql = strSql & "     C_STRCATEGORYFONTCOLOR     = '" & Request.Form("strCategoryFontColor") & "', "
		strSql = strSql & "     C_STRFORUMFIRSTCELLCOLOR   = '" & Request.Form("strForumFirstCellColor") & "', "
		strSql = strSql & "     C_STRFORUMCELLCOLOR        = '" & Request.Form("strForumCellColor") & "', "
		strSql = strSql & "     C_STRALTFORUMCELLCOLOR     = '" & Request.Form("strAltForumCellColor") & "', "
		strSql = strSql & "     C_STRFORUMFONTCOLOR        = '" & Request.Form("strForumFontColor") & "', "
		strSql = strSql & "     C_STRFORUMLINKCOLOR        = '" & Request.Form("strForumLinkColor") & "', "
		strSql = strSql & "     C_STRTABLEBORDERCOLOR      = '" & Request.Form("strTableBorderColor") & "', "
		strSql = strSql & "     C_STRPOPUPTABLECOLOR       = '" & Request.Form("strPopUpTableColor") & "', "
		strSql = strSql & "     C_STRPOPUPBORDERCOLOR      = '" & Request.Form("strPopUpBorderColor") & "', "
		strSql = strSql & "     C_STRNEWFONTCOLOR          = '" & Request.Form("strNewFontColor") & "', "
		strSql = strSql & "     C_STRTOPICWIDTHLEFT        = '" & Request.Form("strTopicWidthLeft") & "', "
		strSql = strSql & "     C_STRTOPICNOWRAPLEFT       = " & Request.Form("strTopicNoWrapLeft") & ", "
		strSql = strSql & "     C_STRTOPICWIDTHRIGHT       = '" & Request.Form("strTopicWidthRight") & "', "
		strSql = strSql & "     C_STRTABLEWIDTH	           = '" & Request.Form("strTableWidth") & "', "
		strSql = strSql & "     C_STRINSISTFONTCOLOR	   = '" & Request.Form("strInsistFontColor") & "', "
		strSql = strSql & "     C_STRTOPICNOWRAPRIGHT      = " & Request.Form("strTopicNoWrapRight") & " "
		strSql = strSql & " WHERE CONFIG_ID = 1"

'		Response.Write(strSql)
'		Response.End

		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 %>
<form method="post" action="colortemplates.asp">
<table border="0" cellspacing="1" cellpadding="4" align=center bgcolor="<% =strTableBorderColor %>">
<% '########################################## %>
  <tr valign="top">
  <td bgcolor="<% =strHeadCellColor %>" colspan="2"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">论坛配色方案</font></td>
  </tr>
  <tr align="center" valign="top">
  <td bgcolor="<% =strPopUpTableColor %>" align="right" width="70%">
  <div align="center">
    <div align="Right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">你可以在这里选择一种论坛提供的配色方案</font></div>
    <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> </font></div>
  </td>
  <td bgcolor="<% =strPopUpTableColor %>" width="30%">
  <div align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    <select name="select">
      <option value="default">默认值</option>
      <option value="WormCN_net_Default">WormCN.net 默认值</option>
      <option value="WormCN_net_Default_2">WormCN.net 默认值2</option>
      <option value="WormCN_net_Default_3">WormCN.net 默认值3</option>
      <option value="beige">灰色</option>
      <option value="BPISG">深蓝</option>
      <option value="darkstation">Dark Station</option>
      <option value="green">Green</option>
      <option value="grey">Grey</option>
      <option value="redrose">Red Rose</option>
      <option value="slide">Slide</option>
      <option value="fantasy">Fantasy</option>
      <option value="px">Px</option>
      <option value="madonna">Madonna</option>
      <option value="blacksun">Black Sun</option>
    </select>
    </font></div>
  </td>
  </tr>
  <tr align="center" valign="top">
  <td bgcolor="<% =strPopUpTableColor %>" colspan="2"><font face="courier" size="<% =strDefaultFontSize %>">
  <input type="hidden" name="template" value="Write">
  <input type="submit" name="Submit" value="使用此配色方案">
  </font></td>
  </tr>
  </table>
</form>
<form action="admin_config_colors.asp" method="post" id="Form1" name="Form1">
<input type="hidden" name="Method_Type" value="Write_Configuration">
<table width="400" border="0" cellspacing="1" cellpadding="4" align=center bgcolor="<% =strTableBorderColor %>">
<% '################################## %>
  <tr valign="top">
    <td bgcolor="<% =strHeadCellColor %>" colspan="3"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">字型样式/表格大小/框架颜色设定</font></td>
  </tr>