res_class_process.asp

一个很好的asp cms管理系统

<%
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_GROUP2_RES_CLASS") Then
    FLib.Alert "权限不足", "BACK", 0
    Response.End
ENd If

Db.Open()

Dim Work
    Work = Request("Work")

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

Function AddReco()
    Dim parent, title, show_order, home_url, remark, show, directory_rule, filename_rule, replace_path, replace_with_url, template_id
    parent = FLib.SafeSql(Request("parent"))
    title = FLib.SafeSql(Request("title"))
    show_order = FLib.SafeSql(Request("show_order"))
    home_url = FLib.SafeSql(Request("home_url"))
    remark = FLib.SafeSql(Request("remark"))
    show = FLib.SafeSql(Request("show"))
    directory_rule = FLib.SafeSql(Request("directory_rule"))
    filename_rule = FLib.SafeSql(Request("filename_rule"))
    replace_path = FLib.SafeSql(Request("replace_path"))
    replace_with_url = FLib.SafeSql(Request("replace_with_url"))
    template_id = FLib.SafeSql(Request("template_id"))

    If template_id = "" Then
        template_id = "-1"
    End If

    Dim Sql, Rs
    Sql = "INSERT INTO res_class_list (parent, title, show_order, home_url, remark, show, directory_rule, filename_rule, replace_path, replace_with_url, template_id, creator, addtime)VALUES(" & parent & ", '" & title & "', " & show_order & ",  '" & home_url & "', '" & remark & "', " & show & ", '" & directory_rule & "', '" & filename_rule & "', '" & replace_path & "', '" & replace_with_url & "'," & template_id & ", '" & Admin.UserName & "', GETDATE())"
    Db.ExeCute(Sql)
    FLib.AddLog "增加频道：" & title

    FLib.Alert "执行完毕","Res_Class_List.asp?Parent=" & FLib.GetCookie("ResClassList_Parent"), 0
    Response.En

End Function

Function MdyReco()
    Dim rId, parent, title, show_order, home_url, remark, show, directory_rule, filename_rule, replace_path, replace_with_url, template_id
    rId = FLib.SafeSql(Request("rId"))
    parent = FLib.SafeSql(Request("parent"))
    title = FLib.SafeSql(Request("title"))
    show_order = FLib.SafeSql(Request("show_order"))
    home_url = FLib.SafeSql(Request("home_url"))
    remark = FLib.SafeSql(Request("remark"))
    show = FLib.SafeSql(Request("show"))
    directory_rule = FLib.SafeSql(Request("directory_rule"))
    filename_rule = FLib.SafeSql(Request("filename_rule"))
    replace_path = FLib.SafeSql(Request("replace_path"))
    replace_with_url = FLib.SafeSql(Request("replace_with_url"))
    template_id = FLib.SafeSql(Request("template_id"))

    If template_id = "" Then
        template_id = "-1"
    End If

    Dim Sql, Rs
    Sql = "UPDATE res_class_list SET parent=" & parent & ", title='" & title & "', show_order=" & show_order & ", home_url='" & home_url & "', remark='" & remark & "', show=" & show & ", directory_rule='" & directory_rule & "', filename_rule='" & filename_rule & "', replace_path='" & replace_path & "' , replace_with_url='" & replace_with_url & "' , template_id=" & template_id & " WHERE id=" & rId
    Db.ExeCute(Sql)
    FLib.AddLog "修改Id为：" & rId & "的频道"

    FLib.Alert "执行完毕","Res_Class_List.asp?Parent=" & FLib.GetCookie("ResClassList_Parent"), 0
    Response.End

End Function

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

    Dim arrIdList, I, Sql, Rs
        arrIdList = Split(IdList, ",")

    For I=0 To UBound(arrIdList)
        Sql = "SELECT Top 1 * FROM res_class_list WHERE parent=" & arrIdList(I)
        Set Rs = Db.ExeCute(Sql)
        If Rs.Eof And Rs.Eof Then
            Sql = "DELETE FROM res_class_list WHERE id  = " & arrIdList(I)
            Db.ExeCute(Sql)
        End If
    Next
    FLib.AddLog "删除频道，Id：" & IdList

    FLib.Alert "执行完毕","Res_Class_List.asp?Parent=" & FLib.GetCookie("ResClassList_Parent"), 0
    Response.End

End Function
%>