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"> </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> " Else Response.write "<font color='#000000'>后页-</font>" Response.write "<font color='#000000'>尾页</font> " End if Response.write "<font color='#000000'>页次:</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) & "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font> " Response.write "<font color=#ff0000>" & Cstr(MaxPerPage) & "</font>" & "<font color='#000000'>条新闻/页 " & "共</font>" & "<font color=#FF0000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'>条新闻</font> " 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&"> " response.write "<input class=buttonface type='submit' value='Go' name='cndok' style='background-color: #BECFF1'></span> " %> </font> </td> </tr> </table> </center> </td></tr> </table> </form> <%end sub%> </body> </html>