admin_timing.asp

个人网站比较简短

    If Timing_ClsDate = "yes" Then
        If SystemDatabaseType = "SQL" Then
            Conn.Execute "update PE_Config set Timing_Date='" & Date & "'"
        Else
            Conn.Execute "update PE_Config set Timing_Date=#" & Date & "#"
        End If
    End If

    Call PE_Cache.DelAllCache

    Set rs = Server.CreateObject("adodb.recordset")
    sql = "select * from PE_Config"
    rs.Open sql, Conn, 1, 3

    If rs.EOF Or rs.BOF Then
        Response.Write "您还没有添入系统设置表,请运行系统初始化。"
        Response.End
    Else
        rs("Timing_AreaCollection") = Timing_AreaCollection
        rs("Timing_CollectionItemID") = Timing_CollectionItemID
        rs("Timing_Time") = Timing_Time
        rs("Timing_SetDate") = Timing_SetDate
        rs("Timing_SetWeekday") = Timing_SetWeekday
        rs("Timing_SetDay") = Timing_SetDay
        rs.Update
    End If

    rs.Close
    Set rs = Nothing
        
    '定时生成保存
    iChannelID = PE_CLng(Trim(Request("iChannelID")))

    For i = 1 To iChannelID
        ChannelID = PE_CLng(Trim(Request("ChannelID" & i)))
        ModuleType = PE_CLng(Trim(Request("ModuleType" & i)))
        CreateItemType = PE_CLng(Trim(Request("CreateItemType" & i)))
        CreateItemTopNewNum = PE_CLng(Trim(Request("CreateItemTopNewNum" & i)))
        CreateItemDate = PE_CLng(Trim(Request("CreateItemDate" & i)))
        CreateClass = Trim(Request("CreateClass" & i))
        CreateSpecial = Trim(Request("CreateSpecial" & i))
        CreateChannel = Trim(Request("CreateChannel" & i))

        If CreateItemType = 1 Then
            If CreateItemTopNewNum = 0 Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>请选择您要最新生成的数量</li>"
            End If

        ElseIf CreateItemType = 2 Then

            If CreateItemDate = 0 Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>请选择您最近生成的天数</li>"
            End If
        End If

        If FoundErr = True Then
            Call WriteErrMsg(ErrMsg, ComeUrl)
            Exit Sub
        End If

        Set rs = Server.CreateObject("adodb.recordset")
        sql = "select top 1 * from PE_Channel where ChannelID=" & ChannelID
        rs.Open sql, Conn, 1, 3
        rs("TimingCreateSetting") = ChannelID & "," & ModuleType & "," & CreateItemType & "," & CreateItemTopNewNum & "," & CreateItemDate & "," & CreateClass & "," & CreateSpecial & "," & CreateChannel
        rs.Update
        rs.MoveNext
        rs.Close
        Set rs = Nothing
    Next

    Call WriteSuccessMsg("定时管理设置成功！", ComeUrl)
End Sub
'=================================================
'过程名：DoMainTiming
'作  用：定时采集主框架
'=================================================
Sub DoMainTiming()

    Response.Write "        <script language=""JavaScript"">" & vbCrLf
    Response.Write "        <!--" & vbCrLf
    Response.Write "        function Timing_Time(Timing_AreaCollection,CollectionItemID,TimingCreate){" & vbCrLf
    Response.Write "                objFiles.innerHTML= ""<iframe marginwidth=0 marginheight=0 frameborder=0 name='libin' width='100%' height='100%' src='Admin_Collection.asp?Action=Start&ItemID=""+CollectionItemID+""&ItemNum=1&ListNum=1&Arr_i=0&CollecNewsA=0&CollecNewsi=0&ItemSucceedNum=0&ItemSucceedNum2=0&CollecNewsj=0&ImagesNumAll=0&ItemIDtemp=0&CollecType=1&Content_object=1&Timing_AreaCollection=""+Timing_AreaCollection+""&TimingCreate=""+TimingCreate+""'></iframe>"";" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "        //-->" & vbCrLf
    Response.Write "        </script>" & vbCrLf
    Response.Write "        <table border='0' cellpadding='0' cellspacing='0' width='100%' height='100%' align='center'>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "           <td valign='top' height='30%'>"
    Response.Write "            <iframe marginwidth=0 marginheight=0 frameborder=0 name=""libin"" width=""100%"" height=""100%"" src=""Admin_Timing.asp?Action=DoTiming2""></iframe>"
    Response.Write "           </td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "           <td valign='top' id='objFiles' width='70%'></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "        </table>" & vbCrLf
End Sub
'=================================================
'过程名：DoTiming2
'作  用：定时启动项目
'=================================================
Sub DoTiming2()

    Dim rs, sql
    Dim rnd_temp
    Dim Timing_AreaCollection, Timing_CollectionItemID, CollectionItemName, Timing_SetDate, Timing_SetWeekday, Timing_SetDay, Timing_Time, Timing_Passed, Timing_Date, Timing_Renovate
    Dim arrChannelID, i, CreateItemType, CreateItemTopNewNum, CreateItemDate, CreateClass, CreateSpecial, CreateChannel
    Dim TimingCreate, TimingCreateNum, CreateChannelName
    Dim Timing_Startup

    Timing_Startup = False
    rnd_temp = Trim(Request("rnd_temp"))

    If PE_Cache.CacheIsEmpty("CollectionItemName" & rnd_temp) Then
        '清除缓存
        Call PE_Cache.DelAllCache
        '产生5位随机数
        rnd_temp = CStr(rnd_num(5))

        '加载定时记录
        sql = "select Timing_AreaCollection,Timing_CollectionItemID,Timing_SetDate,Timing_SetWeekday,Timing_SetDay,Timing_Time,Timing_Date from PE_Config"
        Set rs = Server.CreateObject("adodb.recordset")
        rs.Open sql, Conn, 1, 1

        If Not rs.EOF Then
            Timing_AreaCollection = rs("Timing_AreaCollection")
            Timing_CollectionItemID = rs("Timing_CollectionItemID")
            Timing_SetDate = rs("Timing_SetDate")
            Timing_SetWeekday = rs("Timing_SetWeekday")
            Timing_SetDay = rs("Timing_SetDay")
            Timing_Time = rs("Timing_Time")
            Timing_Date = rs("Timing_Date")
        End If

        rs.Close
        Set rs = Nothing

        If IsNull(Timing_CollectionItemID) = True Or Timing_CollectionItemID = "" Or IsValidID(Timing_CollectionItemID) = False Then
            Timing_CollectionItemID = "0"
        End If

        If Timing_CollectionItemID = "0" Then
        Else
            '获得采集项目名称
            sql = "select ItemName from PE_Item where ItemID"

            If InStr(Timing_CollectionItemID, ",") > 0 Then
                sql = sql & " in (" & Timing_CollectionItemID & ")"
            Else
                sql = sql & " =" & Timing_CollectionItemID
            End If

            sql = sql & " and Flag=" & PE_True
            Set rs = Server.CreateObject("adodb.recordset")
            rs.Open sql, Conn, 1, 1

            If rs.EOF And rs.BOF Then
            Else

                Do While Not rs.EOF

                    If CollectionItemName = "" Then
                        CollectionItemName = rs("ItemName")
                    Else
                        CollectionItemName = CollectionItemName & "," & rs("ItemName")
                    End If

                    rs.MoveNext
                Loop

            End If

            rs.Close
            Set rs = Nothing
        End If
        '获得频道项目名称
        sql = "select ChannelName,Disabled,UseCreateHTML,TimingCreateSetting from PE_Channel  where  ModuleType<>0 and ModuleType<>4 and Disabled=" & PE_False & " and UseCreateHTML > 0  order by ChannelID asc"
        Set rs = Server.CreateObject("adodb.recordset")
        rs.Open sql, Conn, 1, 1

        If rs.EOF And rs.BOF Then
        Else

            Do While Not rs.EOF
                TimingCreateNum = TimingCreateNum + 1

                If TimingCreate = "" Then
                    TimingCreate = rs("TimingCreateSetting")
                Else
                    TimingCreate = TimingCreate & "$" & rs("TimingCreateSetting")
                End If

                If CreateChannelName = "" Then
                    CreateChannelName = rs("ChannelName")
                Else
                    CreateChannelName = CreateChannelName & "," & rs("ChannelName")
                End If

                rs.MoveNext
            Loop

        End If

        rs.Close
        Set rs = Nothing

        '加载缓存
        
        PE_Cache.SetValue "Timing_AreaCollection" & rnd_temp, Timing_AreaCollection
        PE_Cache.SetValue "Timing_CollectionItemID" & rnd_temp, Timing_CollectionItemID
        PE_Cache.SetValue "CollectionItemName" & rnd_temp, CollectionItemName
        PE_Cache.SetValue "Timing_Date" & rnd_temp, Timing_Date
        PE_Cache.SetValue "Timing_SetDate" & rnd_temp, Timing_SetDate
        PE_Cache.SetValue "Timing_SetWeekday" & rnd_temp, Timing_SetWeekday
        PE_Cache.SetValue "Timing_SetDay" & rnd_temp, Timing_SetDay
        PE_Cache.SetValue "Timing_Time" & rnd_temp, Timing_Time
        PE_Cache.SetValue "TimingCreate" & rnd_temp, TimingCreate
        PE_Cache.SetValue "CreateChannelName" & rnd_temp, CreateChannelName
        
    End If

    Timing_AreaCollection = PE_Cache.GetValue("Timing_AreaCollection" & rnd_temp)
    Timing_CollectionItemID = PE_Cache.GetValue("Timing_CollectionItemID" & rnd_temp)