BVB Source Codes

Jie Yang v0.6.3 article system Show Admin_ItemStart.asp Source code

Return Download Jie Yang v0.6.3 article system: download Admin_ItemStart.asp Source code - Download Jie Yang v0.6.3 article system Source code - Type:.asp
  1. <!--#include file="inc/conn.asp"-->
  2. <!--#include file="inc/function.asp"-->
  3. <!--#include file="../admin_check.asp"-->
  4. <%
  5. If Not JYAdminLevel(701) Then
  6.         Call ErrorMsg()
  7. End If
  8. Dim SqlItem,RsItem
  9. Dim Action
  10. Dim ItemID,ItemName,WebName,ChannelID,ClassID,SpecialID,ListStr,ListPaingType,ListPaingStr2,ListPaingID1,ListPaingID2,ListPaingStr3,Flag,ItemCollecDate
  11. Dim ListUrl
  12. Dim CurrentPage,AllPage,iItem,ItemNum
  13. Const MaxPerPage=20
  14. Call Main()
  15. %>
  16. <%Sub Main%>
  17. <html>
  18. <head>
  19. <title>采集系统</title>
  20. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  21. <link href="../style/style.css" rel="stylesheet" type="text/css" />
  22. <SCRIPT language=javascript>
  23. function unselectall(thisform)
  24. {
  25.         if(thisform.chkAll.checked)
  26.         {
  27.                 thisform.chkAll.checked = thisform.chkAll.checked&0;
  28.         }  
  29. }
  30. function CheckAll(thisform)
  31. {
  32.         for (var i=0;i<thisform.elements.length-6;i++){
  33.                 var e = thisform.elements[i];
  34.                 if (e.Name !="chkAll"&&e.disabled!=true)
  35.                         e.checked = thisform.chkAll.checked;
  36.         }
  37. }
  38. </script>
  39. </head>
  40. <body>
  41. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  42.   <tr>
  43.     <td colspan="2" class="td28">采集系统项目管理</td>
  44.   </tr>
  45.   <tr class="td26" bgcolor="#FFFFFF">
  46.     <td><b>管理导航:</b><a href=Admin_ItemStart.asp>管理首页</a> | <a href="Admin_ItemAddNew.asp">添加新项目</a> | <a href="Admin_ItemManage.asp">采集项目管理</a> | <a href="Admin_ItemFilters.asp">采集过滤设置</a> | <a href="Admin_ItemHistroly.asp">历史采集记录</a> | <a href="Admin_ItemDatabase.asp?Action=LeadOut">采集项目导出</a> <a href="Admin_ItemDatabase.asp?Action=LeadIn">导入</a></td>
  47.   </tr>
  48. </table>
  49. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  50.     <tr>
  51.       <td colspan="5" class="td28">新闻采集</td>
  52.     </tr>
  53. <form name="myform" method="POST" action="Admin_ItemCollection.asp">
  54.         <tr class="tdcenter" bgcolor="#ECF5FE">
  55.                 <td width="6%">选择</td>
  56.                 <td width="17%">项目名称</td>
  57.                 <td width="15%">采集来源</td>
  58.                 <td width="22%">所属栏目</td>
  59.                 <td width="20%">上次采集</td>
  60.         </tr>
  61. <%
  62. If Request("page")<>"" then
  63.     CurrentPage=Cint(Request("Page"))
  64. Else
  65.     CurrentPage=1
  66. End if
  67. set RsItem=server.createobject("adodb.recordset")        
  68. SqlItem="select * from Item where Flag=True order by ItemID DESC"        
  69. RsItem.open SqlItem,ConnItem,1,1
  70. If (Not RsItem.Eof) and (Not RsItem.Bof) Then
  71.         RsItem.PageSize=MaxPerPage
  72.         Allpage=RsItem.PageCount
  73.         If Currentpage>Allpage Then Currentpage=1
  74.                 ItemNum=RsItem.RecordCount
  75.                 RsItem.MoveFirst
  76.                 RsItem.AbsolutePage=CurrentPage
  77.                 iItem=0
  78.                 Do while Not RsItem.Eof
  79.                         ClassID=RsItem("ClassID")
  80.                         If ClassID="" Then
  81.                                 ClassID=0
  82.                         End If            
  83.                         ItemID=RsItem("ItemID")
  84.                         ItemName=RsItem("ItemName")
  85.                         WebName=RsItem("WebName")
  86.                         ListPaingType=RsItem("ListPaingType")
  87.                         If  ListPaingType=0  Or ListPaingType=1  Then
  88.                                 ListUrl=RsItem("ListStr")
  89.                         ElseIf  ListPaingType=2  Then
  90.                                 ListUrl=Replace(RsItem("ListPaingStr2"),"{$ID}",CStr(RsItem("ListPaingID1")))
  91.                         ElseIf  ListPaingType=3  Then
  92.                                 If  Instr(RsItem("ListPaingStr3"),"|")>0  Then
  93.                                 ListUrl=Left(RsItem("ListPaingStr3"),Instr(RsItem("ListPaingStr3"),"|")-1)
  94.                                 Else
  95.                                 ListUrl=RsItem("ListPaingStr3")
  96.                                 End  If
  97.                         Else
  98.                                 ListUrl="异常"
  99.                         End  If
  100. %>
  101.         <tr bgcolor="#FFFFFF">
  102.                 <td style=" width:6%;" align="center"><input name="ItemID" type="checkbox" class="checkbox" onClick="unselectall(this.form)" value="<%=ItemID%>"></td>
  103.                 <td align="center"><%=ItemName%></td>
  104.                 <td align="center"><a href="<%=ListUrl%>" title="点击访问" target=_blank><%=WebName%></a></td>
  105.                 <td align="center">
  106. <%
  107. set rs5=Server.CreateObject("ADODB.RecordSet")
  108. sql5="select S_id,S_name from Article_NewsSort where S_id="&ClassID&""
  109. rs5.open sql5,conn,1,1
  110. if not rs5.eof then
  111.         S_name=rs5("S_name")
  112. else
  113.         S_name="未知"
  114. end if
  115. Response.Write S_name
  116. %>       </td>
  117.           <td align="center">
  118.           <%
  119.            set rs=connItem.execute("select Top 1 CollecDate From Histroly Where ItemID=" & ItemID & " Order by HistrolyID Desc")
  120.            If not rs.eof Then
  121.               ItemCollecDate=rs("CollecDate")
  122.            else
  123.               ItemCollecDate=""
  124.            end if
  125.            Set rs=nothing
  126.            if ItemCollecDate<>"" then
  127.               Response.Write ItemCollecDate
  128.            Else
  129.               Response.Write "尚无记录"
  130.            End If
  131.           %></td>
  132.         </tr>
  133. <%
  134.         iItem=iItem+1
  135.         If iItem>=MaxPerPage Then Exit Do
  136.         RsItem.MoveNext
  137.         Loop
  138. %>
  139.     <tr bgcolor="#FFFFFF">
  140.       <td colspan="9"><input name="Action" type="hidden"  value="Start">&nbsp;<input name="chkAll" type="checkbox" class="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox" >全选</td>
  141.     </tr>
  142.     <tr bgcolor="#FFFFFF" class="td30">
  143.       <td colspan="9">  
  144.         &nbsp;&nbsp;&nbsp;采集模式:<input name="CollecType" type="radio" class="checkbox" id="CollecType" onClick="javascript:document.myform.Content_View.checked=false" value="1" checked>
  145.         快速模式<!--&nbsp;<input name="CollecType" type="radio" class="checkbox" id="CollecType" onClick="javascript:document.myform.Content_View.checked=true" value="0">
  146.         稳定模式&nbsp;&nbsp;
  147.         <input name="CollecType" type="radio" disabled class="checkbox" id="CollecType" value="2">
  148.         筛选模式&nbsp;-->&nbsp;
  149.         <input name="CollecTest" type="checkbox" class="checkbox" id="CollecTest" onClick="javascript:document.myform.Content_View.checked=true" value="yes">
  150.         采集测试&nbsp;&nbsp;<input name="Content_View" type="checkbox" class="checkbox" id="Content_View" value="yes">
  151.         正文预览
  152.         <input name="StartMe" type="submit" class="submit1" value="开始采集">        
  153. &nbsp;&nbsp;&nbsp;&nbsp;      </td>
  154.     </tr>
  155. <%Else%>
  156. <tr bgcolor="#FFFFFF">
  157.         <td colspan="9" align="center">系统中暂无可用采集项目!</td>
  158. </tr>
  159. <%
  160. End If
  161. RsItem.Close
  162. Set RsItem=Nothing
  163. %>
  164. <tr bgcolor="#FFFFFF"><td colspan="9" align="right"><%=ShowPage("Admin_ItemStart.asp",ItemNum,MaxPerPage,True,True," 个项目")%></td></tr>
  165. </form>
  166. </table>
  167. </body>
  168. </html>
  169. <%end sub%>
downloadAdmin_ItemStart.asp Source code - Download Jie Yang v0.6.3 article system Source code
Related Source Codes/Software:
Jilin classification information release system v5.0 trial version - A ready-made classifieds site publishing system, h... 2016-09-21
Linyi CMS v6.5 market classification information - A. supply and demand information function: informa... 2016-09-21
Tesco discount net SQL version - And presentations, faster. 2016-09-21
- electronic enterprise website management system In a fully functional version - Super suitable for enterprise agents build a corpo... 2016-09-21
Rio mesh network hard disk system v3.0 - System functions: 1, increase the progress of Asp... 2016-09-21
Classified information network business in suzhou - Overall module: classification of supply and deman... 2016-09-21
NPOINT virtual host v1.7.0 formal version management system - The system main function is introduced 2016-09-21
IDC sales web site - Beautiful IDC sales web site source code 2016-09-21
Oo 126 CMS movie site system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
Pcook CMS bubble guest v3.0 SDCMS version - Developed by Asp+Access, and meet the needs of sma... 2016-09-21
CRYENGINE - CRYENGINE is a powerful real-time game development... 2017-06-11
postal - 2017-06-11
reactide - Reactide is the first dedicated IDE for React web ... 2017-06-11
rkt - rkt is a pod-native container engine for Linux. It... 2017-06-11
uWebSockets - Tiny WebSockets https://for... 2017-06-11
realworld - TodoMVC for the RealWorld - Exemplary fullstack Me... 2017-06-11
goreplay - GoReplay is an open-source tool for capturing and ... 2017-06-10
pyenv - Simple Python version management 2017-06-10
redux-saga - An alternative side effect model for Redux apps ... 2017-06-10
angular-starter - 2017-06-10

 Back to top