syslog_process.asp

来自「一个很好的asp cms管理系统」· ASP 代码 · 共 73 行

<%
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"-->
<!--#include file="inc/md5.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_SYSLOG") Then
    FLib.Alert "权限不足", "BACK", 0
    Response.End
ENd If

Db.Open()

Dim Work
    Work = Request("Work")

'选择执行操作
Select Case Work
    Case "DeleteReco"
        DeleteReco()
    Case "ClearReco"
        ClearReco()
End Select


'函数:删除记录
Function DeleteReco()
    Dim IdList
        IdList = FLib.SafeSql(Request("IdList"))
    If IdList = "" Then
        Exit Function
    End If

    Dim Sql
    Sql = "DELETE FROM sys_log_list WHERE id IN(" & IdList & ")"
    Db.ExeCute(Sql)

    FLib.Alert "执行完毕","SysLog_List.asp",0
    Response.End

End Function

'函数:清空记录
Function ClearReco()
    Dim Sql
    Sql = "DELETE FROM sys_log_list"
    Db.ExeCute(Sql)

    FLib.Alert "执行完毕","SysLog_List.asp",0
    Response.End

End Function
%>