admin_filter.asp

个人网站比较简短

    Response.Write "    }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
    Response.Write "<form method=""post"" action=""Admin_Filter.asp"" name=""form1"">" & vbCrLf
    Response.Write " <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"" >" & vbCrLf
    Response.Write "   <tr> " & vbCrLf
    Response.Write "    <td> " & vbCrLf
    Response.Write "     <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" >" & vbCrLf
    Response.Write "      <tr> " & vbCrLf
    Response.Write "        <td height=""22"" colspan=""2"" class=""title"" align=""center""><strong>添 加 新 过 滤</strong></td>" & vbCrLf
    Response.Write "      </tr>" & vbCrLf
    Response.Write "      <tr class=""tdbg"">" & vbCrLf
    Response.Write "        <td width=""120"" class='tdbg5' align='right'>过滤名称：</td>" & vbCrLf
    Response.Write "        <td class=""tdbg""><input name=""FilterName"" type=""text"" id=""FilterName"" size=""25"" maxlength=""30"">" & vbCrLf
    Response.Write "        &nbsp;</td>" & vbCrLf
    Response.Write "      </tr>" & vbCrLf
    Response.Write "      <tr class=""tdbg"">" & vbCrLf
    Response.Write "        <td width=""120"" class='tdbg5' align='right'> 所属采集项目：</td>" & vbCrLf
    Response.Write "        <td class=""tdbg""> "
    Call ShowItem_Option(0)
    Response.Write "          <font color=blue>&nbsp;&nbsp;公用项目将执行现所有项目,用于屏蔽不良语言</font>"
    Response.Write "        </td>" & vbCrLf
    Response.Write "      </tr>" & vbCrLf
    Response.Write "      <tr class=""tdbg""> " & vbCrLf
    Response.Write "        <td width=""120"" class='tdbg5' align='right'>过滤对象：</td>" & vbCrLf
    Response.Write "        <td class=""tdbg"">" & vbCrLf
    Response.Write "         <select name=""FilterObject"" id=""FilterObject"">" & vbCrLf
    Response.Write "            <option value=""1"" selected>标题过滤</option>" & vbCrLf
    Response.Write "            <option value=""2"">正文过滤</option>" & vbCrLf
    Response.Write "         </select>" & vbCrLf
    Response.Write "        </td>" & vbCrLf
    Response.Write "      </tr>" & vbCrLf
    Response.Write "      <tr class=""tdbg"">" & vbCrLf
    Response.Write "        <td width=""120"" class='tdbg5' align='right'>过滤类型：</td>" & vbCrLf
    Response.Write "        <td class=""tdbg"">" & vbCrLf
    Response.Write "         <select name=""FilterType"" id=""FilterType"" onchange=showset(this.form)>" & vbCrLf
    Response.Write "            <option value=""1"" selected >简单替换</option>" & vbCrLf
    Response.Write "            <option value=""2"">高级过滤</option>" & vbCrLf
    Response.Write "         </select>" & vbCrLf
    Response.Write "        </td>" & vbCrLf
    Response.Write "      </tr>" & vbCrLf
    Response.Write "    </table>" & vbCrLf
    Response.Write "     <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" id=""FilterType1"" style=""display:"">" & vbCrLf
    Response.Write "       <tr class=""tdbg""> " & vbCrLf
    Response.Write "         <td width=""120"" class='tdbg5' align='right'>过滤内容：</td>" & vbCrLf
    Response.Write "         <td class=""tdbg""><textarea name=""FilterContent"" cols=""49"" rows=""5""></textarea></td>" & vbCrLf
    Response.Write "       </tr>" & vbCrLf
    Response.Write "     </table>" & vbCrLf
    Response.Write "     <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1""  id=""FilterType2"" style=""display:none"">" & vbCrLf
    Response.Write "       <tr class=""tdbg"">" & vbCrLf
    Response.Write "         <td width=""120"" class='tdbg5' align='right'>开始标记：</td>" & vbCrLf
    Response.Write "         <td class=""tdbg""><textarea name=""FisString"" cols=""49"" rows=""5""></textarea>" & vbCrLf
    Response.Write "        &nbsp;</td>" & vbCrLf
    Response.Write "       </tr>" & vbCrLf
    Response.Write "       <tr class=""tdbg""> " & vbCrLf
    Response.Write "         <td width=""120"" class='tdbg5' align='right'>结束标记：</td>" & vbCrLf
    Response.Write "         <td class=""tdbg""><textarea name=""FioString"" cols=""49"" rows=""5""></textarea>" & vbCrLf
    Response.Write "        &nbsp;</td>" & vbCrLf
    Response.Write "       </tr>" & vbCrLf
    Response.Write "     </table>" & vbCrLf
    Response.Write "     <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" >" & vbCrLf
    Response.Write "       <tr class=""tdbg"" id=""FilterRep""> " & vbCrLf
    Response.Write "         <td width=""120"" class='tdbg5' align='right'>替换为：</td>" & vbCrLf
    Response.Write "         <td class=""tdbg""><textarea name=""FilterRep"" cols=""49"" rows=""5""></textarea></td> " & vbCrLf
    Response.Write "       </tr>" & vbCrLf
    Response.Write "     </table> " & vbCrLf
    Response.Write "     <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" >" & vbCrLf
    Response.Write "       <tr class='tdbg'>"
    Response.Write "         <td width=""120"" align='right' class=""tdbg5"">是否启用：</td>"
    Response.Write "         <td>&nbsp;&nbsp;<input name='Flag' type='checkbox' id='Flag' value='Yes' checked></td>"
    Response.Write "       </tr>"
    Response.Write "     </table>"
    Response.Write "     <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" >" & vbCrLf
    Response.Write "       <tr class=""tdbg""> " & vbCrLf
    Response.Write "         <td colspan=""2"" align=""center"" class=""tdbg"" height='50'>" & vbCrLf
    Response.Write "           <input name=""Action"" type=""hidden"" id=""Action"" value=""SaveFileter"">" & vbCrLf
    Response.Write "           <input  type=""submit"" name=""Submit"" value="" 确  定 "" >&nbsp;&nbsp;" & vbCrLf
    Response.Write "           <input name=""Cancel"" type=""button"" id=""Cancel"" value="" 取  消 "" onClick=""window.location.href='Admin_Filter.asp?Action=main'"" >&nbsp;&nbsp;&nbsp;&nbsp; " & vbCrLf
    Response.Write "         </td>" & vbCrLf
    Response.Write "       </tr>" & vbCrLf
    Response.Write "    </table>" & vbCrLf
    Response.Write "     </td>"
    Response.Write "   </tr>"
    Response.Write "</table>" & vbCrLf
    Response.Write "</form>" & vbCrLf
End Sub

'=================================================
'过程名：FilterModify
'作  用：采集过滤项目修改
'=================================================
Sub FilterModify()
    Dim SqlItem, rsFilters, ItemID, FilterName, FilterID, FilterObject, FilterType, FilterContent, FisString, FioString, FilterRep, Flag
    FilterID = PE_Clng(Trim(Request("FilterID")))

    Set rsFilters = Server.CreateObject("adodb.recordset")
    SqlItem = "select * from PE_Filters Where FilterID=" & FilterID
    rsFilters.Open SqlItem, Conn, 1, 1
    If Not rsFilters.EOF Then
        ItemID = rsFilters("ItemID")
        FilterName = rsFilters("FilterName")
        FilterObject = rsFilters("FilterObject")
        FilterType = rsFilters("FilterType")
        FilterContent = rsFilters("FilterContent")
        FisString = rsFilters("FisString")
        FioString = rsFilters("FioString")
        FilterRep = rsFilters("FilterRep")
        Flag = rsFilters("Flag")
    Else
        Response.Write "找不到该项目"
        Exit Sub
    End If

    rsFilters.Close
    Set rsFilters = Nothing
    
    Response.Write "<SCRIPT language=javascript>" & vbCrLf
    Response.Write "function showset(thisform)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "        if(thisform.FilterType.selectedIndex==1)" & vbCrLf
    Response.Write "        {" & vbCrLf
    Response.Write "            FilterType1.style.display = ""none"";" & vbCrLf
    Response.Write "            FilterType2.style.display = """";" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "        else" & vbCrLf
    Response.Write "        {" & vbCrLf
    Response.Write "            FilterType1.style.display = """";" & vbCrLf
    Response.Write "            FilterType2.style.display = ""none"";" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
    Response.Write "<br>" & vbCrLf
    Response.Write "<form method=""post"" action=""Admin_Filter.asp"" name=""form1"">" & vbCrLf
    Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"" >" & vbCrLf
    Response.Write "  <tr> " & vbCrLf
    Response.Write "    <td> " & vbCrLf
    Response.Write "     <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1""  >" & vbCrLf
    Response.Write "       <tr> " & vbCrLf
    Response.Write "         <td height=""22"" colspan=""2"" class=""title""> <div align=""center""><strong>过 滤 修 改</strong></div></td>" & vbCrLf
    Response.Write "       </tr>" & vbCrLf
    Response.Write "       <tr class=""tdbg""> " & vbCrLf
    Response.Write "         <td width=""120"" class='tdbg5' align='right'> 过滤名称：</td>" & vbCrLf
    Response.Write "         <td class=""tdbg""><input name=""FilterName"" type=""text"" id=""FilterName"" value=" & FilterName & "  size=""25"" maxlength=""30"">&nbsp;</td>" & vbCrLf
    Response.Write "       </tr>" & vbCrLf
    Response.Write "       <tr class=""tdbg""> " & vbCrLf
    Response.Write "         <td width=""120"" class='tdbg5' align='right'> 所属项目：</td>" & vbCrLf
    Response.Write "         <td class=""tdbg"">"
    Call ShowItem_Option(ItemID)
    Response.Write "            <font color=blue>&nbsp;&nbsp;公用项目将执行现所有项目,用于屏蔽不良语言</font>"
    Response.Write "         </td>" & vbCrLf
    Response.Write "       </tr>" & vbCrLf
    Response.Write "       <tr class=""tdbg""> " & vbCrLf
    Response.Write "         <td width=""120"" class='tdbg5' align='right'> 过滤对象：</td>" & vbCrLf
    Response.Write "         <td class=""tdbg"">" & vbCrLf
    Response.Write "           <select name=""FilterObject"" id=""FilterObject"">  " & vbCrLf
    Response.Write "             <option value=""1"" "

    If FilterObject = 1 Then Response.Write "selected"
    Response.Write "             >标题过滤</option>  " & vbCrLf
    Response.Write "             <option value=""2"" "

    If FilterObject = 2 Then Response.Write "selected"
    Response.Write "             >正文过滤</option>  " & vbCrLf
    Response.Write "           </select>  " & vbCrLf
    Response.Write "         </td>" & vbCrLf
    Response.Write "       </tr>" & vbCrLf
    Response.Write "       <tr class=""tdbg"">" & vbCrLf
    Response.Write "         <td width=""120"" class='tdbg5' align='right'> 过滤类型：</td>" & vbCrLf
    Response.Write "         <td class=""tdbg"">" & vbCrLf
    Response.Write "           <select name=""FilterType"" id=""FilterType"" onchange=showset(this.form)>  " & vbCrLf
    Response.Write "             <option value=""1"" "

    If FilterType = 1 Then Response.Write "selected"
    Response.Write "             >简单替换</option>" & vbCrLf
    Response.Write "             <option value=""2"" "

    If FilterType = 2 Then Response.Write "selected"
    Response.Write "             >高级过滤</option>  " & vbCrLf
    Response.Write "           </select>  " & vbCrLf
    Response.Write "         </td>" & vbCrLf
    Response.Write "       </tr>" & vbCrLf
    Response.Write "     </table>" & vbCrLf
    Response.Write "     <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1""  id=""FilterType1"" "

    If FilterType <> 1 Then Response.Write "style='display:none'"
    Response.Write ">" & vbCrLf
    Response.Write "       <tr class=""tdbg""> " & vbCrLf
    Response.Write "         <td width=""120"" class='tdbg5' align='right'> 内容：</td>" & vbCrLf
    Response.Write "         <td class=""tdbg""><textarea name=""FilterContent"" cols=""49"" rows=""5"">" & Server.HTMLEncode(FilterContent & "") & "</textarea></td>" & vbCrLf
    Response.Write "       </tr>" & vbCrLf
    Response.Write "     </table> " & vbCrLf
    Response.Write "     <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" id=""FilterType2"" "

    If FilterType <> 2 Then Response.Write "style='display:none'"
    Response.Write ">" & vbCrLf
    Response.Write "       <tr class=""tdbg"">" & vbCrLf
    Response.Write "         <td width=""120"" class='tdbg5' align='right'> 开始标记：</td>  " & vbCrLf
    Response.Write "         <td class=""tdbg""><textarea name=""FisString"" cols=""49"" rows=""5"">" & Server.HTMLEncode(FisString & "") & "</textarea>&nbsp;</td>" & vbCrLf
    Response.Write "       </tr>" & vbCrLf
    Response.Write "       <tr class=""tdbg""> " & vbCrLf
    Response.Write "         <td width=""120"" class='tdbg5' align='right'> 结束标记：</td>" & vbCrLf
    Response.Write "         <td class=""tdbg""><textarea name=""FioString"" cols=""49"" rows=""5"">" & Server.HTMLEncode(FioString & "") & "</textarea>&nbsp;</td>" & vbCrLf
    Response.Write "       </tr> " & vbCrLf
    Response.Write "     </table>" & vbCrLf
    Response.Write "     <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"">" & vbCrLf
    Response.Write "       <tr class=""tdbg""> " & vbCrLf
    Response.Write "         <td width=""120"" class='tdbg5' align='right'> 替换：</td>" & vbCrLf
    Response.Write "         <td class=""tdbg""><textarea name=""FilterRep"" cols=""49"" rows=""5"" id=""FilterRep"">" & Server.HTMLEncode(FilterRep & "") & "</textarea></td>" & vbCrLf
    Response.Write "       </tr>" & vbCrLf
    Response.Write "     </table>" & vbCrLf
    Response.Write "     <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" >" & vbCrLf
    Response.Write "       <tr class='tdbg' >"
    Response.Write "         <td align='right' width=""120"" class=""tdbg5"">是否启用：</td>"
    Response.Write "         <td>&nbsp;&nbsp;<input name='Flag' type='checkbox' id='Flag' value='Yes' " & vbCrLf

    If Flag = True Then
        Response.Write "checked"
    End If

    Response.Write "          ></td>"
    Response.Write "       </tr>"
    Response.Write "     </table>"
    Response.Write "     <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" >" & vbCrLf
    Response.Write "       <tr class=""tdbg""> " & vbCrLf
    Response.Write "         <td align=""center"" class=""tdbg"" height='50'>" & vbCrLf
    Response.Write "           <input name=""Action"" type=""hidden"" id=""Action"" value=""SaveFileter"">" & vbCrLf
    Response.Write "           <input name=""FilterID"" type=""hidden"" id=""FilterID"" value=""" & FilterID & """>" & vbCrLf
    Response.Write "           <input  type=""Submit"" name=""Submit"" value="" 确  定 "" >&nbsp;&nbsp;" & vbCrLf
    Response.Write "           <input name=""Cancel"" type=""button"" id=""Cancel"" value="" 返  回 "" onClick=""window.location.href='Admin_Filter.asp?Action=main'"" >&nbsp;" & vbCrLf
    Response.Write "         </td>" & vbCrLf
    Response.Write "       </tr>" & vbCrLf
    Response.Write "     </table>" & vbCrLf