⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 system_gatherarticle.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	End If
	Content = Content & "><td><strong>批量生成</strong><br>除目标页以外的列表页面</td><td><input name=ListStr2 type=text size=50 value="""&ListStr&"""> 分页代码 <font color=Red>{$ID}</font><br>格式：http://www.wangRen.net/list.asp?page={$ID}<br>生成范围：<input name=ListID1 type=text size=8 maxlength=5 value="""&ListID1&"""> To <input name=ListID2 type=text size=8 maxlength=5 value="""&ListID2&"""> 例如：2 - 9 请从小到大填写</td></tr>" & vbCrLf
    Content = Content & "<tr class=td2 id=ListPaing3"
	If Int(BaseSetting(2)) <> 2 Then Content = Content & " style='display:none'"
	Content = Content & "><td><strong>手动添加</strong></td><td><textaRea name=ListStr3 cols=50 rows=6>"&Replace(BaseSetting(3),"||","")&"</textaRea><br>格式：输入一个网址后按回车，再输入下一个</td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td><strong>采集设置</strong></td><td><input name=Passed type=checkbox value=1" & WRMPS.GetCheckVer(1, Int(BaseSetting(5)), 1) & ">立即入库　<input name=SaveFiles type=checkbox value=1" & WRMPS.GetCheckVer(1, Int(BaseSetting(6)), 1) & ">保存图片　<input name=CReateThumb type=checkbox value=1" & WRMPS.GetCheckVer(1, Int(BaseSetting(11)), 1) & ">标题缩略图　<input name=WaterMark type=checkbox value=1" & WRMPS.GetCheckVer(1, Int(BaseSetting(7)), 1) & ">图片水印　<input name=CollecOrder type=checkbox value=1" & WRMPS.GetCheckVer(1, Int(BaseSetting(8)), 1) & ">倒序采集　<input name=Timing type=checkbox value=1" & WRMPS.GetCheckVer(1, Timing, 1) & ">定时采集</td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td><strong>标签过滤</strong></td><td><input name=Leach type=checkbox value=iframe"
	If Instr(BaseSetting(9),"|iframe|") > 0 Then Content = Content & " checked"
	Content = Content & ">ifrAme　<input name=Leach type=checkbox value=object"
	If Instr(BaseSetting(9),"|object|") > 0 Then Content = Content & " checked"
	Content = Content & " onclick='Return confirm(""确定要选择该标记吗？这将删除正文中的所有Object标记，结果将导致该文章中的所有Flash动画被删除！"");'>Object　<input name=Leach type=checkbox value=script"
	If Instr(BaseSetting(9),"|script|") > 0 Then Content = Content & " checked"
	Content = Content & ">Script　<input name=Leach type=checkbox value=div"
	If Instr(BaseSetting(9),"|div|") > 0 Then Content = Content & " checked"
	Content = Content & ">Div　<input name=Leach type=checkbox  value=table"
	If Instr(BaseSetting(9),"|table|") > 0 Then Content = Content & " checked"
	Content = Content & ">Table　<input name=Leach type=checkbox  value=tr"
	If Instr(BaseSetting(9),"|tr|") > 0 Then Content = Content & " checked"
	Content = Content & ">TR<br><input name=Leach type=checkbox  value=span"
	If Instr(BaseSetting(9),"|span|") > 0 Then Content = Content & " checked"
	Content = Content & ">Span　<input name=Leach type=checkbox value=img"
	If Instr(BaseSetting(9),"|img|") > 0 Then Content = Content & " checked"
	Content = Content & ">Img　<input name=Leach type=checkbox  value=font"
	If Instr(BaseSetting(9),"|font|") > 0 Then Content = Content & " checked"
	Content = Content & ">Font　<input name=Leach type=checkbox value=a"
	If Instr(BaseSetting(9),"|a|") > 0 Then Content = Content & " checked"
	Content = Content & ">A　<input name=Leach type=checkbox value=html"
	If Instr(BaseSetting(9),"|html|") > 0 Then Content = Content & " checked"
	Content = Content & " onclick='Return confirm(""确定要选择该标记吗？这将删除正文中的所有Html标记，结果将导致该文章的可查看性降低！"");'>Html　<input name=Leach type=checkbox value=td"
	If Instr(BaseSetting(9),"|td|") > 0 Then Content = Content & " checked"
	Content = Content & ">TD</td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td><strong>内容字符替换操作</strong><br>格式 替换前的字符串|替换后的字符串<br>每条替换规则之间用回车隔开</td><td><textaRea name=Displace cols=50 rows=6>"&BaseSetting(10)&"</textaRea></td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td><strong>采集数量限制</strong><br>0为采集所有</td><td><input name='CollecNum' type='text' size=8 maxlength=5 value="""&BaseSetting(4)&"""></td></tr>" & vbCrLf
	Content = Content & "<tr class=td2><td></td><td><input type=submit name=Submit value='下一步'>　　<input type=checkbox name=ShowCode value=1>显示源码</td></tr>" & vbCrLf
    Content = Content & "</form>" & vbCrLf
	Content = Content & "</table>" & vbCrLf

  Case "SaveAll"
	ID = Replace(ID,"&nbsp;","")
	WorkLine = WR.CheckStr(Request.Form("WorkLine"), 1)
	If WorkLine = "" Then WorkLine = 1
	Session("IDList") = "":Session("IDList") = ID
    If Request("SaveType") = "采集" Then
      Dim Anamnesis,WR_Anamnesis
	  Anamnesis = WR.CheckStr(Request("Anamnesis"), 1)
	  If Anamnesis = 1 And Instr(ID,",") = 0 Then
	    Call ConnOpen()
		Set Grs = Gconn.Execute("Select Top 1 WR_Anamnesis From WR_Item Where WR_ID="&ID)
		If Not Grs.Eof Then
		  WR_Anamnesis = Grs(0)
		  Session("IDList") = ""
	      Session(ID&"Item") = Split(WR_Anamnesis,"№№№")(0)
		  Session(ID&"PageList") = Split(WR_Anamnesis,"№№№")(1)
		  Session(ID&"UrlList") = Split(WR_Anamnesis,"№№№")(2)
		End If
		Grs.Close
		Set Grs = Nothing
		Call ConnClose()
		Response.RediRect "System_GatheRexe.asp?Action=CatherTwo&ID="&ID
	  Else
	    Response.RediRect "System_GatheRexe.asp?WorkLine="&WorkLine
	  End If
	End If
	If ID <> "" Then
      Call ConnOpen()
      ID = Split(ID, ",")
      For i = 0 To UBound(ID)
         Select Case Request("SaveType")
		   Case "定时"
		     Gconn.Execute("Update WR_Item Set WR_Timing=1 Where WR_ID="&Int(ID(i)))
		   Case "取消"
		     Gconn.Execute("Update WR_Item Set WR_Timing=0 Where WR_ID="&Int(ID(i)))
		   Case "删除"
		     Gconn.Execute("Delete From WR_Item Where WR_ID="&Int(ID(i)))
		 End Select
      Next
	  Call ConnClose()
    End If
	Call WRMPS.ErrView("·操作成功<meta http-equiv=RefResh content='1;URL=?Page="&Page&"'>",1)

  Case "Copy"
    Call ConnOpen()
    Set Grs = Gconn.Execute("Select Top 1 WR_Name,WR_Class,WR_Area,WR_BaseSetting,WR_Timing,WR_ListBegin,WR_ListEnd,WR_LinkBegin,WR_LinkEnd,WR_LinkReset,WR_Content,WR_PageNext,WR_ChannelID From WR_Item Where WR_ID="&Int(ID))
	If Not Grs.Eof Then
	  ItemName = Grs(0)
	  WR_Class = Grs(1)
	  AreaID = Grs(2)
	  BaseSetting = Grs(3)
	  Timing = Grs(4)
	  ListBegin = WR.CheckStr(Grs(5),2)
	  ListEnd = WR.CheckStr(Grs(6),2)
	  LinkBegin = WR.CheckStr(Grs(7),2)
	  LinkEnd = WR.CheckStr(Grs(8),2)
	  LinkReset = Grs(9)
	  HtmlContent = WR.CheckStr(Grs(10),2)
	  PageNext = WR.CheckStr(Grs(11),2)
	  ChannelID = Grs(12)
	  Gconn.Execute("Insert Into WR_Item(WR_Name,WR_ChannelID,WR_Class,WR_Area,WR_BaseSetting,WR_Timing,WR_ListBegin,WR_ListEnd,WR_LinkBegin,WR_LinkEnd,WR_LinkReset,WR_Content,WR_PageNext,WR_Key,WR_Module)values('"&ItemName&" 复制','"&ChannelID&"','"&WR_Class&"','"&AreaID&"','"&BaseSetting&"',"&Timing&",'"&ListBegin&"','"&ListEnd&"','"&LinkBegin&"','"&LinkEnd&"','"&LinkReset&"','"&HtmlContent&"','"&PageNext&"',1,"&Module&")")
	End If
	Grs.Close
	Set Grs = Gconn.Execute("Select Top 1 WR_ID From WR_Item Order By WR_ID Desc")
	If Not Grs.Eof Then
	  WR_ID = Grs(0)
	End If
	Grs.Close
    Set Grs = Gconn.Execute("Select WR_Name,WR_Key,WR_LeachType,WR_Leach1,WR_Leach2,WR_Module From WR_Leach Where WR_ItemID="&Int(ID))
    Do While Not Grs.Eof
	  WR_Name = Grs(0)
	  WR_Key = Grs(1)
	  WR_LeachType = Grs(2)
	  WR_Leach1 = WR.CheckStr(Grs(3),2)
	  WR_Leach2 = WR.CheckStr(Grs(4),2)
	  WR_Module = Grs(5)
	  Gconn.Execute("INSERT Into WR_Leach(WR_Name,WR_ItemID,WR_Key,WR_LeachType,WR_Leach1,WR_Leach2,WR_Module)values('"&WR_Name&"',"&WR_ID&","&WR_Key&","&WR_LeachType&",'"&WR_Leach1&"','"&WR_Leach2&"',"&WR_Module&")")
    Grs.MoveNext
    Loop
    Grs.Close
	Set Grs = Nothing
	Call ConnClose()
    Call WRMPS.ErrView("·采集项目复制成功<meta http-equiv=RefResh content='1;URL=?Page="&Page&"'>",1)

  Case Else
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<form name='from1' method='post' Action='?Action=SaveAll'>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=10><strong>采集项目管理</strong></td></tr>" & vbCrLf
      Content = Content & "<tr class=td3 align=center><td width='3%'></td>" & vbCrLf
      Content = Content & "<td width='*'>名称</td>" & vbCrLf
      Content = Content & "<td width='10%'>所属频道</td>" & vbCrLf
      Content = Content & "<td width='10%'>所属栏目</td>" & vbCrLf
      Content = Content & "<td width='10%'>所属地区</td>" & vbCrLf
      Content = Content & "<td width='5%'>状态</td>" & vbCrLf
      Content = Content & "<td width='8%'>定时采集</td>" & vbCrLf
      Content = Content & "<td width='12%'>上次采集时间</td>" & vbCrLf
      Content = Content & "<td width='12%'>上次采集完成状态</td>" & vbCrLf
      Content = Content & "<td width='15%'>操作</td>" & vbCrLf
      Content = Content & "</tr>" & vbCrLf
	    Call ConnOpen()
        Grs.Open "Select WR_ID,WR_Name,WR_Class,WR_Timing,WR_LastTime,WR_Key,WR_ChannelID,WR_Area,WR_Anamnesis From WR_Item Where WR_Module = "&Module&" Order by WR_ID Desc", Gconn, 1, 1
        If Grs.EOF Then
          Content = Content & "<tr class=td2><td align=center colspan=9>没有采集项目</td></tr></table>" & vbCrLf
        Else
          '分页的实现
          ListNum = 20
          Grs.PageSize = ListNum
          If Page = "" Then Page = 1
          If Page < 1 Then Page = 1
          Grs.AbsolutePage = Page
          i = 0
          Do While Not Grs.EOF And i < ListNum
             Content = Content & "<tr class=td2 align=center>"
             Content = Content & "<td><input type='checkbox' name='ID' value=" & Grs(0) & " style='border:0'></td>" & vbCrLf
             Content = Content & "<td align=left>" & Grs(1) & "</td>" & vbCrLf
			 Content = Content & "<td>" & GetChannelName(Split(Grs(6),"|")(0)) & "</td>" & vbCrLf
			 Content = Content & "<td>" & WRDB.GetClassName("WM_ArticleSort",Split(Grs(2),"|")(0)) & "</td>" & vbCrLf
			 Content = Content & "<td>" & WRDB.GetClassName("WM_Area",Grs(7)) & "</td>" & vbCrLf
             Content = Content & "<td><strong>" & Replace(Replace(Grs(5),0,"×"),1,"<font class=font2>√</font>") & "</strong></td>" & vbCrLf
             Content = Content & "<td><strong>" & Replace(Replace(Grs(3),0,"×"),1,"<font class=font2>√</font>") & "</strong></td>" & vbCrLf
             Content = Content & "<td>"
			 If Grs(4) <> "" and IsNull(Grs(4)) = False Then Content = Content & Grs(4)
			 Content = Content & "</td>" & vbCrLf
             Content = Content & "<td>"
			 If Grs(4) <> "" and IsNull(Grs(4)) = False and Grs(8) <> "" and IsNull(Grs(8)) = False Then Content = Content & "<a href=?Action=SaveAll&ID="&Grs(0)&"&SaveType=采集&Anamnesis=1><font class=font2>继续上次采集</font></a>"
			 Content = Content & "</td>" & vbCrLf
             Content = Content & "<td><a href=?Action=Copy&ID="&Grs(0)&"&Page="&Page&">复制</a> <a href=?Action=SaveAll&ID="&Grs(0)&"&SaveType=采集>采集</a> <a href=?Action=Item&ID="&Grs(0)&"&Page="&Page&">编辑</a> <a href=?Action=ItemTest&ShowCode=1&Save=No&ID="&Grs(0)&"&Page="&Page&">测试</a> <a href=?Action=SaveAll&ID="&Grs(0)&"&SaveType=删除&Page="&Page&" onclick=""Return confirm('确定删除？');"">删除</a></td>" & vbCrLf
             Content = Content & "</tr>" & vbCrLf
          Grs.MoveNext
          i = i + 1
          Loop
          'URLParameter = ""
          Content = Content & "<tr class=td3><td colspan=7><input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　<input name='Page' type='hidden' value='" & Page & "'><select name='SaveType'><option value='采集'>采集</option><option value='定时'>设置定时采集</option><option value='取消'>取消定时采集</option><option value='删除'>删除</option></select> <input name='WorkLine' type='text' size=4 maxlength=1 value=1>线程同时工作 <input type='submit' name='submit' value='批量操作' ></td><td colspan=3 align=right>" & GetAdminPageList(URLParameter, ListNum, Grs.RecordCount, Page) & "&nbsp;</td></tr></form>" & vbCrLf
          Grs.Close
          Content = Content & "</form></table>" & vbCrLf
        End If
	  Set Grs = Nothing
	  Call ConnClose()
End Select
Response.write Content
Call GetBottom()
Call ClassEnd()

%>
123

⌨️ 快捷键说明

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