BVB Source Codes

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

Return Download Jie Yang v0.6.3 article system: download Admin_ItemCollection.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="inc/clsCache.asp"-->
  4. <link rel="stylesheet" type="text/css" href="../style/Style.css">
  5. <%
  6. Dim Action,ItemID,CollecType
  7. Dim SqlItem,RsItem
  8. Dim Arr_Item,Arr_Filters,Arr_Histrolys,myCache,CollecTest,Content_View
  9. Dim CacheTemp,ErrMsg
  10. FoundErr=False
  11.  
  12. CacheTemp=Lcase(trim(request.ServerVariables("SCRIPT_NAME")))
  13. CacheTemp=left(CacheTemp,instrrev(CacheTemp,"/"))
  14. CacheTemp=replace(CacheTemp,"\","_")
  15. CacheTemp=replace(CacheTemp,"/","_")
  16. CacheTemp="ansir" & CacheTemp
  17.  
  18. '检察表单
  19. Call Delnews()
  20. Call CheckForm()
  21. If FoundErr<>True Then
  22.    Call SetCache()
  23.    If FoundErr<>True Then
  24.       'If CollecType=0 Then
  25.          'ErrMsg= "<meta http-equiv=""refresh"" content=""3;url=Admin_ItemCollecSteady.asp?ItemNum=1&ListNum=1&ListSuccesNum=0&ListFalseNum=0&newsNumAll=0"">"
  26.       'ElseIf CollecType=1 Then
  27.          ErrMsg="<meta http-equiv=""refresh"" content=""3;url=Admin_ItemCollecFast.asp?ItemNum=1&ListNum=1&newsSuccesNum=0&newsFalseNum=0&ImagesNumAll=0"">"
  28.       'ElseIf CollecType=2 Then
  29.         ' ErrMsg="<meta http-equiv=""refresh"" content=""3;url=Admin_ItemCollecScreen.asp?Action=GetList"">"
  30.      ' End If
  31.    End If
  32. End If
  33. If FoundErr=True Then
  34.    Call WriteErrMsg(ErrMsg)
  35. Else
  36.    Call Main()
  37. End If
  38. %>
  39.  
  40. <%Sub Main%>
  41. <html>
  42. <head>
  43. <title>采集系统</title>
  44. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  45. </head>
  46. <body>
  47. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  48.   <tr>
  49.     <td class="td28">采集系统采集理管理</td>
  50.   </tr>
  51.   <tr class="td26" bgcolor="#FFFFFF">
  52.     <td><b>管理导航:</b><a href="Admin_ItemStart.asp">管理首页</a> >> 信息采集 >> 初始化数据</td>
  53.   </tr>
  54. </table>
  55. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  56.     <tr>
  57.       <td height="100" colspan="2" align=center bgcolor="#FFFFFF">
  58.       <br>
  59.       <br>
  60.       欢迎使用信息采集系统,正在初始化数据,请稍后...
  61.       <br>
  62.       <br>
  63. <%=ErrMsg%>
  64.       </td>
  65.     </tr>
  66. </table>
  67. </body>        
  68. </html>
  69. <%End Sub
  70. Sub CheckForm()
  71.  
  72.    '提取表单
  73.    Action=trim(Request.Form("Action"))
  74.    ItemID=Trim(Request.Form("ItemID"))
  75.    CollecType=Trim(Request.Form("CollecType"))
  76.    CollecTest=Trim(Request.Form("CollecTest"))
  77.    Content_View=Trim(Request.Form("Content_View"))
  78.    '检察表单
  79.    If Action<>"Start" Then
  80.       FoundErr=True
  81.       ErrMsg=ErrMsg & "<br><br><li>参数不足!</li><br>"
  82.    End If
  83.    If ItemID="" Then
  84.       FoundErr=True
  85.       ErrMsg=ErrMsg & "<br><br><li>请您选择项目!</li><br><br>"
  86.    Else
  87.       If Instr(ItemID,",")>0 Then
  88.          ItemID=Replace(ItemID," ","")
  89.       End If
  90.    End If
  91.    If CollecType="" Then
  92.       FoundErr=True
  93.       ErrMsg=ErrMsg & "<br><li>请您选择采集模式!</li>"
  94.    Else
  95.       CollecType=Clng(CollecType)
  96.       If CollecType<>0 And CollecType<>1 And CollecType<>2 Then
  97.          FoundErr=True
  98.          ErrMsg=ErrMsg & "<br><li>您选择的采集模式无效!</li>"
  99.       End If
  100.    End If
  101.    If CollecTest="yes" Then
  102.       CollecTest=True
  103.    Else
  104.       CollecTest=False
  105.    End If
  106.    If Content_View="yes" Then
  107.       Content_View=True
  108.    Else
  109.       Content_View=False
  110.    End If
  111. End Sub
  112. Sub SetCache()
  113.    '项目信息
  114.    SqlItem ="select * from Item where ItemID in(" & ItemID & ")"
  115.    Set RsItem=Server.CreateObject("adodb.recordset")
  116.    RsItem.Open SqlItem,ConnItem,1,1
  117.    If Not RsItem.Eof Then
  118.       Arr_Item=RsItem.GetRows()
  119.    End If
  120.    RsItem.Close
  121.    Set RsItem=Nothing
  122.  
  123.    Set myCache=new clsCache
  124.    myCache.name=CacheTemp & "items"
  125.    Call myCache.clean()
  126.    If IsArray(Arr_Item)=True Then
  127.       myCache.add Arr_Item,Dateadd("n",1000,now)
  128.    Else
  129.       FoundErr=True
  130.       ErrMsg=ErrMsg & "<br>发生意外错误!"
  131.    End If
  132.    
  133.    '过滤信息
  134.    SqlItem ="select * from Filters where Flag=True"
  135.    Set RsItem=Server.CreateObject("adodb.recordset")
  136.    RsItem.Open SqlItem,ConnItem,1,1
  137.    If Not RsItem.Eof Then
  138.       Arr_Filters=RsItem.GetRows()
  139.    End If
  140.    RsItem.Close
  141.    Set Rsitem=Nothing
  142.  
  143.    myCache.name=CacheTemp & "filters"
  144.    Call myCache.clean()
  145.    If IsArray(Arr_Filters)=True Then
  146.       myCache.add Arr_Filters,Dateadd("n",1000,now)
  147.    End If
  148.  
  149.    '历史记录
  150.    SqlItem ="select newsUrl,Title,CollecDate,Result from Histroly"
  151.    Set RsItem=Server.CreateObject("adodb.recordset")
  152.    RsItem.Open SqlItem,ConnItem,1,1
  153.    If Not RsItem.Eof Then
  154.       Arr_Histrolys=RsItem.GetRows()
  155.    End If
  156.    RsItem.Close
  157.    Set RsItem=Nothing
  158.  
  159.    myCache.name=CacheTemp & "histrolys"
  160.    Call myCache.clean()
  161.    If IsArray(Arr_Histrolys)=True Then
  162.       myCache.add Arr_Histrolys,Dateadd("n",1000,now)
  163.    End If
  164.  
  165.    '其它信息
  166.    myCache.name=CacheTemp & "collectest"
  167.    Call myCache.clean()
  168.    myCache.add CollecTest,Dateadd("n",1000,now)
  169.  
  170.    myCache.name=CacheTemp & "contentview"
  171.    Call myCache.clean()
  172.    myCache.add Content_View,Dateadd("n",1000,now)
  173.  
  174.    set myCache=nothing
  175. End Sub
  176.  
  177. Sub Delnews()
  178.    ConnItem.execute("Delete From [newsList]")
  179. End Sub
  180. %>
downloadAdmin_ItemCollection.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