system_gatherleach.asp

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

<!--#include file="System_Gather.asp"-->
<%
  Call WR.Hand()
  Dim ID,i
  Dim LeachName,ItemID,LeachType,Leach1,Leach2
  Module = WR.CheckStr(Request("Module"),1)
  ID = WR.CheckStr(Request("ID"), 0)
  Page = WR.CheckStr(Request("page"),1)
  Call ConnOpen()
  Set Grs = server.cReateobject("adodb.Recordset")
  Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
  Content = Content & "<tr class=td2><td><a href=System_Gather"&WRMPS.GetReplace(WRMPS.GetReplace(WRMPS.GetReplace(Module,1,"Article"),2,"Class"),3,"Company")&".asp>项目管理首页</a> | <a href=System_Gather"&WRMPS.GetReplace(WRMPS.GetReplace(WRMPS.GetReplace(Module,1,"Article"),2,"Class"),3,"Company")&".asp?Action=Item>添加项目</a> | <a href=System_GatherDataTrim.asp?Module="&Module&">数据审核</a> | <a href=System_GatherDataTrim.asp?Action=Histroly&Module="&Module&">采集历史</a> | <a href=System_GatherLeach.asp?Module="&Module&">过滤管理</a> | <a href=System_GatherLeach.asp?Action=Leach&Module="&Module&">添加新过滤</a></td></tr>" & vbCrLf
  Content = Content & "</table>" & vbCrLf

  Select Case Request("Action")
    Case "LeachSave"
	  LeachName = WR.CheckStr(Request("LeachName"),0)
	  If LeachName = "" Then Call WRMPS.ErrView("·请填写过滤名称", 0)
	  ItemID = WR.CheckStr(Request("ItemID"),1)
	  If ItemID = 0 Then Call WRMPS.ErrView("·请选择所属项目", 0)
	  LeachType = WR.CheckStr(Request("LeachType"),1)
	  Select Case LeachType
	    Case 0
	      Leach1 = WR.CheckStr(Request("Leach"),2)
		  If Leach1 = "" Then Call WRMPS.ErrView("·请填写将要被替换的内容", 0)
		Case 1
	      Leach1 = WR.CheckStr(Request("Leach1"),2)&Sign&WR.CheckStr(Request("Leach2"),2)
		  If Request("Leach1") = "" or Request("Leach2") = "" Then Call WRMPS.ErrView("·请填写将要被替换的内容开始及结束标签", 0)
	  End Select
	  Leach2 = WR.CheckStr(Request("Leach3"),2)
	  Key = WR.CheckStr(Request("Key"),1)
	  If ID <> "" Then
	    Gconn.Execute("Update WR_Leach Set WR_Name='"&LeachName&"',WR_ItemID="&ItemID&",WR_Key="&Key&",WR_LeachType="&LeachType&",WR_Leach1='"&Leach1&"',WR_Leach2='"&Leach2&"' Where WR_ID="&ID&"")
      Else
	    Gconn.Execute("insert into WR_Leach(WR_Name,WR_ItemID,WR_Key,WR_LeachType,WR_Leach1,WR_Leach2,WR_Module)values('"&LeachName&"',"&ItemID&","&Key&","&LeachType&",'"&Leach1&"','"&Leach2&"',"&Module&")")
	  End If
	  Call WRMPS.ErrView("·操作成功<meta http-equiv=RefResh content='1;URL=?Page="&Page&"&Module="&Module&"'>",1)

    Case "Leach"
	   Leach1 = Sign
	   Key = 1
	  If ID <> "" Then
	    Set Grs = Gconn.Execute("Select Top 1 WR_Name,WR_ItemID,WR_Key,WR_LeachType,WR_Leach1,WR_Leach2 From WR_Leach Where WR_ID="&ID&" and WR_Module="&Module)
		If Not Grs.Eof Then
		  LeachName = Grs(0)
		  ItemID = Grs(1)
		  Key = Grs(2)
		  LeachType = Grs(3)
		  Leach1 = Grs(4)&Sign
		  Leach2 = Grs(5)
		End If
		Grs.Close
	  End If
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<form name=myform method='post' action='?Action=LeachSave&Module="&Module&"&Page="&Page&"'>" & vbCrLf
	  Content = Content & "<input name=ID type=hidden value=" & ID & ">" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=2><strong>过滤项目设置</strong></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td width='30%'><strong>过滤名称</strong></td><td width='70%'><input name='LeachName' type='text' size=30 maxlength=50 value="""&LeachName&"""></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>所属项目</strong></td><td><select name='ItemID'>" & vbCrLf
      Content = Content & "<option value=0>== 请选择 ==</option>" & vbCrLf
	  Set Grs = Gconn.Execute("Select WR_ID,WR_Name from WR_Item Where WR_Module="&Module&" Order By WR_ID Desc")
      If Grs.EOF Then
        Content = Content & "<option value=0>请先添加项目</option>"
      Else
        Do While Not Grs.EOF
          Content = Content & "<option value=" & Grs(0) & WRMPS.GetCheckVer(Grs(0),ItemID,0)&">"&Grs(1)&"</option>" & vbCrLf
        Grs.MoveNext
        Loop
      End If
	  Grs.Close
      Content = Content & "</select></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>过滤类型</strong></td><td><input type=radio value=0 name=LeachType onClick=""LT1.style.display='';LT2.style.display='none'"""&WRMPS.GetCheckVer(0,LeachType,1)&">简单替换　<input type=radio value=1 name=LeachType onClick=""LT1.style.display='none';LT2.style.display=''"""&WRMPS.GetCheckVer(1,LeachType,1)&">高级过滤</td></tr>" & vbCrLf
	  Content = Content & "<tr id=LT1"
	  If LeachType = 1 Then Content = Content & " style='display:none'"
	  Content = Content & " class=td2><td><strong>内容</strong></td><td><textaRea name=Leach cols=50 rows=5>"&WRMPS.GetHTMLEncode(Split(Leach1,Sign)(0))&"</textaRea></td></tr>" & vbCrLf
	  Content = Content & "<tr id=LT2"
	  If LeachType = 0 Then Content = Content & " style='display:none'"
	  Content = Content & " class=td2><td colspan=2><table width='100%' border=0 cellspacing=1 cellpadding=1>"
	  Content = Content & "<tr class=td2><td width='30%'><strong>开始标记</strong></td><td width='70%'><textaRea name=Leach1 cols=50 rows=5>"&WRMPS.GetHTMLEncode(Split(Leach1,Sign)(0))&"</textaRea></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>结束标记</strong></td><td><textaRea name=Leach2 cols=50 rows=5>"&WRMPS.GetHTMLEncode(Split(Leach1,Sign)(1))&"</textaRea></td></tr>" & vbCrLf
	  Content = Content & "</table></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>替换为</strong></td><td><textaRea name=Leach3 cols=50 rows=5>"&WRMPS.GetHTMLEncode(Leach2)&"</textaRea></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>状态</strong></td><td><input type=radio value=1 name=Key"&WRMPS.GetCheckVer(1,Key,1)&">开启　<input type=radio value=0 name=Key"&WRMPS.GetCheckVer(0,Key,1)&">关闭</td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td></td><td><input type=submit name=Submit value='下一步'></td></tr>" & vbCrLf
      Content = Content & "</form>" & vbCrLf
	  Content = Content & "</table>" & vbCrLf

    Case "Save"
      ID = Replace(ID,"&nbsp;","")
	  If ID <> "" Then
      ID = Split(ID, ",")
      For i = 0 To UBound(ID)
         Select Case Request("SaveType")
		   Case "关闭"
		     Gconn.Execute("Update WR_Leach Set WR_Key=0 Where WR_Module="&Module&" and WR_ID="&Int(ID(i)))
		   Case "开启"
		     Gconn.Execute("Update WR_Leach Set WR_Key=1 Where WR_Module="&Module&" and WR_ID="&Int(ID(i)))
		   Case "删除"
		     Gconn.Execute("Delete From WR_Leach Where WR_Module="&Module&" and WR_ID="&Int(ID(i)))
		 End Select
      Next
      End If
	  Call WRMPS.ErrView("·操作成功<meta http-equiv=RefResh content='1;URL=?Page="&Page&"&Module="&Module&"'>",1)

	Case Else
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<form name='from1' method='post' Action='?Action=Save&Module="&Module&"'>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=7><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='20%'>所属项目</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 & "</tr>" & vbCrLf
         Grs.Open "Select A.WR_ID,A.WR_Name,A.WR_Key,A.WR_LeachType,B.WR_Name From WR_Leach A Inner Join WR_Item B on A.WR_ItemID=B.WR_ID Where A.WR_Module="&Module&" Order by A.WR_ID Desc", Gconn, 1, 1
         If Grs.EOF Then
          Content = Content & "<tr class=td2><td align=center colspan=6>没有记录</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>" & Grs(4) & "</td>" & vbCrLf
			 Content = Content & "<td>" & Replace(Replace(Grs(2),0,"<strong class=font2>关闭</strong>"),1,"开启") & "</td>" & vbCrLf
			 Content = Content & "<td>" & Replace(Replace(Grs(3),0,"简单替换"),1,"<strong>高级过滤</strong>") & "</td>" & vbCrLf
             Content = Content & "<td><a href=?Action=Leach&ID="&Grs(0)&"&Page="&Page&"&Module="&Module&">修改</a> <a href=?Action=Save&ID="&Grs(0)&"&Page="&Page&"&Module="&Module&"&SaveType=删除 onclick=""Return confirm('确定删除？');"">删除</a></td>" & vbCrLf
             Content = Content & "</tr>" & vbCrLf
          Grs.MoveNext
          i = i + 1
          Loop
          URLParameter = "Module="&Module
          Content = Content & "<tr class=td3><td colspan=2><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></select> <input type='submit' name='submit' value='批量操作'> <input type='button' onclick=""if(confirm('确定清空？')){window.open('?Action=DelAll&Module="&Module&"','_self')};"" name='submit' value='清空'></td><td colspan=4 align=right>" & GetAdminPageList(URLParameter, ListNum, Grs.RecordCount, Page) & "&nbsp;</td></tr></form>" & vbCrLf
          Grs.Close
          Content = Content & "</form></table>" & vbCrLf
         End If

  End Select
  Set Grs = Nothing
  Call ConnClose()
  Response.write Content
  Call GetBottom()
  Call ClassEnd()

%>