📄 admin_result.asp
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<!--#include file="Conn.ASP"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<!--#include file="chkuser.asp" -->
<!--#include file="ChkURL.asp"-->
<%dim jingyong
set rs=server.createobject("adodb.recordset")
sql="select * from "& db_User_Table &" where "& db_User_Name &"='"&Request.cookies(eChuang)("username")&"'"
rs.open sql,ConnUser,1,3
if rs.bof or rs.eof then
response.redirect "login.asp"
response.end
end if
jingyong=rs("jingyong")
rs.close
set rs=nothing
if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="check" or Request.cookies(eChuang)("KEY")="bigmaster" or Request.cookies(eChuang)("KEY")="smallmaster" or Request.cookies(eChuang)("KEY")="typemaster" or (Request.cookies(eChuang)("key")="selfreg" and jingyong=0) then
%>
<%
request_BigClassid=checkstr(Request("BigClassid"))
keyword=trim(checkstr(Request("keyword")))
PageShowSize = 10 '每页显示多少个页
MyPageSize = 40 '每页显示多少条
If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
MyPage=1
Else
MyPage=Int(Abs(Request("page")))
End if
if keyword="" or keyword="关键字" then
%>
<script type="text/javascript">
alert("请输入查询关键字！")
history.back()
</script>
<html xmlns="http://www.w3.org/1999/xhtml"><body onload="javascript:window.close()"></body>
<%
Response.End
end if
if request("action")="" then
findword="title like '%"&keyword&"%' or content like '%"&keyword&"%' or author like '%"&keyword&"%' or editor like '%"&keyword&"%' or about like '%"&keyword&"%'"
elseif request("action")="title" then
findword="title like '%"&keyword&"%' "
elseif request("action")="content" then
findword="content like '%"&keyword&"%' "
elseif request("action")="editor" then
findword="editor like '%"&keyword&"%' or author like '%"&keyword&"%' "
elseif request("action")="about" then
findword="about like '%"&keyword&"%' "
elseif request("action")="UpdateTime" then
findword="UpdateTime like '%"&keyword&"%' "
end if
set rs=server.CreateObject("ADODB.RecordSet")
sql1="select * from "& db_Type_Table &" order by typeorder"
rs.Open sql1,conn,1,1
dim ArraytypeID(10000),ArraytypeName(10000),Arraytypecontent(10000)
typeCount=rs.RecordCount
for i=1 to typeCount
ArraytypeID(i)=rs("typeID")
ArraytypeName(i)=rs("typeName")
Arraytypecontent(i)=rs("typecontent")
rs.MoveNext
next
rs.Close
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn" />
<meta http-equiv="Pragma" content="no-cache" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="site.css" rel="stylesheet" />
<title><%=copyright%><%=version%><%=ver%>_建站铺修正版_bbs.jzpu.com</title>
<script type="text/javascript">
<!--
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
//-->
</script>
</head>
<body topmargin="0">
<!--#include file="Admin_Top.asp"-->
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFDFBF" width="100%" id="AutoNumber1">
<tr>
<td colspan="5" class="TDtop" height="25" align="center">
┊ <b>文章检索</b> ┊ <form action="admin_Result.asp" method="post" id="myform">
<%if showsearch=1 then%>
<%if search="1" then%>
<!--#include file=admin_search.asp-->
<%else%>
<!--#include file=admin_search1.asp-->
<%end if%>
<%end if%> </form>
</td>
</tr>
<tr>
<td colspan="5" align="center" height="25"><a href="newsaddd1.asp">添加文章</a></td>
</tr>
<%set rs=server.CreateObject("ADODB.RecordSet")
if request_BigClassid<>"" then
if Request.cookies(eChuang)("key")="" then
key_word="select * from "& db_News_Table &" where BigClassid=" & request_BigClassid &" and " & findword & " and checkked=1 and newslevel=0 order by NewsID DESC"
end if
if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
key_word="select * from "& db_News_Table &" where BigClassid=" & request_BigClassid &" and " & findword & " and checkked=1 order by NewsID DESC"
end if
if Request.cookies(eChuang)("key")="selfreg" then
if Request.cookies(eChuang)("reglevel")=3 then
key_word="select * from "& db_News_Table &" where BigClassid=" & request_BigClassid &" and " & findword & " and checkked=1 order by NewsID DESC"
end if
if Request.cookies(eChuang)("reglevel")=2 then
key_word="select * from "& db_News_Table &" where BigClassid=" & request_BigClassid &" and " & findword & " and checkked=1 order by NewsID DESC"
end if
if Request.cookies(eChuang)("reglevel")=1 then
key_word="select * from "& db_News_Table &" where BigClassid=" & request_BigClassid &" and " & findword & " and checkked=1 order by NewsID DESC"
end if
end if
else
if Request.cookies(eChuang)("key")="" then
key_word="select * from "& db_News_Table &" where " & findword & " and checkked=1 and newslevel=0 order by NewsID DESC"
end if
if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
key_word="select * from "& db_News_Table &" where " & findword & " and checkked=1 order by NewsID DESC"
end if
if Request.cookies(eChuang)("key")="selfreg" then
if Request.cookies(eChuang)("reglevel")=3 then
key_word="select * from "& db_News_Table &" where " & findword & " and checkked=1 order by NewsID DESC"
end if
if Request.cookies(eChuang)("reglevel")=2 then
key_word="select * from "& db_News_Table &" where " & findword & " and checkked=1 order by NewsID DESC"
end if
if Request.cookies(eChuang)("reglevel")=1 then
key_word="select * from "& db_News_Table &" where " & findword & " and checkked=1 order by NewsID DESC"
end if
end if
end if
rs.Open key_word,conn,1,1
rs.PageSize=40
rs.CacheSize = RS.PageSize
for i=1 to rs.PageSize *( page-1)
if not rs.EOF then
rs.MoveNext
end if
next
Response.Write "<tr><td colspan=5 width=100% height=25 align=center > "
if rs.EOF then
Response.Write "<img src='images/Image24.gif' ></img><br><br>"
Response.Write "<font color=red>抱歉，没有搜索到相关的资料！</font>"
else
rs.PageSize = MyPageSize
MaxPages = rs.PageCount
rs.absolutepage = MyPage
total = rs.RecordCount
Response.Write "共搜索到" & total & "条相关资料，当前第"& myPage &"/"& MaxPages &"页，每页"& rs.PageSize &"条"
end if
Response.Write "</td></tr>"
%>
<tr align="center" class="TDtop1">
<td width="4%">ID号</td>
<td width="37%">标 题</td>
<td width="10%">状态</td>
<td width="8%">编辑</td>
<td width="4%">选择</td>
</tr>
<form action="MyNews.asp?action=del" method="post" id="check">
<%do while not rs.eof %>
<tr bgcolor="ffffff" height="20"><%
title=htmlencode4(trim(rs("title")))
dim bigclassid
bigclassid=rs("bigclassid")
If Not(Trim(bigclassid)="" OR IsNull(bigclassid) OR IsEmpty(bigclassid)) Then
set rs11=server.CreateObject("ADODB.RecordSet")
rs11.Source="select * from "& db_BigClass_Table &" where bigclassid="& bigclassid
rs11.Open rs11.Source,conn,1,1
typeid=rs11("typeid")
rs11.Close
End if
dim mode
If Not(Trim(typeid)="" OR IsNull(typeid) OR IsEmpty(typeid)) Then
set rs12=server.CreateObject("ADODB.RecordSet")
rs12.Source="select * from "& db_Type_Table &" where typeid="& typeid
rs12.Open rs12.Source,conn,1,1
mode=rs12("mode")
rs12.Close
End if
%>
<td width="4%" align="center" ><%=rs("NewsID")%></td>
<td width="37%" >
<%if mode="2" then%>
<%end if%>
<a class="middle" href="E_ReadNews.asp?NewsID=<%=rs("NewsID")%>" target="_blank" title="<%=title%>">
<font color="<%=rs("titlecolor")%>">
<%=rs("title")%>
</font></a> (<%=rs("UpdateTime")%>)[<font color="#ff0000"><%=rs("click")%></font>]</td>
<td width="10%" align="center" ><%if rs("checkked")<>1 then%>未审<%else%>已审<%end if%>；<%if rs("goodnews")<>1 then%>未荐<%else%>已荐<%end if%>；<%if rs("istop")<>1 then%>未固<%else%>已固<%end if%></td>
<td width="8%" align="center" ><a href="NewsEdit.asp?NewsID=<%=rs("NewsID")%>">编辑</a></td>
<td width="4%" align="center"><input name="selectdel" type="checkbox" id="selectdel" value="<%=rs("NewsID")%>" /> </td>
</tr>
<%
rs.MoveNext
i = i + 1
loop
%>
</form>
<tr>
<td colspan="5" width="100%" align="center">第 <%=Mypage%>/<%=Maxpages%> 页，每页 <%=MyPageSize%> 条
<%
url="admin_Result.asp?action="&request("action")&"&keyword=" & keyword
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((total-1)/rs.PageSize)+1
if PageNextSize >1 then
PagePrev=PageShowSize*(PageNextSize-1)
Response.write "<a class=black href='" & Url & "&page=" & PagePrev & "' title='上" & PageShowSize & "页'>上一翻页</a> "
Response.write "<a class=black href='" & Url & "&page=1' title='第1页'>页首</a> "
end if
if MyPage-1 > 0 then
Prev_Page = MyPage - 1
Response.write "<a class=black href='" & Url & "&page=" & Prev_Page & "' title='第" & Prev_Page & "页'>上一页</a> "
end if
if Maxpages>=PageNextSize*PageShowSize then
PageSizeShow = PageShowSize
Else
PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
End if
If PageSizeShow < 1 Then PageSizeShow = 1
for PageCounterSize=1 to PageSizeShow
PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize
if PageLink <> MyPage Then
Response.write "<a class=black href='" & Url & "&page=" & PageLink & "'>[" & PageLink & "]</a> "
else
Response.Write "<B>["& PageLink &"]</B> "
end if
If PageLink = MaxPages Then Exit for
Next
if Mypage+1 <=Pagetpage then
Next_Page = MyPage + 1
Response.write "<a class=black href='" & Url & "&page=" & Next_Page & "' title='第" & Next_Page & "页'>下一页</A>"
end if
if MaxPages > PageShowSize*PageNextSize then
PageNext = PageShowSize * PageNextSize + 1
Response.write " <A class=black href='" & Url & "&page=" & Pagetpage & "' title='第"& Pagetpage &"页'>页尾</A>"
Response.write " <a class=black href='" & Url & "&page=" & PageNext & "' title='下" & PageShowSize & "页'>下一翻页</a>"
end if
rs.close
%>
</td>
</tr>
</table>
</div>
</body>
</html>
<!--#include file=Admin_Bottom.asp-->
<%else%>
<script type="text/javascript">
history.back()
alert("对不起，管理员尚未开通您的帐号，请稍候！")
</script>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -