system_gatherclass.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

  Case "SaveAll"
	ID = Replace(ID," ","")
	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_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)
	  ChannelID = Grs(11)
	  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_Key,WR_Module)values('"&ItemName&" 复制',"&ChannelID&",'"&WR_Class&"','"&AreaID&"','"&BaseSetting&"',"&Timing&",'"&ListBegin&"','"&ListEnd&"','"&LinkBegin&"','"&LinkEnd&"','"&LinkReset&"','"&HtmlContent&"',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_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>分类信息</td>" & vbCrLf
			 Content = Content & "<td>" & WRDB.GetClassName("WM_ClassSort",Split(Grs(2),"|")(0)) & "</td>" & vbCrLf
			 Content = Content & "<td>" & WRDB.GetClassName("WM_Area",Grs(6)) & "</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(7) <> "" and IsNull(Grs(7)) = 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()

%>