www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > admin/admin_colors.asp

    <!--#include file="admin_scripts.asp" -->
<!--#include file="admin_top.asp" -->
<%
' *** Edit Operations: declare variables

' set the form action variable
dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
	MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
dim MM_abortEdit
MM_abortEdit = false

' query string to execute
dim MM_editQuery
MM_editQuery = ""

'check that the user is allowed to edit this page
if (Session("MM_UserAuthorization") <> 1) then 
	Response.Redirect(MM_authFailedURL)
end if
%>
<%
// *** Update Record: set variables
if (CStr(Request("MM_update")) = "form1" and CStr(Request("MM_recordId")) <> "") then

	dim MM_editConnection, MM_editTable, MM_editColumn, MM_recordId, MM_editRedirectUrl, MM_fieldsStr, MM_columnsStr
	MM_editConnection = MM_oConn_STRING
	MM_editTable  = "ac_color_scheme"
	MM_editColumn = "ID"
	MM_recordId = "" + Request.Form("MM_recordId") + ""
	MM_editRedirectUrl = "default.asp"
	MM_fieldsStr = "Name|value|Menu_font_color|value|Menu_font_color_over|value|Menu_heading_font_color|value|Content_font_color|value|Body_bg|value|Menu_item_bg|value|Menu_item_over_bg|value|Content_bg|value|Content_font_id|value|Category_font_id|value|Item_font_id|value|Border_dark|value|Border_light|value|Menu_type|value|Content_border|value"
	MM_columnsStr = "Name|',none,''|Menu_font_color|',none,''|Menu_font_color_over|',none,''|Menu_heading_font_color|',none,''|Content_font_color|',none,''|Body_bg|',none,''|Menu_item_bg|',none,''|Menu_item_over_bg|',none,''|Content_bg|',none,''|Content_font_id|none,none,NULL|Category_font_id|none,none,NULL|Item_font_id|none,none,NULL|Border_dark|',none,''|Border_light|',none,''|Menu_type|',none,''|Content_border|',none,''"

	' create the MM_fields and MM_columns arrays
	dim MM_fields, MM_columns
	MM_fields = Split(MM_fieldsStr, "|")
	MM_columns = Split(MM_columnsStr, "|")
  
	' set the form values
	dim MM_i
	For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
		MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
	Next

	' append the query string to the redirect URL
	If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
		If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
			MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
		Else
			MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
		End If
	End If 
end if
%>
<%
' *** Update Record: construct a sql update statement and execute it
If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

	' create the sql update statement
	dim MM_formVal, MM_typeArray, MM_delim, MM_altVal, MM_emptyVal, MM_editCmd
	MM_editQuery = "update " & MM_editTable & " set "
	For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
		MM_formVal = MM_fields(MM_i+1)
		MM_typeArray = Split(MM_columns(MM_i+1),",")
		MM_delim = MM_typeArray(0)
		If (MM_delim = "none") Then MM_delim = ""
		MM_altVal = MM_typeArray(1)
		If (MM_altVal = "none") Then MM_altVal = ""
		MM_emptyVal = MM_typeArray(2)
		If (MM_emptyVal = "none") Then MM_emptyVal = ""
		If (MM_formVal = "") Then
			MM_formVal = MM_emptyVal
		Else
			If (MM_altVal <> "") Then
				MM_formVal = MM_altVal
			ElseIf (MM_delim = "'") Then  ' escape quotes
				MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
			Else
				MM_formVal = MM_delim + MM_formVal + MM_delim
			End If
		End If
		If (MM_i <> LBound(MM_fields)) Then
			MM_editQuery = MM_editQuery & ","
		End If
		MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
	Next
	MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId
  
	If (Not MM_abortEdit) Then
		' execute the update
		Set MM_editCmd = Server.CreateObject("ADODB.Command")
		MM_editCmd.ActiveConnection = MM_editConnection
		MM_editCmd.CommandText = MM_editQuery
		MM_editCmd.Execute
		MM_editCmd.ActiveConnection.Close

		If (MM_editRedirectUrl <> "") Then
			Response.Redirect(MM_editRedirectUrl)
		End If
	End If  
End If
%>
<%
dim Color_Scheme__MMColParam
Color_Scheme__MMColParam = "1"
if (CStr(Request.QueryString("ID")) <> "") then
	Color_Scheme__MMColParam = CStr(Request.QueryString("ID"))
end if
%>
<%
'dim Color_Scheme, Color_Scheme_numRows
set Color_Scheme = Server.CreateObject("ADODB.Recordset")
Color_Scheme.ActiveConnection = MM_oConn_STRING
Color_Scheme.Source = "SELECT * FROM ac_color_scheme WHERE ID = "& Configuration.Fields.Item("Scheme_ID").Value &" "
Color_Scheme.CursorType = 0
Color_Scheme.CursorLocation = 2
Color_Scheme.LockType = 1
Color_Scheme.Open()
Color_Scheme_numRows = 0
%>
<%
dim Font_Scheme, Font_Scheme_numRows
set Font_Scheme = Server.CreateObject("ADODB.Recordset")
Font_Scheme.ActiveConnection = MM_oConn_STRING
Font_Scheme.Source = "SELECT * FROM ac_font_scheme ORDER BY type, size ASC"
Font_Scheme.CursorType = 0
Font_Scheme.CursorLocation = 2
Font_Scheme.LockType = 1
Font_Scheme.Open()
Font_Scheme_numRows = 0
%>
<form method="POST" action="<%=MM_editAction%>" name="mainform">
<table width="100%" border="0" cellpadding="5" cellspacing="0" class="ac_admin_main">
	<tr><td><img src="images/blank.gif" width="4" height="6"></td></tr>
	<tr valign="baseline"><td><%= adminHeading(2,lang_admin_default_001,"icons/text_rich_colored_24.gif",lang_admin_colors_001,"admin_colors.asp") %></td></tr>
	<% if name="Skin" then %>
		<tr><td class="contentarea"><table align="center" cellpadding="8"><tr><td><br><br><ol>This area does not apply when a Skin has been selected as the Color Scheme.<br><br>
		Color Scheme preferneces are set within Administration > Configuration<br><br>
		Skin preferences are set in the file /admin/skins/styles.asp</ol><br><br>
		</td></tr></table></td></tr>
	<% else %>
		<tr><td class="contentarea">
	        <table align="center">
	        <tr valign="baseline"> 
	            <td width="153" align="right" nowrap class="content_titles"><%= lang_admin_colors_002 %></td>
	            <td colspan="2" class="content_right"><%=(Color_Scheme.Fields.Item("Name").Value)%></td> 
	            <td class="content_right_div3"></td>
	            <td width="100%" rowspan="17"><br><br><br><br><br><br><br><br><br><br><br><br><br><br><center><img src="images/q_out.gif" name="q_out" id="q_out" border="0"></center></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td nowrap align="right" class="content_titles_div"><%= lang_admin_colors_003 %></td>
	            <td class="content_right_div"><input type="text" id="<%= lang_admin_colors_003 %>" name="Body_bg" value="<%=(Color_Scheme.Fields.Item("Body_bg").Value)%>" size="32"></td>
	            <td class="content_right_div"><A HREF='#' onClick="window.open('admin_colors_swatch.asp?field=Body_bg','colorform','width=210,height=165'); return false;"><img src="images/color.gif" border="0"></a></td>
	            <td class="content_right_div2"><img src="images/q.gif" name="q" border="0" width="20" height="22" id="q" onMouseOver="MM_swapImage('q_out','','images/q_body_bg.gif',1)" onMouseOut="MM_swapImgRestore()"></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td nowrap align="right" class="content_titles_div"><%= lang_admin_colors_004 %></td>
	            <td colspan="2" class="content_right_div"><select name="Menu_type" id="select11">
		<% if (Menu_type = "Classic") then %>
	                <option value="Classic" SELECTED><%= lang_admin_colors_005 %></option>
	                <option value="Dynamic">动态的</option>
		<% else %>
	                <option value="Classic">静态的</option>
	                <option value="Dynamic" SELECTED><%= lang_admin_colors_006 %></option>
		<% end if %>
	              </select></td>
	              <td class="content_right_div2"><img src="images/q.gif" name="q" border="0" width="20" height="22" id="q" onMouseOver="MM_swapImage('q_out','','images/q_menu_type.gif',1)" onMouseOut="MM_swapImgRestore()"></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td nowrap align="right" class="content_titles_div"><%= lang_admin_colors_008 %></td>
	            <td class="content_right_div"><input type="text" id="<%= lang_admin_colors_008 %>" name="Border_dark" value="<%= Border_dark %>" size="32"></td>
	            <td class="content_right_div"><A HREF='#' onClick="window.open('admin_colors_swatch.asp?field=Border_dark','colorform','width=210,height=165'); return false;"><img src="images/color.gif" border="0"></a></td>
	            <td class="content_right_div2"><img src="images/q.gif" name="q" border="0" width="20" height="22" id="q" onMouseOver="MM_swapImage('q_out','','images/q_border_dark.gif',1)" onMouseOut="MM_swapImgRestore()"></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td nowrap align="right" class="content_titles"><%= lang_admin_colors_009 %></td>
	            <td class="content_right"><input type="text" id="<%= lang_admin_colors_009 %>" name="Border_light" value="<%= Border_light %>" size="32"></td>
	            <td class="content_right"><A HREF='#' onClick="window.open('admin_colors_swatch.asp?field=Border_light','colorform','width=210,height=165'); return false;"><img src="images/color.gif" border="0"></a></td>
	            <td class="content_right_div3"><img src="images/q.gif" name="q" border="0" width="20" height="22" id="q" onMouseOver="MM_swapImage('q_out','','images/q_border_light.gif',1)" onMouseOut="MM_swapImgRestore()"></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td nowrap align="right" class="content_titles_div"><%= lang_admin_colors_012 %></td>
	            <td colspan="2" class="content_right_div"><select name="Category_font_id" id="select">
		<% 
		while (not Font_Scheme.EOF) 
		%>
	                <option value="<%=(Font_Scheme.Fields.Item("ID").Value)%>" <% if (Font_Scheme.Fields.Item("ID").Value = Color_Scheme.Fields.Item("Category_font_id").Value) then Response.Write("SELECTED") : Response.Write("") %> ><%=(Font_Scheme.Fields.Item("name").Value)%></option>
		<%
			Font_Scheme.MoveNext()
		wend
	
		if (Font_Scheme.CursorType > 0) then
	  		if (not Font_Scheme.BOF) then Font_Scheme.MoveFirst()
		else 
	  		Font_Scheme.Requery
		end if
		%>
	              </select></td>
	              <td class="content_right_div2"><img src="images/q.gif" name="q" border="0" width="20" height="22" id="q" onMouseOver="MM_swapImage('q_out','','images/q_heading_font_color.gif',1)" onMouseOut="MM_swapImgRestore()"></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td nowrap align="right" class="content_titles"><%= lang_admin_colors_013 %></td>
	            <td class="content_right"><input type="text" id="<%= lang_admin_colors_013 %>" name="Menu_heading_font_color" value="<%=(Color_Scheme.Fields.Item("Menu_heading_font_color").Value)%>" size="32"></td>
	            <td class="content_right"><A HREF='#' onClick="window.open('admin_colors_swatch.asp?field=Menu_heading_font_color','colorform','width=210,height=165'); return false;"><img src="images/color.gif" border="0"></a></td>
	            <td class="content_right_div3"><img src="images/q.gif" name="q" border="0" width="20" height="22" id="q" onMouseOver="MM_swapImage('q_out','','images/q_heading_font_color.gif',1)" onMouseOut="MM_swapImgRestore()"></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td nowrap align="right" class="content_titles_div"><%= lang_admin_colors_016 %></td>
	            <td colspan="2" class="content_right_div"><select name="Item_font_id" id="select4">
		<% 
		while (not Font_Scheme.EOF) 
		%>
	                <option value="<%=(Font_Scheme.Fields.Item("ID").Value)%>" <% if (Font_Scheme.Fields.Item("ID").Value = Color_Scheme.Fields.Item("Item_font_id").Value) then Response.Write("SELECTED") : Response.Write("") %> ><%=(Font_Scheme.Fields.Item("name").Value)%></option>
		<%
			Font_Scheme.MoveNext()
		wend
		
		if (Font_Scheme.CursorType > 0) then
			if (not Font_Scheme.BOF) then Font_Scheme.MoveFirst()
		else 
			Font_Scheme.Requery
		end if
		%>
	              </select></td>
	              <td class="content_right_div2"><img src="images/q.gif" name="q" border="0" width="20" height="22" id="q" onMouseOver="MM_swapImage('q_out','','images/q_menu_font_color.gif',1)" onMouseOut="MM_swapImgRestore()"></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td nowrap align="right" class="content_titles"><%= lang_admin_colors_017 %></td>
	            <td class="content_right"><input type="text" id="<%= lang_admin_colors_017 %>" name="Menu_font_color" value="<%=(Color_Scheme.Fields.Item("Menu_font_color").Value)%>" size="32"></td>
	            <td class="content_right"><A HREF='#' onClick="window.open('admin_colors_swatch.asp?field=Menu_font_color','colorform','width=210,height=165'); return false;"><img src="images/color.gif" border="0"></a></td>
	            <td class="content_right_div3"><img src="images/q.gif" name="q" border="0" width="20" height="22" id="q" onMouseOver="MM_swapImage('q_out','','images/q_menu_font_color.gif',1)" onMouseOut="MM_swapImgRestore()"></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td nowrap align="right" class="content_titles"><%= lang_admin_colors_018 %></td>
	            <td class="content_right"><input type="text" id="<%= lang_admin_colors_018 %>" name="Menu_font_color_over" value="<%=(Color_Scheme.Fields.Item("Menu_font_color_over").Value)%>" size="32"></td>
	            <td class="content_right"><A HREF='#' onClick="window.open('admin_colors_swatch.asp?field=Menu_font_color_over','colorform','width=210,height=165'); return false;"><img src="images/color.gif" border="0"></a></td>
	            <td class="content_right_div3"><img src="images/q.gif" name="q" border="0" width="20" height="22" id="q" onMouseOver="MM_swapImage('q_out','','images/q_menu_font_color_over.gif',1)" onMouseOut="MM_swapImgRestore()"></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td nowrap align="right" class="content_titles"><%= lang_admin_colors_019 %></td>
	            <td class="content_right"><input type="text" id="<%= lang_admin_colors_019 %>" name="Menu_item_bg" value="<%=(Color_Scheme.Fields.Item("Menu_item_bg").Value)%>" size="32"></td>
	            <td class="content_right"><A HREF='#' onClick="window.open('admin_colors_swatch.asp?field=Menu_item_bg','colorform','width=210,height=165'); return false;"><img src="images/color.gif" border="0"></a></td>
	            <td class="content_right_div3"><img src="images/q.gif" name="q" border="0" width="20" height="22" id="q" onMouseOver="MM_swapImage('q_out','','images/q_menu_item_bg.gif',1)" onMouseOut="MM_swapImgRestore()"></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td nowrap align="right" class="content_titles"><%= lang_admin_colors_020 %></td>
	            <td class="content_right"><input type="text" id="<%= lang_admin_colors_020 %>" name="Menu_item_over_bg" value="<%=(Color_Scheme.Fields.Item("Menu_item_over_bg").Value)%>" size="32"></td>
	            <td class="content_right"><A HREF='#' onClick="window.open('admin_colors_swatch.asp?field=Menu_item_over_bg','colorform','width=210,height=165'); return false;"><img src="images/color.gif" border="0"></a></td>
	            <td class="content_right_div3"><img src="images/q.gif" name="q" border="0" width="20" height="22" id="q" onMouseOver="MM_swapImage('q_out','','images/q_menu_item_over_bg.gif',1)" onMouseOut="MM_swapImgRestore()"></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td nowrap align="right" class="content_titles_div"><%= lang_admin_colors_021 %></td>
	            <td colspan="2" class="content_right_div"><select name="Content_font_id">
		<% 
		while (not Font_Scheme.EOF) 
		%>
	                <option value="<%=(Font_Scheme.Fields.Item("ID").Value)%>" <% if (Font_Scheme.Fields.Item("ID").Value = Color_Scheme.Fields.Item("Content_font_id").Value) then Response.Write("SELECTED") : Response.Write("") %> ><%=(Font_Scheme.Fields.Item("name").Value)%></option>
		<%
			Font_Scheme.MoveNext()
		wend
		
		if (Font_Scheme.CursorType > 0) then
			if (not Font_Scheme.BOF) then Font_Scheme.MoveFirst()
		else 
			Font_Scheme.Requery
		end if
		%>
	              </select></td>
	              <td class="content_right_div2"><img src="images/q.gif" name="q" border="0" width="20" height="22" id="q" onMouseOver="MM_swapImage('q_out','','images/q_content_font_color.gif',1)" onMouseOut="MM_swapImgRestore()"></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td nowrap align="right" class="content_titles"><%= lang_admin_colors_022 %></td>
	            <td class="content_right"><input type="text" id="<%= lang_admin_colors_022 %>" name="Content_font_color" value="<%=(Color_Scheme.Fields.Item("Content_font_color").Value)%>" size="32"></td>
	            <td class="content_right"><A HREF='#' onClick="window.open('admin_colors_swatch.asp?field=Content_font_color','colorform','width=210,height=165'); return false;"><img src="images/color.gif" border="0"></a></td>
	            <td class="content_right_div3"><img src="images/q.gif" name="q" border="0" width="20" height="22" id="q" onMouseOver="MM_swapImage('q_out','','images/q_content_font_color.gif',1)" onMouseOut="MM_swapImgRestore()"></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td nowrap align="right" class="content_titles"><%= lang_admin_colors_023 %></td>
	            <td width="196" class="content_right"><input type="text" id="<%= lang_admin_colors_023 %>" name="Content_bg" value="<%=(Color_Scheme.Fields.Item("Content_bg").Value)%>" size="32">
	            </td>
	            <td width="28" class="content_right"><A HREF='#' onClick="window.open('admin_colors_swatch.asp?field=Content_bg','colorform','width=210,height=165'); return false;"><img src="images/color.gif" border="0"></a></td>
	            <td class="content_right_div3"><img src="images/q.gif" name="q" border="0" width="20" height="22" id="q" onMouseOver="MM_swapImage('q_out','','images/q_content_bg.gif',1)" onMouseOut="MM_swapImgRestore()"></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td nowrap align="right" class="content_titles"><%= lang_admin_colors_024 %></td>
	            <td class="content_right"><input type="text" id="<%= lang_admin_colors_024 %>" name="Content_border" value="<%= Content_border %>" size="32"></td>
	            <td class="content_right"><A HREF='#' onClick="window.open('admin_colors_swatch.asp?field=Content_border','colorform','width=210,height=165'); return false;"><img src="images/color.gif" border="0"></a></td>
	            <td class="content_right_div3"><img src="images/q.gif" name="q" border="0" width="20" height="22" id="q" onMouseOver="MM_swapImage('q_out','','images/q_content_border.gif',1)" onMouseOut="MM_swapImgRestore()"></td>
	        </tr>
	        <tr valign="baseline"> 
	            <td align="right" class="content_apply"><%= lang_admin_config_008 %></td>
	            <td bgcolor="#6E7B83" class='contentarea2' colspan="4"><INPUT TYPE="image" SRC="images/save_out.gif" HEIGHT="39" WIDTH="39" BORDER="0" ALT="<%= lang_admin_config_009 %>" value="Update Record" name="Submit" id="Image1" onMouseOver="MM_swapImage('Image1','','images/save_over.gif',1)" onMouseOut="MM_swapImgRestore()" onClick="MM_validateForm('Body_bg','','R','Border_dark','','R','Border_light','','R','Menu_heading_font_color','','R','Menu_font_color','','R','Menu_font_color_over','','R','Menu_item_bg','','R','Menu_item_over_bg','','R','Content_font_color','','R','Content_bg','','R','Content_border','','R');return document.MM_returnValue"></td></td>
	        </tr>
	        </table>
		  <input type="hidden" name="MM_update" value="form1">
		  <input type="hidden" name="Name" value="<%=(Color_Scheme.Fields.Item("Name").Value)%>">
		  <input type="hidden" name="MM_recordId" value="<%= Color_Scheme.Fields.Item("ID").Value %>">
		</td>
		</tr>
	<% end if %>
</table>
</form>
<p>&nbsp;</p>
<%
Font_Scheme.Close()
%>

<!--#include file="admin_bottom.asp" -->