📄 admin_filter.asp
字号:
<!--#include file="Admin_Common.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 2 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "Collection" '其他权限
Dim rs, sql, rsItem, strsql, i '通用变量
strFileName = "Admin_Filter.asp?Action=" & Action
Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<title>名称</title>" & vbCrLf
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
Response.Write "<link rel=""stylesheet"" type=""text/css"" href=""Admin_Style.css"">" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">" & vbCrLf
Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"">" & vbCrLf
Call ShowPageTitle(" 采 集 过 滤 管 理 ", 10053)
Response.Write " <tr class=""tdbg""> " & vbCrLf
Response.Write " <td width=""70"" height=""30""><strong>管理导航：</strong></td>" & vbCrLf
Response.Write " <td height=""30""><a href=Admin_Filter.asp?Action=Main>管理首页</a> | <a href=""Admin_Filter.asp?Action=FilterAdd"">添加新项目</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>"
Select Case Action
Case "FilterAdd"
Call FilterAdd '过滤项目添加
Case "FilterModify"
Call FilterModify '过滤项目修改
Case "SaveFileter"
Call SaveFileter '保存过滤项目
Case "Del"
Call Del '删除过滤项目
Case "DelAll"
Call DelAll '清空过滤项目
Case "SetFlag"
Call SetFlag '是否启用
Case Else
Call main '过滤项目管理
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
'=================================================
'过程名：main
'作 用：采集过滤项目编辑
'=================================================
Sub main()
Dim FilterID, MaxPerPage
MaxPerPage = PE_CLng(Trim(Request("MaxPerPage")))
If MaxPerPage <= 0 Then MaxPerPage = 20
If Request("page") <> "" Then
CurrentPage = CInt(Request("page"))
Else
CurrentPage = 1
End If
strFileName = "Admin_Filter.asp?Action=main"
Response.Write "<SCRIPT language=javascript>" & vbCrLf
Response.Write "function unselectall(thisform){" & vbCrLf
Response.Write " if(thisform.chkAll.checked){" & vbCrLf
Response.Write " thisform.chkAll.checked = thisform.chkAll.checked&0;" & vbCrLf
Response.Write " } " & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "function CheckAll(thisform){" & vbCrLf
Response.Write " for (var i=0;i<thisform.elements.length;i++){" & vbCrLf
Response.Write " var e = thisform.elements[i];" & vbCrLf
Response.Write " if (e.Name != ""chkAll""&&e.disabled!=true)" & vbCrLf
Response.Write " e.checked = thisform.chkAll.checked;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<form name=""form1"" method=""POST"" action=""Admin_Filter.asp"">" & vbCrLf
Response.Write "<table class=""border"" border=""0"" cellspacing=""1"" width=""100%"" cellpadding=""0"">" & vbCrLf
Response.Write " <tr class=""title"" style=""padding: 0px 2px;"">" & vbCrLf
Response.Write " <td width=""30"" height=""22"" align=""center""><strong>选择</strong></td>" & vbCrLf
Response.Write " <td width=""250"" height=""22"" align=""center""><strong>所属采集项目</strong></td>" & vbCrLf
Response.Write " <td width=""120"" align=""center""><strong>过滤名称</strong></td>" & vbCrLf
Response.Write " <td width=""80"" align=""center""><strong>过滤类型</strong></td>" & vbCrLf
Response.Write " <td width=""80"" height=""22"" align=""center""><strong>过滤属性</strong></td>" & vbCrLf
Response.Write " <td width=""40"" align=""center""><strong>状态</strong></td>" & vbCrLf
Response.Write " <td width=""80"" height=""22"" align=""center""><strong>操作</strong></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
sql = "SELECT F.*, I.ItemName FROM PE_Filters F LEFT JOIN PE_Item I ON F.ItemID = I.ItemID ORDER BY F.FilterID DESC"
Set rs = Server.CreateObject("adodb.recordset")
rs.Open sql, Conn, 1, 1
If rs.BOF And rs.EOF Then
Response.Write "<tr class=""tdbg""><td colspan='7' height='50' align='center'>系统中暂无过滤项目！</td></tr></table>"
Else
totalPut = rs.RecordCount
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage > 1 Then
If (CurrentPage - 1) * MaxPerPage < totalPut Then
rs.Move (CurrentPage - 1) * MaxPerPage
Else
CurrentPage = 1
End If
End If
Dim VisitorNum
VisitorNum = 0
Do While Not rs.EOF
Response.Write " <tr class=""tdbg"" onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"" style=""padding: 0px 2px;""> " & vbCrLf
Response.Write " <td width=""30"" align=""center"">" & vbCrLf
Response.Write " <input type=""checkbox"" value=" & rs("FilterID") & " name=""FilterID"" onclick=""unselectall(this.form)"" >" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " <td width=""200"" align=""center"">"
If rs("ItemID") = -1 Then
Response.Write " 公用项目 "
ElseIf rs("ItemID") = 0 Then
Response.Write " 没有指定项目 "
Else
Response.Write rs("ItemName")
End If
Response.Write " </td>" & vbCrLf
Response.Write " <td width=""80"" align=""center"">" & rs("FilterName") & "</td>" & vbCrLf
Response.Write " <td width=""80"" align=""center"">" & vbCrLf
If rs("FilterObject") = 1 Then
Response.Write "标题过滤"
ElseIf rs("FilterObject") = 2 Then
Response.Write "正文过滤"
Else
Response.Write "请选择！"
End If
Response.Write " </td>" & vbCrLf
Response.Write " <td width=""80"" align=""center"">"
If rs("FilterType") = 1 Then
Response.Write "简单替换"
ElseIf rs("FilterType") = 2 Then
Response.Write "高级过滤"
Else
Response.Write "请选择！"
End If
Response.Write " </td>" & vbCrLf
Response.Write " <td width=""40"" align=""center"">"
If rs("Flag") = True Then
Response.Write "<b>√</b>"
Else
Response.Write "<FONT color='red'><b>×</b></FONT>"
End If
Response.Write "</td>" & vbCrLf
Response.Write " <td width=""100"" align=""center"">" & vbCrLf
If rs("Flag") = True Then
Response.Write " <a href=Admin_Filter.asp?Action=SetFlag&FilterFlag=0&FilterID=" & rs("FilterID") & ">禁用</a> " & vbCrLf
Else
Response.Write " <a href=Admin_Filter.asp?Action=SetFlag&FilterFlag=1&FilterID=" & rs("FilterID") & ">启用</a> " & vbCrLf
End If
Response.Write " <a href=Admin_Filter.asp?Action=FilterModify&FilterID=" & rs("FilterID") & ">修改</a> " & vbCrLf
Response.Write " <a href=Admin_Filter.asp?Action=Del&FilterID=" & rs("FilterID") & " onclick='return confirm(""确定要删除此项目吗？"");'>删除</a>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr> " & vbCrLf
VisitorNum = VisitorNum + 1
If VisitorNum >= MaxPerPage Then Exit Do
rs.MoveNext
Loop
Response.Write "</table> " & vbCrLf
Response.Write "<table border=""0"" cellspacing=""1"" width=""100%"" cellpadding=""0""><tr><td height=""30"">" & vbCrLf
Response.Write "<input name=""Action"" type=""hidden"" value=""Del""> " & vbCrLf
Response.Write "<input name=""chkAll"" type=""checkbox"" id=""chkAll"" onclick=CheckAll(this.form) value=""checkbox"" >选中所有项目" & vbCrLf
Response.Write " " & vbCrLf
Response.Write "<input type=""submit"" value="" 批量删除 "" name=""Del"" onClick=""document.form1.Action.value='Del';return confirm('您确定要批量删除这些过滤项目吗？');"" > " & vbCrLf
Response.Write "<input type=""submit"" value=""清空所有记录"" name=""DelAll"" onclick=""document.form1.Action.value='DelAll';return confirm('您真的要确定要清空所有过滤项目吗？');"" > " & vbCrLf
Response.Write "</td></tr></table> " & vbCrLf
Response.Write "</form>" & vbCrLf
If totalPut > 0 Then
Response.Write ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个过滤项目记录", True)
End If
End If
rs.Close
Set rs = Nothing
End Sub
'=================================================
'过程名：FilterAdd
'作 用：采集过滤项目添加
'=================================================
Sub FilterAdd()
Response.Write "<SCRIPT language=javascript>" & vbCrLf
Response.Write "function showset(thisform){" & vbCrLf
Response.Write " if(thisform.FilterType.selectedIndex==1){" & vbCrLf
Response.Write " FilterType1.style.display = ""none"";" & vbCrLf
Response.Write " FilterType2.style.display = """";" & vbCrLf
Response.Write " }else{" & vbCrLf
Response.Write " FilterType1.style.display = """";" & vbCrLf
Response.Write " FilterType2.style.display = ""none"";" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -