📄 admin_timing.asp

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

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

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

strFileName = "Admin_Timing.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

If Action <> "DoTiming2" Then
    Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""border"">" & vbCrLf
    Call ShowPageTitle(" 定 时 系 统 项 目 管 理 ", 10055)
    Response.Write "</table>" & vbCrLf
End If

Select Case Action
    Case "DoMainTiming"
        Call DoMainTiming
    Case "DoTiming"
        Call DoTiming
    Case "DoTiming2"
        Call DoTiming2
    Case "SaveTiming", "SaveModify"
        Call SaveTiming
    Case Else
        Call main
End Select

If FoundErr = True Then
    Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn

'=================================================
'过程名：main()
'作  用：定时采集管理
'=================================================
Sub main()
    Dim rs, rsTiming, sql, iCount
    Dim Timing_CollectionItemID, Timing_SetDate, Timing_SetWeekday, Timing_SetDay, Timing_Time, Timing_Passed, Timing_Renovate, Timing_Date, Timing_AreaCollection
    Dim arrChannelID, i, CreateItemType, CreateItemTopNewNum, CreateItemDate, CreateClass, CreateSpecial, CreateChannel
    Dim arrTimingCreateSetting
    '得到定时属性
    sql = "select Timing_CollectionItemID,Timing_SetDate,Timing_SetWeekday,Timing_SetDay,Timing_Time,Timing_Date,Timing_AreaCollection from PE_Config"
    Set rsTiming = Server.CreateObject("adodb.recordset")
    rsTiming.Open sql, Conn, 1, 1

    If rsTiming.EOF Then   '没有找到该项目
    Else
        Timing_CollectionItemID = rsTiming("Timing_CollectionItemID")
        Timing_SetDate = rsTiming("Timing_SetDate")
        Timing_Time = rsTiming("Timing_Time")
        Timing_SetWeekday = rsTiming("Timing_SetWeekday")
        Timing_SetDay = rsTiming("Timing_SetDay")
        Timing_Date = rsTiming("Timing_Date")
        Timing_AreaCollection = rsTiming("Timing_AreaCollection")
    End If

    rsTiming.Close
    Set rsTiming = Nothing

    Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"">" & vbCrLf
    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_Timing.asp?Action=Main>管理首页</a> | <a href=""Admin_Timing.asp?Action=DoMainTiming"" target='_blank'>启动定时项目</a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>"
    Response.Write "<br>" & vbCrLf
    Response.Write "<script language=""JavaScript"">" & vbCrLf
    Response.Write "<!--" & vbCrLf
    Response.Write "var tID=0;" & vbCrLf
    Response.Write "function ShowTabs(ID){" & vbCrLf
    Response.Write "  if(ID!=tID){" & vbCrLf
    Response.Write "    TabTitle[tID].className='title5';" & vbCrLf
    Response.Write "    TabTitle[ID].className='title6';" & vbCrLf
    Response.Write "    Tabs[tID].style.display='none';" & vbCrLf
    Response.Write "    Tabs[ID].style.display='';" & vbCrLf
    Response.Write "    tID=ID;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "        function ShowTimingType(num){ " & vbCrLf
    Response.Write "                switch(num){" & vbCrLf
    Response.Write "                case ""0"":     " & vbCrLf
    Response.Write "                        document.myform.Timing_SetWeekday.style.display='none';" & vbCrLf
    Response.Write "                        document.myform.Timing_SetDay.style.display='none';" & vbCrLf
    Response.Write "                        break;" & vbCrLf
    Response.Write "                case ""1"":     " & vbCrLf
    Response.Write "                        document.myform.Timing_SetWeekday.style.display='';" & vbCrLf
    Response.Write "                        document.myform.Timing_SetDay.style.display='none';" & vbCrLf
    Response.Write "                        break;" & vbCrLf
    Response.Write "                case ""2"":" & vbCrLf
    Response.Write "                        document.myform.Timing_SetWeekday.style.display='none';" & vbCrLf
    Response.Write "                        document.myform.Timing_SetDay.style.display='';" & vbCrLf
    Response.Write "                        break;" & vbCrLf
    Response.Write "                default:" & vbCrLf
    Response.Write "                        alert(""错误参数调用！"");" & vbCrLf
    Response.Write "                        break;" & vbCrLf
    Response.Write "                }" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "//-->" & vbCrLf
    Response.Write "</script>" & vbCrLf
    Response.Write "<form name='myform' method='post' action='Admin_Timing.asp?action=SaveTiming'>" & vbCrLf
    Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'><tr align='center' height='24'>"
    Response.Write "<td id='TabTitle' class='title6' onclick='ShowTabs(0)'>定时采集</td>" & vbCrLf
    Response.Write "<td id='TabTitle' class='title5' onclick='ShowTabs(1)'>定时生成</td>" & vbCrLf
    Response.Write "<td id='TabTitle' class='title5' onclick='ShowTabs(2)'>定时设置</td>" & vbCrLf
    Response.Write "<td>&nbsp;</td></tr></table>"
    Response.Write "  <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
   
    Response.Write " <tbody id='Tabs' style='display:'>" & vbCrLf
    Response.Write " <tr class='tdbg'>"
    Response.Write "   <td align='center'>"
    Response.Write "     <table border='0' cellspacing='0' cellpadding='0'>"
    Response.Write "      <tr>"
    Response.Write "       <td>请选择定时采集的项目：<br>"
    '得到采集属性
    sql = "select * from PE_Item where Flag=" & PE_True
    Set rs = Conn.Execute(sql)
    Response.Write "            <select name='Timing_CollectionItemID' size='2' multiple style='height:300px;width:450px;'>"

    If rs.BOF And rs.EOF Then
        Response.Write "         <option value=''>还没有采集项目！</option>"
        '关闭提交按钮
        iCount = 0
    Else
        iCount = rs.RecordCount

        Do While Not rs.EOF
            Response.Write "     <option value='" & rs("ItemID") & "' "

            If FoundInArr(Timing_CollectionItemID, rs("ItemID"), ",") = True Then
                Response.Write " selected"
            End If

            Response.Write " >" & rs("ItemName") & "</option>"
            rs.MoveNext
        Loop

    End If

    rs.Close
    Set rs = Nothing

    Response.Write "         </select>"
    Response.Write "       </td>"
    Response.Write "       <td align='left'>&nbsp;&nbsp;&nbsp;&nbsp;<input type='button' name='Submit' value=' 选定所有 ' onclick='SelectAll()'>"
    Response.Write "       <br><br>&nbsp;&nbsp;&nbsp;&nbsp;<input type='button' name='Submit' value=' 取消选定 ' onclick='UnSelectAll()'><br><br><br><b>&nbsp;提示：按住“Ctrl”或“Shift”键可以多选</b></td>"
    Response.Write "      </tr>"
    Response.Write "      <tr class='tdbg'><td><Input type='checkbox' Name='Timing_AreaCollection' value='1' " & IsRadioChecked(Timing_AreaCollection, "1") & "> 是否区域采集</td><td></td></tr>" & vbCrLf
    Response.Write "    </table>" & vbCrLf
    Response.Write "    </tbody>" & vbCrLf

    Response.Write "  <tbody id='Tabs' style='display:none'>" & vbCrLf
    Response.Write "    <tr align='left'>" & vbCrLf
    Response.Write "      <td class='tdbg' valign='top' width='20%'>" & vbCrLf
    Response.Write "        <table width='100%' border='0' cellpadding='2' cellspacing='1'>" & vbCrLf
    Response.Write "          <tr class='tdbg'>" & vbCrLf
    Response.Write "            <td>" & vbCrLf
    Response.Write "                           请选择定时生成的频道：<br>" & vbCrLf
    Dim SqlI, RsI
    SqlI = "select ChannelID,ChannelName,ModuleType from PE_Channel where ModuleType<>0 and ModuleType<>4 and Disabled=" & PE_False & " and UseCreateHTML > 0 order by ChannelID desc"
    Set RsI = Server.CreateObject("adodb.recordset")
    RsI.Open SqlI, Conn, 1, 1
    Response.Write "<table border='0' cellpadding='0' cellspacing='0' width='100%' height='100%' align='center'>"

    If RsI.EOF And RsI.BOF Then
        Response.Write "<center>您的频道还没有设置生成功能,或您指定的生成频道已经禁用。</center>"
    Else
        i = 0

        Do While Not RsI.EOF
            i = i + 1
            Response.Write "<tr id='tdcolor" & i & "'"

            If i = 1 Then Response.Write " bgcolor='#ffffff' "
            Response.Write " onCLICK='change_item(" & i & ")'>"
            Response.Write "   <td valign='top'> " & RsI("ChannelName") & "</td><td >属性设置 >>></td>"
            Response.Write "  </tr>"
            RsI.MoveNext
        Loop

        Response.Write "<script language='javascript'>" & vbCrLf
        Response.Write "function change_item(num){" & vbCrLf
        Response.Write "    for (td_i=1;td_i<=" & i & ";td_i++){" & vbCrLf
        Response.Write "        if (td_i==num){" & vbCrLf
        Response.Write "                    eval(""td_""+td_i+"".style.display='';"");" & vbCrLf
        Response.Write "                        eval(""tdcolor""+td_i+"".style.backgroundColor='#ffffff';"");  " & vbCrLf
        Response.Write "                }" & vbCrLf
        Response.Write "                else{" & vbCrLf
        Response.Write "                        eval(""td_""+td_i+"".style.display=\""none\"";"");" & vbCrLf
        Response.Write "                        eval(""tdcolor""+td_i+"".style.backgroundColor='#F0F0F0'"");  " & vbCrLf
        Response.Write "                }" & vbCrLf
        Response.Write "   }" & vbCrLf
        Response.Write "}" & vbCrLf
        Response.Write "</script>" & vbCrLf
    End If

    RsI.Close
    Set RsI = Nothing
    Response.Write "      </table> "
    Response.Write "     </td>" & vbCrLf
    Response.Write "     <td valign='top' width='80%'>" & vbCrLf

    sql = "select ChannelID,ChannelName,ModuleType,TimingCreateSetting from PE_Channel where ModuleType<>0 and ModuleType<>4 and Disabled=" & PE_False & " and UseCreateHTML > 0 order by ChannelID desc"
    Set rs = Server.CreateObject("adodb.recordset")
    rs.Open sql, Conn, 1, 1

    If rs.EOF And rs.BOF Then
        Response.Write "<center>您的频道还没有设置生成功能,或您指定的生成频道已经禁用。</center>"
12 3 4 下一页
💿 文件大小 7095 K
👤 上传用户 foreverlovely
📂 所属分类家庭/个人应用
🏷️ 相关标签

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

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