admin_timing.asp

个人网站比较简短

    CollectionItemName = PE_Cache.GetValue("CollectionItemName" & rnd_temp)
    Timing_Date = PE_Cache.GetValue("Timing_Date" & rnd_temp)
    Timing_SetDate = PE_Cache.GetValue("Timing_SetDate" & rnd_temp)
    Timing_SetWeekday = PE_Cache.GetValue("Timing_SetWeekday" & rnd_temp)
    Timing_SetDay = PE_Cache.GetValue("Timing_SetDay" & rnd_temp)
    Timing_Time = PE_Cache.GetValue("Timing_Time" & rnd_temp)
    TimingCreate = PE_Cache.GetValue("TimingCreate" & rnd_temp)
    CreateChannelName = PE_Cache.GetValue("CreateChannelName" & rnd_temp)

    If IsDate(Timing_Time) = False Then
        Call WriteErrMsg("<li>请先设置定时项目的时间，再运行定时。", ComeUrl)
        Exit Sub
    End If

    If CollectionItemName = "" Then
        CollectionItemName = "还没有选择要定时的采集项目!"
    End If

    If CreateChannelName = "" Then
        CreateChannelName = "还没有选择要定时的生成频道!"
    End If

    If IsDate(Timing_Date) = False Or Timing_Date > Date + 1 Then
        Timing_Date = Date - 1
        PE_Cache.SetValue "Timing_Date" & rnd_temp, Timing_Date
    End If

    If Timing_SetDate = 1 Then
        If Timing_SetWeekday = Weekday(Date) Then
            Timing_Startup = True
        End If

    ElseIf Timing_SetDate = 2 Then

        If Timing_SetDay = Day(Date) Then
            Timing_Startup = True
        End If

    ElseIf Timing_SetDate = 0 Then
        Timing_Startup = True
    End If

    '系统当前时间 > 设置启动时间 And 系统当前时间 < 设置启动时间+30分 And 系统当前日期 > 记录日期　And　时间类型为真 Then
    If CDate(Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)) > CDate(Timing_Time) And CDate(Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)) < CDate(Hour(Timing_Time) & ":" & Minute(Timing_Time) + 29 & ":" & Second(Timing_Time) + 59) And Date > Timing_Date And Timing_Startup = True 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
        
        PE_Cache.DelCache "Timing_AreaCollection" & rnd_temp
        PE_Cache.DelCache "Timing_CollectionItemID" & rnd_temp
        PE_Cache.DelCache "CollectionItemName" & rnd_temp
        PE_Cache.DelCache "Timing_Date" & rnd_temp
        PE_Cache.DelCache "Timing_SetDate" & rnd_temp
        PE_Cache.DelCache "Timing_SetWeekday" & rnd_temp
        PE_Cache.DelCache "Timing_SetDay" & rnd_temp
        PE_Cache.DelCache "Timing_Time" & rnd_temp
        PE_Cache.DelCache "TimingCreate" & rnd_temp
        PE_Cache.DelCache "CreateChannelName" & rnd_temp

        rnd_temp = ""
        Response.Write "<script language=""JavaScript"">" & vbCrLf
        Response.Write "<!--" & vbCrLf
        Response.Write "    parent.Timing_Time('" & Timing_AreaCollection & "','" & Timing_CollectionItemID & "','" & TimingCreate & "');" & vbCrLf
        Response.Write "//-->" & vbCrLf
        Response.Write "</script>" & vbCrLf
        Response.Write "<center><FONT style='font-size:12px' color='red'>请稍等，系统正在执行定时项目。</FONT></center>"
        Response.Write "<meta http-equiv=""refresh"" content=10;url=""Admin_Timing.asp?Action=DoTiming2&rnd_temp=" & rnd_temp & """>"
    Else
        Response.Write "<br>"
        Response.Write "&nbsp;&nbsp;您要定时采集项目是：<FONT style='font-size:12px' color='red'>" & CollectionItemName & "</FONT><br>"
        If Timing_AreaCollection = "1" Then
            Response.Write "&nbsp;&nbsp;定时区域采集：<FONT style='font-size:12px' color='red'>启动</font><br>"
        End If
        Response.Write "&nbsp;&nbsp;您要定时生成项目是：<FONT style='font-size:12px' color='red'>" & CreateChannelName & "</FONT><br>"
        Response.Write "&nbsp;&nbsp;当前的日期是：<FONT style='font-size:12px' color='red'>" & Date & " </FONT><br>"
        Response.Write "&nbsp;&nbsp;您指定的时间是"

        If Timing_SetDate = 1 Then
            Response.Write "每周的<FONT style='font-size:12px' color='red'>星期"

            Select Case Timing_SetWeekday

                Case 1
                    Response.Write "日"

                Case 2
                    Response.Write "一"

                Case 3
                    Response.Write "二"

                Case 4
                    Response.Write "三"

                Case 5
                    Response.Write "四"

                Case 6
                    Response.Write "五"

                Case 7
                    Response.Write "六"
            End Select

            Response.Write "</FONT> "
        ElseIf Timing_SetDate = 2 Then
            Response.Write "每月的<FONT style='font-size:12px' color='red'>" & Timing_SetDay & "</FONT>日 "
        ElseIf Timing_SetDate = 0 Then
            Response.Write "每天的"
        End If

        Response.Write "<FONT style='font-size:12px' color='red'>" & Timing_Time & " </FONT><br>"
        Response.Write "&nbsp;&nbsp;页面每 10 秒刷新一次"
        Response.Write "&nbsp;&nbsp;<center><FONT style='font-size:12px' color='red'>定时项目已经开启,您可以切换浏览器去做其他工作,记得在您临走时为了安全记得开启 windows 安全认证。</FONT></center><br>"
        Response.Write "<meta http-equiv=""refresh"" content=10;url=""Admin_Timing.asp?Action=DoTiming2&rnd_temp=" & rnd_temp & """>"
    End If

End Sub
'=================================================
'过程名：DoTiming
'作  用：定时生成HTML
'=================================================
Sub DoTiming()
    Dim TimingCreate, arrTimingCreate, TimingCreateNum, CreateChannelItem, TimingCreateUrl
    Dim CreateChannelType, CreateActionType, CreateType
    
    TimingCreate = Trim(Request("TimingCreate"))
    TimingCreateNum = PE_CLng(Trim(Request("TimingCreateNum")))

    If TimingCreate = "" Then
        Exit Sub
    End If

    arrTimingCreate = Split(TimingCreate, "$")

    If TimingCreateNum > UBound(arrTimingCreate) Then
        Response.Write "<html><head><title>成功信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
        Response.Write "<link href='images/Style.css' rel='stylesheet' type='text/css'></head><body><br><br>" & vbCrLf
        Response.Write "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbCrLf
        Response.Write "  <tr align='center' class='title'><td height='22'><strong>恭喜您！</strong></td></tr>" & vbCrLf
        Response.Write "  <tr class='tdbg'><td height='100' valign='top' align='center'><br><font color=red>" & Date & "</font>&nbsp;定时生成执行完成!</td></tr>" & vbCrLf
        Response.Write "  <tr align='center' class='tdbg'><td>"
        Response.Write "</td></tr>" & vbCrLf
        Response.Write "</table>" & vbCrLf
        Exit Sub
    End If

    CreateChannelItem = Split(arrTimingCreate(TimingCreateNum), ",")

    '1--文章  2--下载  3--图片  5--商城
    If CreateChannelItem(1) = 1 Then
        CreateChannelType = "Article"
        CreateActionType = "CreateArticle"
    ElseIf CreateChannelItem(1) = 2 Then
        CreateChannelType = "Soft"
        CreateActionType = "CreateSoft"
    ElseIf CreateChannelItem(1) = 3 Then
        CreateChannelType = "Photo"
        CreateActionType = "CreatePhoto"
    ElseIf CreateChannelItem(1) = 5 Then
        CreateChannelType = "Product"
        CreateActionType = "CreateProduct"
    End If

    If PE_CLng(CreateChannelItem(2)) = 0 Then
        CreateActionType = "CreateOther"
    End If

    TimingCreateUrl = "Admin_Create" & CreateChannelType & ".asp?Action=" & CreateActionType & "&CreateType=8&CreateItemType=" & CreateChannelItem(2) & "&ChannelProperty=" & arrTimingCreate(TimingCreateNum) & "&TimingCreateNum=" & TimingCreateNum & "&ChannelID=" & CreateChannelItem(0) & "&ClassID=1&TotalCreate=20&ShowBack=No&TimingCreate=" & TimingCreate

    Response.Write "<script language='JavaScript' type='text/JavaScript'>" & vbCrLf
    Response.Write "function aaa(){window.location.href='" & TimingCreateUrl & "';}" & vbCrLf
    Response.Write "    setTimeout('aaa()',5000);" & vbCrLf
    Response.Write "</script>" & vbCrLf
End Sub
'*************************  类模块主区域结束  *******************************
'*************************  类模块函数通用开始  *****************************
'=================================================
'过程名：rnd_num
'作  用：产生指定位置的随机数
'参  数：产生的随机数  ----内容
'=================================================
Function rnd_num(rLen)
    Dim ri, rmax, rmin
    rmax = 1
    rmin = 1
    For ri = 1 To rLen + 1
        rmax = rmax * 10
    Next
    rmax = rmax - 1
    For ri = 1 To rLen
        rmin = rmin * 10
    Next
    Randomize
    rnd_num = Int((rnd_num - rmin + 1) * Rnd) + rmin
End Function
Function IsRadioChecked(ByVal Compare1, ByVal Compare2)
    If Compare1 = Compare2 Then
        IsRadioChecked = " checked"
    Else
        IsRadioChecked = ""
    End If
End Function
Function IsOptionSelected(ByVal Compare1, ByVal Compare2)
    If Compare1 = Compare2 Then
        IsOptionSelected = " selected"
    Else
        IsOptionSelected = ""
    End If
End Function
Function IsStyleDisplay(ByVal Compare1, ByVal Compare2)

    If Compare1 = Compare2 Then
        IsStyleDisplay = " style='display:'"
    Else
        IsStyleDisplay = " style='display:none'"
    End If

End Function
%>