📄 system_gatherexe.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
			    Set Grso = Gconn.Execute("Select WR_ID From WR_Histroly Where WR_ItemID="&ID&" and WR_Title='"&WR_Title&"'"&gSQL)
			    If Not Grso.Eof Then'存在
			      Call GatherInfo(WR_Title,"<span class=font2>记录已存在，不给予采集</span>",WR_Time,WR_Content,"",Url,WR_Tags)
				  Session(ID&"Item") = Itemdata(1,4)
				Else
	              WR_Content = GetContent(ShowCode,HtmlContent(1),ID,Url,Module,Int(BaseSetting(6)),Int(BaseSetting(7)),Int(BaseSetting(11)))
			      Gconn.Execute("Insert Into WR_Histroly(WR_ItemID,WR_Module,WR_Title,WR_Url,WR_AddRess,WR_TEL)values("&ID&","&Module&",'"&WR_Title&"','"&Url&"','"&AddRess&"','"&TEL&"')")
				  If Int(BaseSetting(5)) > 0 Then '直接入库
				    Call YSave(WR_Title,WR.CheckStr(WR_Content,4),AddRess,TEL,Mobile,Fax,WEB,WR_Time,WR_Tags,WR_Class,AreaID,SavePic)
				  Else
			        Gconn.Execute("Insert Into WR_Company(WR_Company,WR_Intro,WR_AddRess,WR_Tel,WR_Mobile,WR_Fax,WR_Web,WR_Time,WR_Tags,WR_ChannelID,WR_ClassID,WR_AreaID,WR_Pic,WR_Item)values('"&WR_Title&"','"&WR.CheckStr(WR_Content,4)&"','"&AddRess&"','"&TEL&"','"&Mobile&"','"&Fax&"','"&WEB&"','"&WR_Time&"','"&WR_Tags&"',"&ChannelID&",'"&WR_Class&"',"&AreaID&",'"&SavePic&"',"&ID&")")
				  End If
				  If Err Then
				    Session(ID&"Item") = Itemdata(1,4)
					Call GatherInfo("","<span class=font2>采集 "&Url&" 时出错。</span>","","","",Url,"")
					Err.Clear
				  Else
				    Call GatherInfo(WR_Title,"采集成功",WR_Time,Contact,"",Url,WR_Tags)
			        Session(ID&"Item") = Itemdata(1,3)
				  End If
				End If
			    Grso.Close
			  End If
		  End Select
		End If

        Session(ID&"Item") = Itemdata(1,6)
		
		If Int(BaseSetting(4)) > 0 Then
		  Session(ID&"Num") = Session(ID&"Num") + 1
	      If Session(ID&"Num") >= Int(BaseSetting(4)) Then Response.RediRect "?Action=GatherStop&ID="&ID
		End If
        Response.Flush()
        If Session(ID&"UrlList") <> "" Then
		  WR_Anamnesis = Session(ID&"Item")&"№№№"&Session(ID&"PageList")&"№№№"&Session(ID&"UrlList")
	      Gconn.Execute("Update WR_Item Set WR_Anamnesis='"&WR_Anamnesis&"' Where WR_ID="&ID&"")
	      Response.write "<meta http-equiv=RefResh content='"&WR_Gather(0)&";URL=?Action=CatherTwo&Collecdate="&Collecdate&"&ID="&ID&"'>"
        Else
          If Session(ID&"PageList") = "" Then
	        Response.write "<meta http-equiv=RefResh content='"&WR_Gather(0)&";URL=?Collecdate="&Collecdate&"&ID="&ID&"'>"
	      Else
  		    Response.write "<meta http-equiv=RefResh content='"&WR_Gather(0)&";URL=?Action=CatherOne&Collecdate="&Collecdate&"&ID="&ID&"'>"
          End If
        End If
	  
    Case "CatherOne"
	  If Session(ID&"PageList") <> "" Then
	    Set Grs = Gconn.Execute("Select Top 1 WR_BaseSetting,WR_Name,WR_ListBegin,WR_ListEnd,WR_LinkBegin,WR_LinkEnd From WR_Item Where WR_ID="&ID)
	    If Not Grs.Eof Then
	      BaseSetting = Grs(0)
		  BaseSetting = Split(BaseSetting,"§§§")
		  ListBegin = Grs(2)
		  ListEnd = Grs(3)
		  LinkBegin = Grs(4)
		  LinkEnd = Grs(5)
	    End If
		Grs.Close
	  Else
	    Session(ID&"PageList") = ""
	    Session(ID&"UrlList") = ""
	    Set Grs = Gconn.Execute("Select Top 1 WR_BaseSetting,WR_Name,WR_ListBegin,WR_ListEnd,WR_LinkBegin,WR_LinkEnd From WR_Item Where WR_ID="&ID)
	    If Not Grs.Eof Then
	      BaseSetting = Grs(0)
		  BaseSetting = Split(BaseSetting,"§§§")
		  ListBegin = Grs(2)
		  ListEnd = Grs(3)
		  LinkBegin = Grs(4)
		  LinkEnd = Grs(5)
		  Session(ID&"Item") = Itemdata(Grs(1),0)
		  Session(ID&"PageList") = BaseSetting(0)
		  Select Case Int(BaseSetting(2))
		  Case 1
			For i=Int(Split(BaseSetting(3),"|")(1)) To Int(Split(BaseSetting(3),"|")(2))
		      Select Case Int(BaseSetting(8))
			    Case 0 '正
				  Session(ID&"PageList") = Session(ID&"PageList") & "§" & Replace(Split(BaseSetting(3),"|")(0),"{$ID}",i)
			    Case 1 '倒
				  Session(ID&"PageList") = Replace(Split(BaseSetting(3),"|")(0),"{$ID}",i) & "§" & Session(ID&"PageList")
			  End Select
			Next
		  Case 2
		    Select Case Int(BaseSetting(8))
			  Case 0 '正
			    Session(ID&"PageList") = Session(ID&"PageList") & "§" & Replace(BaseSetting(3),vbCrLf,"§")
			  Case 1 '倒
			    If Instr(BaseSetting(3),vbCrLf)>0 Then
				  For i = 0 To UBound(Split(BaseSetting(3),vbCrLf))
				    Session(ID&"PageList") = Split(BaseSetting(3),vbCrLf)(i) & "§" & Session(ID&"PageList")
				  Next
				Else
				  Session(ID&"PageList") = BaseSetting(3) & "§" & Session(ID&"PageList")
				End If
			End Select
		  End Select
		  Session(ID&"Item") = Itemdata(Ubound(Split(Session(ID&"PageList"),"§"))+1,8)
		  Gconn.Execute("Update WR_Item Set WR_LastTime = '"&Now()&"' Where WR_ID="&ID)
	    Else
	      Call WRMPS.ErrView("·ID为"&ID&"的项目数据丢失<meta http-equiv=RefResh content='1;URL=?Collecdate="&Collecdate&"&ID="&ID&"'>",0)
	    End If
	    Grs.Close
	  End If
      If Session(ID&"PageList") = "" Then
		Response.RediRect "?Collecdate="&Collecdate&"&ID="&ID
	  Else
	    If Instr(Session(ID&"PageList"),"§") > 0 Then
	      PageList = Split(Session(ID&"PageList"),"§")(0)
	    Else
	      PageList = Session(ID&"PageList")
	    End If
		If PageList <> "" Then
		  Session(ID&"Item") = Itemdata(0,7)
		  Session(ID&"Item") = Itemdata(1,1)
	      ShowCode = GetHttpPage(PageList,BaseSetting(1))
		  ShowCode = ListCode(HCode(ShowCode,ListBegin,ListEnd),LinkBegin,LinkEnd,BaseSetting(8))
		  Session(ID&"Item") = Itemdata(Ubound(Split(ShowCode,"§"))+1,2)
		  Session(ID&"UrlList") = "":Session(ID&"UrlList") = ShowCode
		  If PageList <> "" Then
	        Session(ID&"PageList") = Listdata(0,PageList)
	      End If
		  Response.RediRect "?Action=CatherTwo&Collecdate="&Collecdate&"&ID="&ID
		Else
		  Response.RediRect "?Collecdate="&Collecdate&"&ID="&ID
		End If
      End If

	Case "GatherStop" '停止采集
	  Session(ID&"Num") = ""
	  Session("IDList") = ""
	  Session(ID&"Item") = ""
	  Session(ID&"PageList") = ""
	  Session(ID&"UrlList") = ""
	  Response.RediRect "?Collecdate="&Collecdate&"&ID="&ID

	Case Else
      'Session(ID&"Item")  项目名称|正在采集第？页|本页记录总数|采集成功数|失败数|图片数|共采集数|当前在采集本页第？条|总页数
	  If ID <> "" Then Gconn.Execute("Update WR_Item Set WR_Anamnesis=Null Where WR_ID="&ID)
      If Session("IDList") = "" Then
	    Session(ID&"Num") = ""
		Session(ID&"Item") = ""
	    Session(ID&"PageList") = ""
	    Session(ID&"UrlList") = ""
		If Collecdate <> "" Then 
		  Call WRMPS.ErrView("·采集成功<meta http-equiv=RefResh content='1;URL=?Action=ExeTiming&Collecdate="&Collecdate&"'>",1)
		Else
		  Call WRMPS.ErrView("·采集成功",1)
		End If
	  Else
	    Line = 0
	    If WR.CheckStr(Request("WorkLine"), 1) <> "" Then
	      WorkLine = WR.CheckStr(Request("WorkLine"), 1)
	      If WorkLine > 9 Then WorkLine = 9
		  If WorkLine > 1 Then
		    Line = 1
		  End If
		End If
		If Line > 0 Then '开启多线程
		  For Li=1 To WorkLine
	        If Instr(Session("IDList"),",") > 0 Then
	          ID = Split(Session("IDList"),",")(0)
	        Else
	          ID = Session("IDList")
	        End If
	        If ID <> "" Then
	          Session("IDList") = Listdata(2,ID)
	        End If
	        Session(ID&"Num") = ""
			Session(ID&"Item") = ""
	        Session(ID&"PageList") = ""
	        Session(ID&"UrlList") = ""
	        Session(ID&"Item") = "|0|0|0|0|0|0|0|0"
			Response.Write "<iframe name=left src='System_GatheRexe.asp?Action=CatherOne&Collecdate="&Collecdate&"&ID="&ID&"' width='100%' height=280 scrolling=yes FRAMEBORDER=0></iframe>"
		  Next
		Else
	      If Instr(Session("IDList"),",") > 0 Then
	        ID = Split(Session("IDList"),",")(0)
	      Else
	        ID = Session("IDList")
	      End If
	      If ID <> "" Then
	        Session("IDList") = Listdata(2,ID)
	      End If
	      Session(ID&"Num") = ""
		  Session(ID&"Item") = ""
	      Session(ID&"PageList") = ""
	      Session(ID&"UrlList") = ""
	      Session(ID&"Item") = "|0|0|0|0|0|0|0|0"
	      Response.RediRect "?Action=CatherOne&Collecdate="&Collecdate&"&ID="&ID
		End If
      End If
      Response.write Content
  End Select
  Set Grso = Nothing
  Set Grs = Nothing
  If Line = 0 Then Call GetBottom()
  Call ConnClose()
  Call ClassEnd()
  
  '采集项目动态数据操作
  Function Itemdata(Str,Num)
	Dim IDItemTemp,ItemTemp,Temp
    IDItemTemp = Split(Session(ID&"Item"),"|")
	For i=0 To 8
	  If Num <> i Then
	    If Temp = "" Then
	      Temp = IDItemTemp(i)
	    Else
	      Temp = Temp & "|" & IDItemTemp(i)
	    End If
	  Else
	    Select Case Num
	      Case 0,2,8
		    ItemTemp = Str
	      Case 1,3,4,5,6
		    Str = Int(Str)
	        ItemTemp = Int(IDItemTemp(i)) + Str
	      Case 7
		    Str = Int(Str)
			If Str = 0 Then ItemTemp = 0 Else ItemTemp = Int(IDItemTemp(i)) + Str
	    End Select
	    If Temp = "" Then
	      Temp = ItemTemp
	    Else
	      Temp = Temp & "|" & ItemTemp
	    End If
	  End If
	Next
	Itemdata = Temp
  End Function
  '采集列表操作
  'Num 0为列表页列表,1为文章列表，2项目ID列表
  Function Listdata(Num,Str)
    List = "":Listdata = ""
	Select Case Num
	  Case 0
	    List = Session(ID&"PageList")
		For i = 0 To UBound(Split(List,"§"))
		  If Split(List,"§")(i) <> Str Then
		    If Listdata <> "" Then
		      Listdata = Listdata &"§"& Split(List,"§")(i)
		    Else
		      Listdata = Split(List,"§")(i)
		    End If
		  End If
		Next

	  Case 1
	    List = Session(ID&"UrlList")
		For i = 0 To UBound(Split(List,"§"))
		  If Split(List,"§")(i) <> Str Then
		    If Listdata <> "" Then
		      Listdata = Listdata &"§"& Split(List,"§")(i)
		    Else
		      Listdata = Split(List,"§")(i)
		    End If
		  End If
		Next

	  Case 2
	    List = Session("IDList")
		For i = 0 To UBound(Split(List,","))
		  If Split(List,",")(i) <> Str Then
		    If Listdata <> "" Then
		      Listdata = Listdata &","& Split(List,",")(i)
		    Else
		      Listdata = Split(List,",")(i)
		    End If
		  End If
		Next
	End Select
  End Function

%>
上一页 12
⌨️ 快捷键说明

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