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> </p> <% Font_Scheme.Close() %> <!--#include file="admin_bottom.asp" -->