gusucode.com > asp+SQLServer网上书店系统设计(源代码+论文) > asp+SQLServer网上书店系统设计(源代码+论文)\网上书店asp+SQLServer\网上书店\admin\news_check.asp

    <% 
 if session("admin")="" then
  Response.redirect "backlogin.asp?msg=对不起你还没有登录,请返回登录!"
 end if
%>
<html>
<head>
<title>新闻审查</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>.main {
	FONT-SIZE: 12px
}
.main1 {
	FONT-SIZE: 14px
}
.main2 {
	FONT-SIZE: 16px
}
.main3 {
	FONT-SIZE: 7px
}
.main4 {
	FONT-SIZE: 10px
}
A:link {
	COLOR: #ffffff; TEXT-DECORATION: none
}
A:visited {
	COLOR: #ffffff; TEXT-DECORATION: none
}
A:active {
	COLOR: #ff0000; TEXT-DECORATION: none
}
A:hover {
	COLOR: #aa0000; TEXT-DECORATION: underline
}
</STYLE>
<script language="javascript">
    function confirmdel(id,page){
       if (confirm("真的要删除这条新闻吗?")) 
       window.location.href="del_news.asp?id="+id+"&page="+page
     }  
</script>
</head>
<body  text="#000000" bgcolor="#d3d0e5">

<br>
      <div align="center">
        <center>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from news" 
rs.open sqltext,cn,1,1

dim MaxPerPage
MaxPerPage=10

'假如没有数据时
If rs.eof and rs.bof then 
   call showpages
   response.write "<p align='center'><font color='#ff0000'>还没任何新闻</font></p>"
   response.end
End if

'取得页数,并判断用户输入的是否数字类型的数据,如不是将以第一页显示
dim text,checkpage
text="0123456789"
 Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
   checkpage=instr(1,text,mid(request("page"),i,1))
   if checkpage=0 then
      exit for 
   end if
next

If checkpage<>0 then
      If NOT IsEmpty(request("page")) Then
        CurrentPage=Cint(request("page"))
        If CurrentPage < 1 Then CurrentPage = 1
        If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
      Else
        CurrentPage= 1
      End If
      If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
   CurrentPage=1
End if

call showpages
call list

If Rs.recordcount > MaxPerPage then
   call showpages
end if

'显示帖子的子程序
Sub list()%>
            
    <TABLE cellSpacing=1 cellPadding=4 width=100% bgColor=#000000 height="136">
      <TBODY> 
      <TR vAlign=top bgColor=#BECFF1>
                <TD class=main1 width="662" height="10" bgcolor="#BECFF1"></TD></TR>
              <TR vAlign=top bgColor=#BECFF1>
                <TD class=main1 width="662" height="18">新闻审查--</TD></TR>
              <TR vAlign=top bgColor=#BECFF1>
                <TD class=main1 width="662" height="15">
                  <table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolorlight="#BECFF1" bordercolordark="#BECFF1">
                    <tr class=main1>
                      <td width="9%" bgcolor="#BECFF1" align="center" height="20">编号</font></td>
                      <td width="12%" bgcolor="#BECFF1" align="center" height="20">主题</font></td>
                      <td width="13%" bgcolor="#BECFF1" align="center" height="20">发布人</font></td>
                      <td width="25%" bgcolor="#BECFF1" align="center" height="20">时间</font></td>
                      <td width="15%" bgcolor="#BECFF1" align="center" height="20">详细资料</font></td>
<td width="13%" bgcolor="#BECFF1" align="center" height="20">操作</font></td>
                      <td width="13%" bgcolor="#BECFF1" align="center" height="20">操作</font></td>
                    </tr>
<%
if not rs.eof then
  i=0
  do while not rs.eof 
%> 
                   <tr class=main1 bgcolor="#8CAAE7">
                      <td width="9%" align="center" height="25"><%=rs("id")%></td>
                      <td width="12%" align="center" height="25"><%=rs("title")%></td>
                      <td width="13%" align="center" height="25"><%=rs("manager")%></td>
                      <td width="25%" align="center" height="25"><%=rs("news_date")%></td>
                      <td width="15%" align="center" height="25">
                      <%response.write "<a href='news.asp?ID="&rs("id")&"&page="&CurrentPage&"'  ><font color=#0000FF>详细资料</font></a>"
%></td>
<td width="15%" align="center" height="25">
                      <%response.write "<a href='modify_news.asp?ID="&rs("id")&"&page="&CurrentPage&"'  ><font color=#0000FF>修改</font></a>" %></td>
                      <td width="13%" align="center" height="25">
                      <%response.write "<a href='javascript:confirmdel(" & rs("id") & ","& CurrentPage&")'><font color=#0000FF>删除</font></a>"
%></td>
                    </tr>
<%
   i=i+1
   if i >= MaxPerpage then exit do
   rs.movenext
   loop
end if
%>

                  </table>
                </TD></TR>
              <TR bgColor=#BECFF1>
                <TD class=main1 width="662" height="27">
                  <p align="center">&nbsp;               
                </TD></TR>
              <TR bgColor=#BECFF1>
                <TD class=main1 width="662" height="4" bgcolor="#BECFF1"></TD></TR></TBODY></TABLE><br>
<%
End sub
rs.close
conn.close
%>        </center>
      </div>
<div align="center">
  <center>                                      
<%
'显示翻页的子程序
sub showpages()%>
<table bgColor="#f8e8a0" border="0" cellPadding="0" cellSpacing="0" width="100%" >
  <tr><td width="695">
<%
response.write "<form method=Post action='manager_check.asp'>"
%> 

      <table bgColor="#BECFF1" border="0" cellPadding="0" cellSpacing="0" width="100%" height="30">
        <tr>
    <td  bgcolor="#BECFF1" class=main1>   
<font color="#000000">   
<p align="center">   
<%
   Response.write "<font color='#000000'>分页-</font>"   
   If currentpage > 1 Then
      response.write "<a href='news_check.asp?&page="+cstr(1)+"'><font color='#000000'>首页</font></a><font color='#ffffff'><b>-</b></font>"  
      Response.write "<a href='news_check.asp?page="+Cstr(currentpage-1)+"'><font color='#000000'>前页</font></a><font color='#ffffff'><b>-</b></font>"
   Else
      Response.write "<font color='#000000'>首页-</font>"
      Response.write "<font color='#000000'>前页-</font>"      
   End if
   
   If currentpage < Rs.PageCount Then
      Response.write "<a href='news_check.asp?page="+Cstr(currentPage+1)+"'><font color='#000000'>后页</font></a><font color='#ffffff'><b>-</b></font>"
      Response.write "<a href='news_check.asp?page="+Cstr(Rs.PageCount)+"'><font color='#000000'>尾页</font></a>&nbsp;&nbsp;"
   Else
      Response.write "<font color='#000000'>后页-</font>"
      Response.write "<font color='#000000'>尾页</font>&nbsp;&nbsp;"       
   End if
   Response.write "<font color='#000000'>页次:</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) &  "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font>&nbsp;"
   Response.write "<font color=#ff0000>" & Cstr(MaxPerPage) & "</font>" & "<font color='#000000'>条新闻/页&nbsp" & "共</font>" & "<font color=#FF0000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'>条新闻</font>&nbsp;&nbsp;"

response.write "</td><td align='right'>"
response.write "<font color='#000000' class=main1>转到:</font><input type='text' name='page' size=4 maxlength=4 class=smallInput value="&Currentpage&">&nbsp;"
   response.write "<input class=buttonface type='submit'  value='Go'  name='cndok' style='background-color: #BECFF1'></span>&nbsp;&nbsp;"   
%>    
</font>    
    </td>  
   </tr>
  </table>
  </center>
</td></tr>
</table>
</form>
<%end sub%>


</body>
</html>