listnews.asp

很好的代码！！大家可以下

rs1.movenext
loop
rs1.close
set rs1=nothing
end if
%>
</td>
</tr>
<tr>
    <td bgcolor=<%=m_top%> align=center height=25>共 <%=total%> 条，当前第 <%=Mypage%>/<%=Maxpages%> 
            页，每页 <%=MyPageSize%> 条（ID号为红色，表示该文章未经过审核）<input type=button value="发表新文章" class=button onclick="javascript:window.open('newsadd1.asp?smallclassid=<%=smallclassid%>','_self','')"></td>
</tr>
<tr>
<td colspan=2 bgcolor=#abb8d6 align=center height=25>
<table width="100%" border="1" cellspacing="0" cellpadding="0" height="25" style="border-collapse: collapse" bordercolor="<%=border%>">
<tr align="center" bgcolor="#FFFFFF">
<td width="7%">ID号</td>
<td width="45%">标 &nbsp;&nbsp;&nbsp;题</td>
<td width="16%">日&nbsp;&nbsp;&nbsp;期</td>
<td width="6%">编辑</td>
<td width="6%">审核</td>
<td width="6%">固顶</td>
<td width="6%">删除</td>		
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#abb8d6">
<table border="1" cellspacing="0" width="100%" cellpadding="0" style="border-collapse: collapse" bordercolor="<%=border%>">
<%
for i=1 to rs.PageSize
if not rs.EOF then
title=trim(rs("title"))
title=replace(title,"<br>","")
%>
<%
if request.cookies("key")="super" or request.cookies("key")="bigmaster" or request.cookies("key")="smallmaster" or (request.cookies("KEY")="check" and checkmod="1") or request.cookies("key")="typemaster" or request.cookies("key")="selfreg" then
%>	
<tr bgcolor=ffffff><td width=7% align=center ><%if rs("checkked")<>1 then%><font color=red><%end if%><%=rs("NewsID")%></font>　</td>
<td width=45% >&nbsp;<a href='../ReadNews.asp?NewsID=<%=rs("NewsID")%>' target=_blank title="查看文章“<%=Title%>”"><font color="<%=rs("titlecolor")%>"><%=left(title,40)%></font></a><%if rs("picname")<>"" then%><font color=red>[图]<%end if%><%if request.cookies("key")="super" and request.cookies("purview")="99999" then%><font color=red>(<%=rs("editor")%>)</font><%end if%></td>
<td width=16% align=center ><%=rs("UpdateTime")%>　</td>
<td width=6% align=center ><input type=button value="编辑" class=button onclick="javascript:window.open('newsedit.asp?newsid=<%=rs("newsid")%>','_self','')"></td>
<td width=6% align=center ><input type=button value="<%if rs("checkked")<>1 then%>审核<%else%>已审<%end if%>" class=button onclick="javascript:window.open('newscheck.asp?newsid=<%=rs("newsid")%>','_self','')" <%IF not(request.cookies("KEY")="super" or request.cookies("KEY")="check" or request.cookies("key")="typemaster" or request.cookies("key")="bigmaster" or request.cookies("key")="smallmaster") THEN%>disabled<%end if%>></td>
<td width=6% align=center ><input type=button value="<%if rs("istop")<>1 then%>固顶<%else%>已固<%end if%>" class=button onclick="javascript:window.open('newsgu.asp?newsid=<%=rs("newsid")%>','_self','')" <%IF not(request.cookies("KEY")="super" or request.cookies("KEY")="check" or request.cookies("key")="typemaster" or request.cookies("key")="bigmaster"  or request.cookies("key")="smallmaster") THEN%>disabled<%end if%>></td>
<td width=6% align=center ><input type=button value="删除" class=button onclick="javascript:window.open('newsdel.asp?newsid=<%=rs("newsid")%>','_self','')"></td>
<tr>
<%
end if
rs.MoveNext
end if
next
%>

</table>
</td>
<tr>
    <td colspan=2 bgcolor=<%=m_top%> align=center height=25>共 <%=total%> 条，当前第 <%=Mypage%>/<%=Maxpages%> 
            页，每页 <%=MyPageSize%> 条 
            <%
url="listnews.asp?smallclassid=" & smallclassid & "&"
							
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
%>
</td>
  </tr>
</table>
  </center>
</div>
<%else%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<title><%=copyright%><%=version%>&nbsp;<%=ver%> - 管理文章</title>
</head>

<body topmargin="0"><!--#include file=top.asp--><br>
<div align="center">
  <center>
<table border="1" width="750" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="<%=border%>">
<tr>
    <td width="100%" bgcolor="<%=m_top%>" height="30" align="left">
<a href=typemanage.asp>全部总栏</a><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src=images/menu1.gif><b><a href="bigclass.asp?typeid=<%=typeid%>"><font color=red><%=typename%></font></a></b>&nbsp;&nbsp;&nbsp;&nbsp;其他总栏：
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 ="SELECT  * From type where typeid<>"&typeid&" order by typeorder"
RS1.open sql1,Conn,3,3
do while not rs1.EOF
master1=rs1("typemaster")
if master1<>"" then
tmaster1=split(master1,"|")
 for i=0 to ubound(tmaster1)
	if request.cookies("username")=trim(tmaster1(i)) then
	typemaster1=true
	exit for
	else
	typemaster1=false
	end if
 next
end if
if typemaster1=true or request.cookies("key")="super" or request.cookies("key")="check" or request.cookies("key")="selfreg" then
%><a href=bigclass.asp?typeid=<%=rs1("typeid")%>><%=rs1("typename")%></a>
<%end if
rs1.movenext
loop
rs1.close
set rs1=nothing%>
      <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src=images/menu1.gif><b><a href="smallclass.asp?bigclassid=<%=bigclassid%>"><font color=red><%=bigclassname%></font></a></b>
      &nbsp;&nbsp;&nbsp;&nbsp;其他大类：
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 ="SELECT  * From bigclass where typeid="&typeid&" and bigclassid<>"&bigclassid&" order by bigclassorder"
RS1.open sql1,Conn,3,3
do while not rs1.EOF
if (bigclassmaster=true and request.cookies("key")="bigmaster") or request.cookies("key")="super" or request.cookies("key")="check" or (request.cookies("key")="typemaster" and typemaster4=true) or request.cookies("key")="selfreg" then
%><a href=smallclass.asp?bigclassid=<%=rs1("bigclassid")%>><%=rs1("bigclassname")%></a>
<%end if
rs1.movenext
loop
rs1.close
set rs1=nothing%>
      <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src=images/menu1.gif><b><a href="listnews.asp?smallclassid=<%=smallclassid%>"><font color=red><%=smallclassname%></font></a></b>
      &nbsp;&nbsp;&nbsp;&nbsp;其他小类：
<%if request.cookies("key")="super" or request.cookies("key")="check" or request.cookies("key")="typemaster" or request.cookies("key")="bigmaster" or request.cookies("key")="selfreg" then
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 ="SELECT  * From smallclass where bigclassid="&bigclassid&" and smallclassid<>"&smallclassid&" order by smallclassorder"
RS1.open sql1,Conn,3,3
do while not rs1.EOF
%><a href=listnews.asp?smallclassid=<%=rs1("smallclassid")%>><%=rs1("smallclassname")%></a>
<%rs1.movenext
loop
rs1.close
set rs1=nothing
else
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 ="SELECT * From SmallClass where smallclassid<>"&smallclassid&" order by SmallClassorder"
RS1.open sql1,Conn,3,3
do while not rs1.EOF
master2=rs1("smallclassma")
if master2<>"" then
smallmaster=split(master2,"|")
 for i=0 to ubound(smallmaster)
	if request.cookies("username")=trim(smallmaster(i)) then
	smallclassmaster=true
	exit for
	else
	smallclassmaster=false
	end if
 next
end if
if smallclassmaster=true then
%><a href=listnews.asp?smallclassid=<%=rs1("smallclassid")%>><%=rs1("smallclassname")%></a>
<%end if
rs1.movenext
loop
rs1.close
set rs1=nothing
end if
%>
</td>
</tr>
<tr>
    <td bgcolor=<%=m_top%> align=center height=25>该小类下还未有文章<input type=button value="发表新文章" class=button onclick="javascript:window.open('newsadd1.asp?smallclassid=<%=smallclassid%>','_self','')"></td>
</tr>
</table>
</body>
</html>
<%end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
else
response.write "<script>alert('对不起，你无权操作！');history.go(-1);</Script>"
Response.End 
end if
%>