📄 config_mdy.asp

📁 一个很好的asp cms管理系统
💻 ASP
字号:
<%
Option Explicit
'----------------------------------------------------------------------------------
'本页:
'   系统配置编辑页面
'说明:
'
'----------------------------------------------------------------------------------
%>
<!--#include file="inc/Config.class.asp"-->
<!--#include file="inc/DBControl.class.asp"-->
<!--#include file="inc/FunctionLib.class.asp"-->
<!--#include file="inc/Manager.class.asp"-->
<%
Dim Cfg, Db, FLib, Admin
Set Cfg = New Config
Set Db = New DBControl
Set FLib = New FunctionLib
Set Admin = New Manager

If Not Admin.Logined Then
    FLib.Alert "对不起，你已经超时或未登录","./",1
    Response.End
End If

If Not Admin.CheckPopedom("TSYS_GROUP3_CONFIG") Then
    FLib.Alert "权限不足", "BACK", 0
    Response.End
ENd If

Dim Work
    Work = Request("Work")

Db.Open()
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/style.css" type="text/css">
<SCRIPT LANGUAGE="JavaScript">
<!--
function chkForm_MdyFile(obj)
{
    if(obj.Content.value == "")
    {
        alert("配置内容有误！");
        obj.Content.focus();
        return false;
    }
    return confirm("确定要提交修改后的配置内容？");

}
//-->
</SCRIPT>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
Select Case Work
    Case "MdyFile" :
        MdyFile()
End Select

Function MdyFile()
    Dim Fso, Fl, Fl2, Cfg_FilePath
    Cfg_FilePath = Server.MapPath("inc/Config.class.asp")
    Set Fso = Server.CreateObject(Cfg.FileSystemObject_Name)
    If Not Fso.FileExists(Cfg_FilePath) Then
        Set Fso = Nothing
        FLib.Alert "文件不存在", "BACK", 0
        Response.End
    End If
    Set Fl2 = Fso.GetFile(Cfg_FilePath)
    Set Fl = Fso.OpenTextFile(Cfg_FilePath, 1)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="tabTitleBar">
  <tr> 
    <td>系统管理 &gt; 系统配制</td>
  </tr>
</table>
<form name="form1" method="post" action="Config_Process.asp" onsubmit="return chkForm_MdyFile(this)">
  <table width="100%" border="0" cellspacing="0" cellpadding="2">
    <tr> 
      <td width="9%" valign="top" align="right">&nbsp;</td>
      <td width="91%" class="txtNote">注意,请在修改配置文件之前做备份,以便出现问题后及时恢复。</td>
    </tr>
    <tr> 
      <td width="9%" valign="top" align="right">配置内容:</td>
      <td width="91%"> 
        <textarea name="Content" cols="90" rows="40" wrap="OFF" style="width:100%" class="input_text"><%=Server.HtmlEncode(Fl.ReadAll())%></textarea>
      </td>
    </tr>
    <tr> 
      <td width="9%" align="right">文件属性:</td>
      <td width="91%">上次修改于:<b><%=Fl2.DateLastModified%></b>；当前文件大小为<b><%=FormatNumber(Fl2.Size,2)%></b>/K</td>
    </tr>
    <tr> 
      <td width="9%">&nbsp;</td>
      <td width="91%">&nbsp;</td>
    </tr>
    <tr> 
      <td width="9%">&nbsp;</td>
      <td width="91%"> 
        <input name="Submit43" type="submit" class="input_button" value="提  交">
        <input name="Submit223" type="reset" class="input_button" value="复位">
        <input name="Submit323" type="button" class="input_button" onClick="window.history.back()" value="返回">
        <input type="hidden" name="Work" value="MdyFile">
      </td>
    </tr>
  </table>
</form>
<%
    Fl.Close
    Set Fl = Nothing
End Function
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -