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

		'## 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_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="<% =strPopUpBorderColor %>">
<% '########################################## %>
  <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="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>