www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > admin/admin_config2.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_configuration" MM_editColumn = "ID" MM_recordId = "" + Request.Form("MM_recordId") + "" MM_editRedirectUrl = "default.asp" MM_fieldsStr = "Site_name|value|Site_slogan|value|Upload_directory|value|Site_url|value|select|value|Language|value|Meta_keywords|value|Meta_description|value" MM_columnsStr = "Site_name|',none,''|Site_slogan|',none,''|Upload_directory|',none,''|Site_url|',none,''|Scheme_ID|none,none,NULL|Language|',none,''|Meta_keywords|',none,''|Meta_description|',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_SchemeConfig, Color_SchemeConfig_numRows set Color_SchemeConfig = Server.CreateObject("ADODB.Recordset") Color_SchemeConfig.ActiveConnection = MM_oConn_STRING Color_SchemeConfig.Source = "SELECT * FROM ac_color_scheme ORDER BY Name asc" Color_SchemeConfig.CursorType = 0 Color_SchemeConfig.CursorLocation = 2 Color_SchemeConfig.LockType = 1 Color_SchemeConfig.Open() Color_SchemeConfig_numRows = 0 %> <form method="POST" action="<%=MM_editAction%>" name="form1"> <table width="100%" border="0" cellpadding="5" cellspacing="0" class="ac_admin_main"> <tr> <td><img src="../images/blank.gif" width="18" height="6" alt="" /></td></tr> <tr><td><%= adminHeading(2,lang_admin_default_001,"icons/gear_24.gif",lang_admin_default_004,"admin_config.asp") %></td></tr> <tr><td bgcolor="#FFE7EF" class="contentarea" colspan="1"> <table align="center"> <tr valign="baseline"> <td align="right" nowrap class="content_titles"><%= lang_admin_config_001 %></td> <td class="content_right" width="100%"> <input type="text" id="<%= lang_admin_config_001 %>" name="Site_name" value="<%=(Site_name)%>" size="32"> </td> </tr> <tr valign="baseline"> <td align="right" nowrap class="content_titles"><%= lang_admin_config_002 %></td> <td class="content_right"> <input type="text" id="<%= lang_admin_config_002 %>" name="Site_slogan" value="<%=(Site_slogan)%>" size="32"> </td> </tr> <tr valign="baseline"> <td align="right" nowrap class="content_titles"><%= lang_admin_config_003 %></td> <td class="content_right"> <input type="text" id="<%= lang_admin_config_003 %>" name="Upload_directory" value="<%= Session("Site_uploadDir") %>" size="32"> </td> </tr> <tr valign="baseline"> <td align="right" nowrap class="content_titles"><%= lang_admin_config_004 %></td> <td class="content_right"> <input type="text" id="<%= lang_admin_config_004 %>" name="Site_url" value="<%=(Configuration.Fields.Item("Site_url").Value)%>" size="32"> </td> </tr> <tr valign="baseline"> <td align="right" nowrap class="content_titles"><%= lang_admin_config_005 %></td> <td class="content_right"> <select name="select"> <% while (not Color_SchemeConfig.EOF) %> <option value="<%=(Color_SchemeConfig.Fields.Item("ID").Value)%>" <% if (Color_SchemeConfig.Fields.Item("ID").Value = Configuration.Fields.Item("Scheme_ID").Value) then Response.Write("SELECTED") : Response.Write("") %> ><%=(Color_SchemeConfig.Fields.Item("Name").Value)%></option> <% Color_SchemeConfig.MoveNext() wend if (Color_SchemeConfig.CursorType > 0) then if (not Color_SchemeConfig.BOF) then Color_SchemeConfig.MoveFirst else Color_SchemeConfig.Requery end if %> </select></td> </tr> <tr valign="baseline"> <td align="right" nowrap class="content_titles"><%= lang_admin_config_007 %></td> <td class="content_right"> <select name="Language"> <option value="cn" <% if (Configuration.Fields.Item("Language").Value = "cn") then %>SELECTED<% end if %>>中文</option> <option value="en" <% if (Configuration.Fields.Item("Language").Value = "en") then %>SELECTED<% end if %>>英文</option> </select></td> </tr> <tr valign="baseline"> <td align="right" nowrap class="content_titles"><%= lang_admin_config_010 %></td> <td class="content_right"> <textarea rows="4" id="<%= lang_admin_config_010 %>" name="Meta_keywords" size="32"><%=(Meta_keywords)%></textarea> </td> </tr> <tr valign="baseline"> <td align="right" nowrap class="content_titles"><%= lang_admin_config_011 %></td> <td class="content_right"> <textarea rows="4" id="<%= lang_admin_config_011 %>" name="Meta_description" size="32"><%=(Meta_description)%></textarea> </td> </tr> <tr><td align="right" class="content_apply"><%= lang_admin_config_008 %></td><td bgcolor="#6E7B83" class='contentarea2'><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('Site_name','','R','Site_slogan','','R','Upload_directory','','R','Site_url','','R','Meta_keywords','','R','Meta_description','','R');return document.MM_returnValue"></td></tr> </table> <input type="hidden" name="MM_update" value="form1"> <input type="hidden" name="MM_recordId" value="<%= Configuration.Fields.Item("ID").Value %>"> </td></tr></table></form> <% Color_SchemeConfig.Close() Set Color_SchemeConfig = Nothing %> <!--#include file="admin_bottom.asp" -->