📄 admin_newsmanalist.asp
字号:
<%PageName="admin_NewsManaList"%>
<!--#include file="session.asp"-->
<%checkAdmin1%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="function.asp"-->
<!--#include file="top.asp"--><br>
<table border="1" width="90%" cellspacing="0" cellpadding="1" bgcolor="<%=MainBgcolor%>">
<tr>
<td align=center valign=top>
<%
if request("list")="Nochecked" then
checked1=" and checked=0 "
checked2=" where checked=0 "
checked3="&checked=No"
cheched4="（未审核）"
end if
if request("list")="Isontop" then
checked1=" and ontop=1 "
checked2=" where ontop=1 "
checked3="&checked=Isontop"
cheched4="（固顶）"
end if
url="BigClassName=" & Request("BigClassName")&"&SmallClassName=" & Request("SmallClassName")&"&List="&Request("list")
PageUrl="admin_NewsManaList.asp"
%>
<!--#include file="admin_ManaList.asp"-->
<%
sub showContent
i=0
%>
<table border="1" cellspacing="0" cellpadding="0" class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>" width="100%">
<tr>
<td height="20" colspan="9" align=center bgcolor="<%=MainTColor%>" background="images/admin/b3.gif"><b><%=BigTitle%><%=SmallTitle%><%=cheched4%>文章列表</b></td>
</tr>
<tr>
<td colspan="9" height="60" align="center">
<form method="POST" action="admin_NewsIDChk.asp">
<b><br>
直接输入ID号：</b>
<input type="text" name="NewsID" size="20">
<input type="submit" value="修改" name="alert_button" >
<input type="submit" value="删除" name="alert_button" >
</form>
</td>
</tr>
<tr>
<td align=center bgcolor="<%=MainTColor%>" width="4%">ID号</td>
<td align=center bgcolor="<%=MainTColor%>">标 题</td>
<td align=center height=25 bgcolor="<%=MainTColor%>" width="11%">日 期</td>
<td align=center height=25 bgcolor="<%=MainTColor%>" width="3%">图</td>
<td align=center height=25 bgcolor="<%=MainTColor%>" width="10%">录入员</td>
<td align=center height=25 bgcolor="<%=MainTColor%>" width="14%">所在地址</td>
<td align=center height=25 bgcolor="<%=MainTColor%>" width="5%">
<%if request("list")<>"Isontop" then%>
<a href="admin_NewsManaList.asp?BigClassName=<%=Request("BigClassName")%>&SmallClassName=<%=request("SmallClassName")%>&list=Isontop" title="列出固顶文章">固顶</a>
<%else%>
<a href="admin_NewsManaList.asp?BigClassName=<%=Request("BigClassName")%>&SmallClassName=<%=request("SmallClassName")%>" title="列出全部文章">固顶</a>
<%end if%>
</td>
<td align=center height=25 bgcolor="<%=MainTColor%>" width="5%">
<%if request("list")<>"Nochecked" then%>
<a href="admin_NewsManaList.asp?BigClassName=<%=Request("BigClassName")%>&SmallClassName=<%=request("SmallClassName")%>&list=Nochecked" title="列出未审核文章">审核</a>
<%else%>
<a href="admin_NewsManaList.asp?BigClassName=<%=Request("BigClassName")%>&SmallClassName=<%=request("SmallClassName")%>" title="列出全部文章">审核</a>
<%end if%>
</td>
<td align=center height=25 bgcolor="<%=MainTColor%>" width="8%">操 作</td>
</tr>
<%
do while not rs.eof
i=i+1
strMaxLen=36 '限制标题长度
strSubject = HTMLDecode(rs("Title"))
strTrueSubject = GetTrueLength(strSubject, strMaxLen, strSpaceBar)
m_bOverFlow = checkOverFlow(strSubject, strMaxLen)
if m_bOverFlow = True then
strTip = strSubject
else
strTip = ""
end if
%>
<tr>
<td align=center height="20" width="4%" ><%=rs("NewsID")%></td>
<td > <a class=noline href="<%=NewsUrl%>" title="<%=strTip%>" target=_blank><%=strTrueSubject%></a></td>
<td align=center width="11%" ><%=DateValue(rs("UpdateTime"))%></td>
<td align=center width="3%" ><%=rs("image")%></td>
<td align=center width="10%" ><%=rs("username")%></td>
<td align=center width="14%" ><%=rs("LoginIP")%></td>
<td align=center width="5%" >
<%
if rs("OnTop")=True then
if Session("KEY")<>"input" then
Response.Write "<a href='admin_OnTop.asp?newsid="&rs("newsid")&"&PageUrl="&PageUrl&"&Page="&CurrentPage&"&BigClassName="&Request("BigClassName")&"&SmallClassName="& Request("SmallClassName")&"&List="&Request("list")&"'><font color=red>固</font></a>"
else
Response.Write "<font color=red>固</font>"
end if
else
if Session("KEY")<>"input" then
Response.Write "<a href='admin_OnTop.asp?newsid="&rs("newsid")&"&OnTop=true&PageUrl="&PageUrl&"&Page="&CurrentPage&"&BigClassName="&Request("BigClassName")&"&SmallClassName="& Request("SmallClassName")&"&List="&Request("list")&"'>活</a>"
else
Response.Write "活"
end if
end if
%>
</td>
<td align=center width="5%" >
<%
if OpenCheck=1 then
if rs("checked")=True then
if Session("KEY")<>"input" then
Response.Write "<a href='admin_CheckNews.asp?newsid="&rs("newsid")&"&Checked=true&PageUrl="&PageUrl&"&Page="&CurrentPage&"&BigClassName="&Request("BigClassName")&"&SmallClassName="& Request("SmallClassName")&"&List="&Request("list")&"'>已</a>"
else
Response.Write "已"
end if
else
if Session("KEY")<>"input" then
Response.Write "<a href='admin_CheckNews.asp?newsid="&rs("newsid")&"&PageUrl="&PageUrl&"&Page="&CurrentPage&"&BigClassName="&Request("BigClassName")&"&SmallClassName="& Request("SmallClassName")&"&List="&Request("list")&"'><font color=red>未</font></a>"
else
Response.Write "<font color=red>未</font>"
end if
end if
else
if rs("checked")=True then
Response.Write "已"
else
Response.Write "<font color=red>未</font>"
end if
end if
%>
</td>
<td align=center width="8%">
<%
if OpenCheck=1 then
if rs("checked")=True then
if Session("KEY")<>"input" then
Response.Write "<a href='admin_NewsModify.asp?newsid="&rs("newsid")&"'><img src=images/edit.gif border=0 width=13 alt=修改></a>"
else
Response.Write "<img src=images/edit.gif border=0 width=13 alt=已审核文章不能修改>"
end if
else
Response.Write "<a href='admin_NewsModify.asp?newsid="&rs("newsid")&"'><img src=images/edit.gif border=0 width=13 alt=修改></a>"
end if
else
Response.Write "<a href='admin_NewsModify.asp?newsid="&rs("newsid")&"'><img src=images/edit.gif border=0 width=13 alt=修改></a>"
end if
if OpenCheck=1 then
if rs("checked")=True then
if Session("KEY")<>"input" then
Response.Write " <a href='admin_newsdel.asp?newsid="&rs("newsid")&"'><img src=images/del.gif border=0 width=13 alt=删除></a>"
else
Response.Write " <img src=images/del.gif border=0 width=13 alt=已审核文章不能删除>"
end if
else
Response.Write " <a href='admin_newsdel.asp?newsid="&rs("newsid")&"'><img src=images/del.gif border=0 width=13 alt=删除></a>"
end if
else
Response.Write " <a href='admin_newsdel.asp?newsid="&rs("newsid")&"'><img src=images/del.gif border=0 width=13 alt=删除></a>"
end if
%>
</td>
</tr>
<%
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</table>
<%
end sub
function showpage(totalnumber,maxperpage,filename)
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
%>
<form method=Post action="<%=filename%>?<%=url%>">
共<font color="<%=AlertFColor%>"><b> <%=totalnumber%> </b></font>条文章
<%if CurrentPage<2 then%>
首页 上一页
<%else%>
 <a href="<%=filename%>?page=1&<%=url%>">首页</a> <a href="<%=filename%>?page=<%=CurrentPage-1%>&<%=url%>">上一页</a>
<%
end if
if n-currentpage<1 then
%>
下一页 末页
<%else%>
<a href="<%=filename%>?page=<%=CurrentPage+1%>&<%=url%>">下一页</a> <a href="<%=filename%>?page=<%=n%>&<%=url%>">末页</a>
<%end if%>
页次：<strong><font color="<%=AlertFColor%>"><%=CurrentPage%>/<%=n%></font></strong>
页 转到：
<select name="page" size="1" onchange="javascript:submit()">
<%for i = 1 to n%>
<option value="<%=i%>" <%if cint(CurrentPage)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%>
</select>
</form>
<%end function%>
</td>
</tr>
</table>
<%set rs=nothing%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -