📄 admin_collectionmanage.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<!--#include file="Admin_Common.asp"-->
<!--#include file="Admin_CommonCode_Content.asp"-->
<!--#include file="Admin_CommonCode_Collection.asp"-->
<!--#include file="../Include/PowerEasy.XmlHttp.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Const NeedCheckComeUrl = True   '是否需要检查外部访问

Const PurviewLevel = 2      '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0   '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "Collection"   '其他权限


Dim rs, sql, i '通用变量
Dim rsItem, ItemID, ItemName, strsql, NeedSave

ItemID = PE_CLng(Trim(Request("ItemID")))
NeedSave = Trim(Request("NeedSave"))          '判断项目是否是需要保存
strFileName = "Admin_CollectionManage.asp?Action=" & Action

Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<title>采集管理</title>" & vbCrLf
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
Response.Write "<link rel=""stylesheet"" type=""text/css"" href=""Admin_Style.css"">" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">" & vbCrLf

Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"">" & vbCrLf
Call ShowPageTitle(" 采 集 系 统 项 目 管 理 ", 10052)
Response.Write "  <tr class=""tdbg""> " & vbCrLf
Response.Write "    <td width=""70"" height=""30""><strong>管理导航：</strong></td>" & vbCrLf
Response.Write "    <td height=""30""><a href=Admin_CollectionManage.asp?Action=ItemManage>管理首页</a> | <a href=""Admin_CollectionManage.asp?Action=Step1"">添加新项目</a> | <a href=Admin_CollectionManage.asp?Action=Import>导入项目</a> | <a href=""Admin_CollectionManage.asp?Action=Export"">导出项目</a></td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
If InStr(Action, "Step") > 0 Then
    Response.Write "<br>采集项目设置步骤：<a href=""Admin_CollectionManage.asp?Action=Step1&ItemID=" & ItemID & """>"
    If Action = "Step1" Then
        Response.Write "<font color=red>基本设置</font>"
    Else
        Response.Write "基本设置"
    End If
    Response.Write "</a> >> <a href=""Admin_CollectionManage.asp?Action=Step2&ItemID=" & ItemID & """>"
    If Action = "Step2" Then
        Response.Write "<font color=red>列表设置</font>"
    Else
        Response.Write "列表设置"
    End If
    Response.Write "</a> >> <a href=""Admin_CollectionManage.asp?Action=Step3&ItemID=" & ItemID & """>"
    If Action = "Step3" Then
        Response.Write "<font color=red>正文设置</font>"
    Else
        Response.Write "正文设置"
    End If
    Response.Write "</a> >> <a href=""Admin_CollectionManage.asp?Action=Step4&ItemID=" & ItemID & """>"
    If Action = "Step4" Then
        Response.Write "<font color=red>采样测试</font>"
    Else
        Response.Write "采样测试"
    End If
    Response.Write "</a> >> <a href=""Admin_CollectionManage.asp?Action=Step5&ItemID=" & ItemID & """>"
    If Action = "Step5" Then
        Response.Write "<font color=red>属性设置</font>"
    Else
        Response.Write "属性设置"
    End If
    Response.Write "</a> >> "
    If Action = "Step6" Then
        Response.Write "<font color=red>完成设置</font>"
    Else
        Response.Write "完成设置"
    End If
End If

Select Case Action
Case "Step1"                    '项目基本设置
    Call Step1
Case "Step2"                    '列表设置
    Call Step2
Case "Step3"                    '正文设置
    Call Step3
Case "Step4"                    '采样测试
    Call Step4
Case "Step5"                    '属性设置
    Call Step5
Case "Step6"                    '完成设置
    Call Step6
Case "Import"                   '项目导入第一步
    Call Import
Case "Import2"                  '项目导入第二步
    Call Import2
Case "DoImport"                 '导入项目处理
    Call DoImport
Case "Export"                   '导出项目
    Call Export
Case "DoExport"                 '导出项目处理
    Call DoExport
Case "ItemManage"               '采集编辑属性管理
    Call ItemManage
Case "ItemCopy"                 '批量项目复制
    Call ItemCopy
Case "DoItemCopy"               '项目复制处理
    Call DoItemCopy
Case "Batch"                    '批量设置项目属性
    Call Batch
Case "DoBatch"                  '处理设置项目属性
    Call DoBatch
Case "DelItem"
    Call DelItem
Case Else
    Call ItemManage
End Select
Response.Write "</body></html>"
Call CloseConn


Sub DelItem()
    Dim ItemID
    ItemID = Trim(Request("ItemID"))
	If IsValidID(ItemID) = False Then
		ItemID = ""
	End If

    If ItemID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<tr><td colspan='7'><li>请指定要删除的项目！</td></tr></table><br>"
    Else
        If InStr(ItemID, ",") > 0 Then
            Conn.Execute ("Delete From [PE_Item] Where ItemID In (" & ItemID & ")")
            Conn.Execute ("Delete From [PE_Filters] Where ItemID In (" & ItemID & ")")
            Conn.Execute ("Delete From [PE_HistrolyNews] Where ItemID In (" & ItemID & ")")
        Else
            Conn.Execute ("Delete From [PE_Item] Where ItemID=" & ItemID)
            Conn.Execute ("Delete From [PE_Filters] Where ItemID=" & ItemID)
            Conn.Execute ("Delete From [PE_HistrolyNews] Where ItemID=" & ItemID)
        End If
    End If
    Call ItemManage
End Sub
'=================================================
'过程名：ItemManage
'作  用：采集项目编辑
'=================================================
Sub ItemManage()

    Call DataBaseModify

    Dim SqlH, RsH, Flag
    Dim iChannelID, ClassID, SpecialID, ItemID, ItemName, ListUrl, WebName, NewsCollecDate
    Dim SkinID, LayoutID, SkinCount, LayoutCount, MaxPerPage

    If Request("page") <> "" Then
        CurrentPage = CInt(Request("page"))
    Else
        CurrentPage = 1
    End If
    MaxPerPage = PE_CLng(Trim(Request("MaxPerPage")))
    iChannelID = PE_CLng(Trim(Request("iChannelID")))
    If MaxPerPage <= 0 Then MaxPerPage = 10
            
    strFileName = "Admin_CollectionManage.asp?Action=ItemManage&iChannelID=" & iChannelID
    
    Response.Write "<br>"
    
    If IsObjInstalled("MSXML2.XMLHTTP") = False Then
        Call WriteErrMsg("<li>您的系统没有安装XMLHTTP 组件,请到微软网站下载MSXML 4.0", ComeUrl)
        Exit Sub
    End If

    Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "<tr class='title'><td colspan='2'> | "
    sql = "SELECT DISTINCT I.ChannelID, C.ChannelName,C.ModuleType FROM PE_Item I LEFT OUTER JOIN PE_Channel C ON I.ChannelID = C.ChannelID where C.ModuleType=1"
    Set rs = Conn.Execute(sql)
    If rs.BOF And rs.EOF Then
    Else
        Do While Not rs.EOF
            If IsNull(rs("ChannelName")) Then
            Else
                Response.Write "<a href='Admin_CollectionManage.asp?Action=ItemManage&iChannelID=" & rs("ChannelID") & "'><FONT style='font-size:12px'"
                If rs("ChannelID") = iChannelID Then Response.Write "color='red'"
                Response.Write "> " & rs("ChannelName") & "</FONT></a> | "
            End If
            rs.MoveNext
        Loop
        Response.Write "<a href='Admin_CollectionManage.asp?Action=ItemManage&iChannelID=0'><FONT style='font-size:12px'"
        If iChannelID = 0 Then Response.Write "color='red'"
        Response.Write "> 所有频道 </FONT></a> | "
    End If
    Response.Write "</td></tr>"
    Response.Write "</table>"
    rs.Close
    Set rs = Nothing
    Response.Write "<br>"
    Response.Write GetManagePath(iChannelID)
    Response.Write "<br>"
    Response.Write "<SCRIPT language=javascript>" & vbCrLf
    Response.Write "    function unselectall(thisform){" & vbCrLf
    Response.Write "        if(thisform.chkAll.checked){" & vbCrLf
    Response.Write "            thisform.chkAll.checked = thisform.chkAll.checked&0;" & vbCrLf
    Response.Write "        }   " & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    function CheckAll(thisform){" & vbCrLf
    Response.Write "        for (var i=0;i<thisform.elements.length;i++){" & vbCrLf
    Response.Write "            var e = thisform.elements[i];" & vbCrLf
    Response.Write "            if (e.Name != ""chkAll""&&e.disabled!=true)" & vbCrLf
    Response.Write "                e.checked = thisform.chkAll.checked;" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "</script>" & vbCrLf
    Response.Write "<table class=""border"" border=""0"" cellspacing=""1"" width=""100%"" cellpadding=""0"">" & vbCrLf
    Response.Write "<form name=""myform"" method=""POST"" action=""Admin_CollectionManage.asp"">" & vbCrLf
    Response.Write "  <tr class=""title"" style=""padding: 0px 2px;"">" & vbCrLf
    Response.Write "    <td width=""40"" height=""22"" align=""center""><strong>选择</strong></td>        " & vbCrLf
    Response.Write "    <td width=""100"" align=""center""><strong>项目名称</strong></td>" & vbCrLf
    Response.Write "    <td width=""100"" align=""center""><strong>采集地址</strong></td>" & vbCrLf
    Response.Write "    <td width=""100"" height=""22"" align=""center""><strong>所属频道</strong></td> " & vbCrLf
    Response.Write "    <td width=""100"" height=""22"" align=""center""><strong>所属栏目</strong></td> " & vbCrLf
    Response.Write "    <td width=""40"" align=""center""><strong>可运行</strong></td>        " & vbCrLf
    Response.Write "    <td width=""120"" height=""22"" align=""center""><strong>上次采集时间</strong>" & vbCrLf
    Response.Write "    <td width=""120"" height=""22"" align=""center""><strong>操作</strong></td>   " & vbCrLf
    Response.Write "  </tr>" & vbCrLf
        
    sql = "SELECT I.*,C.ChannelName,CL.ClassName,C.Disabled,C.ModuleType"
    sql = sql & " FROM (PE_Item I left JOIN PE_Channel C ON I.ChannelID =C.ChannelID)"
    sql = sql & " Left JOIN PE_Class CL ON I.ClassID = CL.ClassID"
    sql = sql & " where C.ModuleType=1"
    If iChannelID <> 0 Then sql = sql & " And I.ChannelID=" & iChannelID
    sql = sql & " ORDER BY I.ItemID DESC"

    
    Set rs = Server.CreateObject("adodb.recordset")
    rs.Open sql, Conn, 1, 1
    If rs.BOF And rs.EOF Then
        Response.Write "<tr class='tdbg'><td height='50' align='center' colspan='8'>系统中暂无采集项目！</td></tr></table>"
    Else
        totalPut = rs.RecordCount
12 3 4 5 下一页
💿 文件大小 7095 K
👤 上传用户 foreverlovely
📂 所属分类家庭/个人应用
🏷️ 相关标签

#网站 #比较
⌨️ 快捷键说明

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