admin_timing.asp

个人网站比较简短

    Else
        i = 0

        Do While Not rs.EOF
            i = i + 1

            If InStr(rs("TimingCreateSetting"), ",") > 0 Then
                arrTimingCreateSetting = Split(rs("TimingCreateSetting"), ",")
                CreateItemType = PE_CLng(arrTimingCreateSetting(2))
                CreateItemTopNewNum = PE_CLng(arrTimingCreateSetting(3))
                CreateItemDate = arrTimingCreateSetting(4)
                CreateClass = arrTimingCreateSetting(5)
                CreateSpecial = arrTimingCreateSetting(6)
                CreateChannel = arrTimingCreateSetting(7)
            End If

            Response.Write "      <table width='100%' border='0' id='td_" & i & "' cellpadding='2' cellspacing='1' bgcolor='#ffffff' "

            If i > 1 Then Response.Write " style='display:none'"
            Response.Write " >" & vbCrLf
            Response.Write "       <tr class='tdbg'>" & vbCrLf
            Response.Write "          <td height='22' colspan='2' bgcolor='#E0EEF5'>&nbsp;&nbsp;项目内容页生成操作 </td>" & vbCrLf
            Response.Write "       </tr>" & vbCrLf
            Response.Write "       <tr class='tdbg'>" & vbCrLf
            Response.Write "          <td width='30' align='center'><input type='radio' name='CreateItemType" & i & "'  " & IsRadioChecked(CreateItemType, 0) & " value='0'></td>"
            Response.Write "          <td height='30'> 不生成项目内容页" & vbCrLf
            Response.Write "          </td>" & vbCrLf
            Response.Write "       </tr>" & vbCrLf
            Response.Write "       <tr class='tdbg'>" & vbCrLf
            Response.Write "           <td width='30' align='center'><input type='radio' name='CreateItemType" & i & "'  " & IsRadioChecked(CreateItemType, 1) & "  value='1'></td>"
            Response.Write "           <td height='30'> 生成最新" & vbCrLf
            Response.Write "             <Input name='CreateItemTopNewNum" & i & "' value='" & CreateItemTopNewNum & "' size=8 maxlength='10'> 篇项目" & vbCrLf
            Response.Write "           </td>" & vbCrLf
            Response.Write "          </tr>" & vbCrLf
            Response.Write "          <tr class='tdbg'>" & vbCrLf
            Response.Write "           <td width='30' align='center'><input type='radio' name='CreateItemType" & i & "'  " & IsRadioChecked(CreateItemType, 2) & "  value='2'></td>"
            Response.Write "           <td height='30'> 生成最近" & vbCrLf
            Response.Write "            <Input name='CreateItemDate" & i & "' type='text' value='" & CreateItemDate & "' size=8 maxlength='10'> 天内的项目内容页" & vbCrLf
            Response.Write "           </td>" & vbCrLf
            Response.Write "         </tr>" & vbCrLf
            Response.Write "         <tr class='tdbg'>" & vbCrLf
            Response.Write "          <td width='30' align='center'><input type='radio' name='CreateItemType" & i & "'   " & IsRadioChecked(CreateItemType, 3) & "  value='3'></td>"
            Response.Write "          <td height='30'> 生成所有未生成的项目</td>" & vbCrLf
            Response.Write "         </tr>" & vbCrLf
            Response.Write "         <tr class='tdbg'>" & vbCrLf
            Response.Write "          <td width='30' align='center'><input type='radio' name='CreateItemType" & i & "'   " & IsRadioChecked(CreateItemType, 4) & "  value='4'></td>"
            Response.Write "          <td height='30'> 生成所有项目</td>" & vbCrLf
            Response.Write "         </tr>" & vbCrLf
            Response.Write "     </td>" & vbCrLf
            Response.Write "     </tr>" & vbCrLf
            Response.Write "       <tr class='tdbg'>" & vbCrLf
            Response.Write "         <td height='22' colspan='2' bgcolor='#E0EEF5'>&nbsp;&nbsp;栏目列表页生成操作 </td>" & vbCrLf
            Response.Write "       </tr>" & vbCrLf
            Response.Write "      <tr class='tdbg'>" & vbCrLf
            Response.Write "        <td width='30' align='center'><input type='checkbox' name='CreateClass" & i & "'  " & IsRadioChecked(CreateClass, "True") & " value='True'></td>"
            Response.Write "        <td height='30'>" & vbCrLf
            Response.Write "          生成所有栏目列表页" & vbCrLf
            Response.Write "        </td>" & vbCrLf
            Response.Write "      </tr>" & vbCrLf
            Response.Write "      <tr class='tdbg'>" & vbCrLf
            Response.Write "         <td height='22' colspan='2' bgcolor='#E0EEF5'>&nbsp;&nbsp;专题列表页生成操作 </td>" & vbCrLf
            Response.Write "      </tr>" & vbCrLf
            Response.Write "      <tr class='tdbg'>" & vbCrLf
            Response.Write "        <td width='30' align='center'><input type='checkbox' name='CreateSpecial" & i & "'  " & IsRadioChecked(CreateSpecial, "True") & " value='True'></td>"
            Response.Write "        <td height='30'>" & vbCrLf
            Response.Write "          生成所有专题列表页" & vbCrLf
            Response.Write "        </td>" & vbCrLf
            Response.Write "      </tr>" & vbCrLf
            Response.Write "      <tr class='tdbg'>" & vbCrLf
            Response.Write "        <td height='22' colspan='2' bgcolor='#E0EEF5'>&nbsp;&nbsp;频道页生成操作 </td>" & vbCrLf
            Response.Write "      </tr>" & vbCrLf
            Response.Write "      <tr class='tdbg'>" & vbCrLf
            Response.Write "        <td width='30' align='center'><input type='checkbox' name='CreateChannel" & i & "'   " & IsRadioChecked(CreateChannel, "True") & " value='True'></td>"
            Response.Write "        <td height='30'>" & vbCrLf
            Response.Write "          生成所选频道首页" & vbCrLf
            Response.Write "        </td>" & vbCrLf
            Response.Write "      </tr>" & vbCrLf
            Response.Write "      </table>" & vbCrLf
            Response.Write "      <INPUT TYPE='hidden' name='ChannelID" & i & "' value='" & rs("ChannelID") & "'>" & vbCrLf
            Response.Write "      <INPUT TYPE='hidden' name='ModuleType" & i & "' value='" & rs("ModuleType") & "'>" & vbCrLf
            rs.MoveNext
        Loop

    End If

    rs.Close
    Set rs = Nothing

    Response.Write "     </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "   </table>" & vbCrLf
    Response.Write "  </td>" & vbCrLf
    Response.Write " </tr>" & vbCrLf
    Response.Write " </tbody>" & vbCrLf
    Response.Write "    <tbody id='Tabs' style='display:none'>" & vbCrLf
    Response.Write "      <tr height='30' class='tdbg'>"
    Response.Write "        <td class='tdbg5' align='right' width='100' >定时启动时间：&nbsp;&nbsp;</td>"
    Response.Write "        <td class='tdbg' >"
    Response.Write "         <select name='Timing_SetDate' id='SetTiming_Date' onchange=""javascript:ShowTimingType(this.options[this.selectedIndex].value)"">" & vbCrLf
    Response.Write "           <option value='0' " & IsOptionSelected(Timing_SetDate, 0) & ">每天</option>" & vbCrLf
    Response.Write "           <option value='1' " & IsOptionSelected(Timing_SetDate, 1) & ">每周</option>" & vbCrLf
    Response.Write "           <option value='2' " & IsOptionSelected(Timing_SetDate, 2) & ">每月</option>" & vbCrLf
    Response.Write "         </select>" & vbCrLf
    Response.Write "         <select name='Timing_SetWeekday' id='Timing_SetWeekday' " & IsStyleDisplay(Timing_SetDate, 1) & ">" & vbCrLf
    Response.Write "           <option value='1' " & IsOptionSelected(Timing_SetWeekday, 1) & ">星期日</option>" & vbCrLf
    Response.Write "           <option value='2' " & IsOptionSelected(Timing_SetWeekday, 2) & ">星期一</option>" & vbCrLf
    Response.Write "           <option value='3' " & IsOptionSelected(Timing_SetWeekday, 3) & ">星期二</option>" & vbCrLf
    Response.Write "           <option value='4' " & IsOptionSelected(Timing_SetWeekday, 4) & ">星期三</option>" & vbCrLf
    Response.Write "           <option value='5' " & IsOptionSelected(Timing_SetWeekday, 5) & ">星期四</option>" & vbCrLf
    Response.Write "           <option value='6' " & IsOptionSelected(Timing_SetWeekday, 6) & ">星期五</option>" & vbCrLf
    Response.Write "           <option value='7' " & IsOptionSelected(Timing_SetWeekday, 7) & ">星期六</option>" & vbCrLf
    Response.Write "         </select>" & vbCrLf
    Response.Write "         <select name='Timing_SetDay' " & IsStyleDisplay(Timing_SetDate, 2) & ">" & GetNumber_Option(1, 31, Timing_SetDay) & "</select>" & vbCrLf
    Response.Write "         <select name=""Timing_Time"" id=""Timing_Time"">" & vbCrLf
    Response.Write "           <option value=""00:00:00"" " & IsOptionSelected("00:00:00", Timing_Time) & ">00:00:00</option>" & vbCrLf
    Response.Write "           <option value=""00:30:00"" " & IsOptionSelected("00:30:00", Timing_Time) & ">00:30:00</option>" & vbCrLf
    Response.Write "           <option value=""01:00:00"" " & IsOptionSelected("01:00:00", Timing_Time) & ">01:00:00</option>" & vbCrLf
    Response.Write "           <option value=""01:30:00"" " & IsOptionSelected("01:30:00", Timing_Time) & ">01:30:00</option>" & vbCrLf
    Response.Write "           <option value=""02:00:00"" " & IsOptionSelected("02:00:00", Timing_Time) & ">02:00:00</option>" & vbCrLf
    Response.Write "           <option value=""02:30:00"" " & IsOptionSelected("02:30:00", Timing_Time) & ">02:30:00</option>" & vbCrLf
    Response.Write "           <option value=""03:00:00"" " & IsOptionSelected("03:00:00", Timing_Time) & ">03:00:00</option>" & vbCrLf
    Response.Write "           <option value=""03:30:00"" " & IsOptionSelected("03:30:00", Timing_Time) & ">03:30:00</option>" & vbCrLf
    Response.Write "           <option value=""04:00:00"" " & IsOptionSelected("04:00:00", Timing_Time) & ">04:00:00</option>" & vbCrLf
    Response.Write "           <option value=""04:30:00"" " & IsOptionSelected("04:30:00", Timing_Time) & ">04:30:00</option>" & vbCrLf
    Response.Write "           <option value=""05:00:00"" " & IsOptionSelected("05:00:00", Timing_Time) & ">05:00:00</option>" & vbCrLf
    Response.Write "           <option value=""05:30:00"" " & IsOptionSelected("05:30:00", Timing_Time) & ">05:30:00</option>" & vbCrLf
    Response.Write "           <option value=""06:00:00"" " & IsOptionSelected("06:00:00", Timing_Time) & ">06:00:00</option>" & vbCrLf
    Response.Write "           <option value=""06:30:00"" " & IsOptionSelected("06:30:00", Timing_Time) & ">06:30:00</option>" & vbCrLf
    Response.Write "           <option value=""07:00:00"" " & IsOptionSelected("07:00:00", Timing_Time) & ">07:00:00</option>" & vbCrLf
    Response.Write "           <option value=""07:30:00"" " & IsOptionSelected("07:30:00", Timing_Time) & ">07:30:00</option>" & vbCrLf
    Response.Write "           <option value=""08:00:00"" " & IsOptionSelected("08:00:00", Timing_Time) & ">08:00:00</option>" & vbCrLf
    Response.Write "           <option value=""08:30:00"" " & IsOptionSelected("08:30:00", Timing_Time) & ">08:30:00</option>" & vbCrLf
    Response.Write "           <option value=""09:00:00"" " & IsOptionSelected("09:00:00", Timing_Time) & ">09:00:00</option>" & vbCrLf
    Response.Write "           <option value=""09:30:00"" " & IsOptionSelected("09:30:00", Timing_Time) & ">09:30:00</option>" & vbCrLf
    Response.Write "           <option value=""10:00:00"" " & IsOptionSelected("10:00:00", Timing_Time) & ">10:00:00</option>" & vbCrLf
    Response.Write "           <option value=""10:30:00"" " & IsOptionSelected("10:30:00", Timing_Time) & ">10:30:00</option>" & vbCrLf
    Response.Write "           <option value=""11:00:00"" " & IsOptionSelected("11:00:00", Timing_Time) & ">11:00:00</option>" & vbCrLf
    Response.Write "           <option value=""11:30:00"" " & IsOptionSelected("11:30:00", Timing_Time) & ">11:30:00</option>" & vbCrLf
    Response.Write "           <option value=""12:00:00"" " & IsOptionSelected("12:00:00", Timing_Time) & ">12:00:00</option>" & vbCrLf
    Response.Write "           <option value=""12:30:00"" " & IsOptionSelected("12:30:00", Timing_Time) & ">12:30:00</option>" & vbCrLf
    Response.Write "           <option value=""13:00:00"" " & IsOptionSelected("13:00:00", Timing_Time) & ">13:00:00</option>" & vbCrLf
    Response.Write "           <option value=""13:30:00"" " & IsOptionSelected("13:30:00", Timing_Time) & ">13:30:00</option>" & vbCrLf
    Response.Write "           <option value=""14:00:00"" " & IsOptionSelected("14:00:00", Timing_Time) & ">14:00:00</option>" & vbCrLf
    Response.Write "           <option value=""14:30:00"" " & IsOptionSelected("14:30:00", Timing_Time) & ">14:30:00</option>" & vbCrLf
    Response.Write "           <option value=""15:00:00"" " & IsOptionSelected("15:00:00", Timing_Time) & ">15:00:00</option>" & vbCrLf
    Response.Write "           <option value=""15:30:00"" " & IsOptionSelected("15:30:00", Timing_Time) & ">15:30:00</option>" & vbCrLf
    Response.Write "           <option value=""16:00:00"" " & IsOptionSelected("16:00:00", Timing_Time) & ">16:00:00</option>" & vbCrLf
    Response.Write "           <option value=""16:30:00"" " & IsOptionSelected("16:30:00", Timing_Time) & ">16:30:00</option>" & vbCrLf
    Response.Write "           <option value=""17:00:00"" " & IsOptionSelected("17:00:00", Timing_Time) & ">17:00:00</option>" & vbCrLf
    Response.Write "           <option value=""17:30:00"" " & IsOptionSelected("17:30:00", Timing_Time) & ">17:30:00</option>" & vbCrLf
    Response.Write "           <option value=""18:00:00"" " & IsOptionSelected("18:00:00", Timing_Time) & ">18:00:00</option>" & vbCrLf
    Response.Write "           <option value=""18:30:00"" " & IsOptionSelected("18:30:00", Timing_Time) & ">18:30:00</option>" & vbCrLf
    Response.Write "           <option value=""19:00:00"" " & IsOptionSelected("19:00:00", Timing_Time) & ">19:00:00</option>" & vbCrLf
    Response.Write "           <option value=""19:30:00"" " & IsOptionSelected("19:30:00", Timing_Time) & ">19:30:00</option>" & vbCrLf
    Response.Write "           <option value=""20:00:00"" " & IsOptionSelected("20:00:00", Timing_Time) & ">20:00:00</option>" & vbCrLf
    Response.Write "           <option value=""20:30:00"" " & IsOptionSelected("20:30:00", Timing_Time) & ">20:30:00</option>" & vbCrLf
    Response.Write "           <option value=""21:00:00"" " & IsOptionSelected("21:00:00", Timing_Time) & ">21:00:00</option>" & vbCrLf
    Response.Write "           <option value=""21:30:00"" " & IsOptionSelected("21:30:00", Timing_Time) & ">21:30:00</option>" & vbCrLf
    Response.Write "           <option value=""22:00:00"" " & IsOptionSelected("22:00:00", Timing_Time) & ">22:00:00</option>" & vbCrLf
    Response.Write "           <option value=""22:30:00"" " & IsOptionSelected("22:30:00", Timing_Time) & ">22:30:00</option>" & vbCrLf
    Response.Write "           <option value=""23:00:00"" " & IsOptionSelected("23:00:00", Timing_Time) & ">23:00:00</option>" & vbCrLf
    Response.Write "           <option value=""23:30:00"" " & IsOptionSelected("23:30:00", Timing_Time) & ">23:30:00</option>" & vbCrLf
    Response.Write "         </select>" & vbCrLf
    Response.Write "        </td>" & vbCrLf
    Response.Write "      </tr>" & vbCrLf
    Response.Write "     </tbody></table>" & vbCrLf
    Response.Write "   </td>" & vbCrLf
    Response.Write " </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "<table width='100%' border='0'>" & vbCrLf
    Response.Write "  <tr height='50'>" & vbCrLf
    Response.Write "     <td align='center'>" & vbCrLf
    Response.Write "       <input name='iChannelID' type='hidden' id='Action' value='" & i & "'>" & vbCrLf
    Response.Write "       <input type='submit' name='Submit' value='保存定时设置' onClick=""document.myform.Action.value='SaveTiming';"">" & vbCrLf
    Response.Write "       <input name='Action' type='hidden' id='Action' value='main'>" & vbCrLf
    Response.Write "     </td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "</form>" & vbCrLf
    Response.Write "<script language='javascript'>" & vbCrLf
    Response.Write "function SelectAll(){" & vbCrLf
    Response.Write "  for(var i=0;i<document.myform.Timing_CollectionItemID.length;i++){" & vbCrLf
    Response.Write "    document.myform.Timing_CollectionItemID.options[i].selected=true;}" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function UnSelectAll(){" & vbCrLf
    Response.Write "  for(var i=0;i<document.myform.Timing_CollectionItemID.length;i++){" & vbCrLf
    Response.Write "    document.myform.Timing_CollectionItemID.options[i].selected=false;}" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
End Sub

'=================================================
'过程名：SaveTiming
'作  用：保存定时采集数据
'=================================================
Sub SaveTiming()
    
    Dim rs, sql
    Dim iChannelID, i, CreateItemType, CreateItemTopNewNum, CreateItemDate, CreateClass, CreateSpecial, CreateChannel
    Dim Timing_CollectionItemID, Timing_Time, Timing_Renovate, Timing_Passed, Timing_SetDate, Timing_SetWeekday, Timing_SetDay
    Dim TimingCreateSetting, Timing_ClsDate, Timing_AreaCollection

    '定时属性保存
    Timing_CollectionItemID = Trim(Request("Timing_CollectionItemID"))
    Timing_Time = Trim(Request("Timing_Time"))
    Timing_Renovate = PE_CLng(Trim(Request("Timing_Renovate")))
    Timing_Passed = Trim(Request("Timing_Passed"))
    Timing_ClsDate = Trim(Request("Timing_ClsDate"))
    Timing_AreaCollection = Trim(Request("Timing_AreaCollection"))

    Timing_SetDate = PE_CLng(Trim(Request("Timing_SetDate")))
    Timing_SetWeekday = PE_CLng(Trim(Request("Timing_SetWeekday")))
    Timing_SetDay = PE_CLng(Trim(Request("Timing_SetDay")))

    If IsNull(Timing_CollectionItemID) = True Or Timing_CollectionItemID = "" Then
        Timing_CollectionItemID = "0"
    Else
        Timing_CollectionItemID = ReplaceBadChar(Timing_CollectionItemID)
    End If

    If Timing_Passed = "yes" Then
        Timing_Passed = True
    Else
        Timing_Passed = False
    End If