DelNews1.asp ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) - ASP源码程序

gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\admin\DelNews1.asp

    <!--#include file=conn.asp -->
<!--#include file=session.asp-->
<%
page=Request.QueryString("page")
if page<=1 or page="" then page=1

set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from News order by NewsID desc"
rs.Open rs.Source,conn,1,1

rs.PageSize=25
 
for i=1 to rs.PageSize  *( page-1)
   if not rs.EOF then 
       rs.MoveNext
   end if
next

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/bodystyle.css" rel="stylesheet" type="text/css">
</head>

<body>
<p>  </p>

<table border="0" width="588" align=center>
  <tr>
    <td width="100%"><b>删除新闻</b></td>
  </tr>
  <tr>
    <td width="100%">
      <hr size="1">
    </td>
  </tr>
  <tr>
    <td width="100%">请输入你需要删除的新闻的ID：</td>
  </tr>
  
  <tr>
  <form method="POST" action="DelNews2_alert.asp" id=form1 name=form1>
    <td width="100%"><input type="text" name="NewsID" size="20"><input type="submit" value="下一步>>"  id=submit1 name=submit1></td>
  </form>
  </tr>
  <tr>
    <td width="100%"><hr size=1></td>
  </tr>
  <tr>
    <td width="100%"><STRONG>选择要删除的新闻：(当前第<%=page%>页)</STRONG></td>
  </tr>
   <tr>
     <td bgcolor=efefef align=center height=25>其他页：
           <%
            for i=1 to rs.PageCount 
               Response.Write "<a href=DelNews1.asp?Page=" & i & "><font color=000000>" & i &  "</font></a> _"
            next
           %>
     </td>
  </tr>
  <tr>
    <td width="100%">
     <table border="0" cellspacing="0" width="100%" cellpadding="0">
<%
   for i=1 to rs.PageSize  
        if not rs.EOF then 
            TrString="<form method=""POST"" action=""DelNews2_alert.asp""><input type=hidden name=NewsID value=" & rs("NewsID") & ">"
            TrString=TrString & "<tr><td width=74% >&nbsp;<a  href=../ReadNews.asp?NewsID=" & rs("NewsID") & "&BigClassName="& BigClassName &"&BigClassID=" & rs("BigClassID") & "&SmallClassID=" & rs("SmallClassId") & " target=_blank><font color=225588>◎" & trim(rs("Title")) & "(" & rs("UpdateTime") & ")</font></a></td>"
            TrString=TrString & "<td width=26% ><input type=submit value=""删除"" style=""border-style: double; border-color: #efefef""></td>"
            TrString=TrString & "</form>"
            Response.Write TrString

            rs.MoveNext 
         end if 
    next   
%> 
         <tr>
           <td colspan=2 bgcolor=efefef align=center height=25>其他页：
           <%
            for i=1 to rs.PageCount 
               Response.Write "<a href=DelNews1.asp?Page=" & i & "><font color=000000>" & i &  "</font></a> _"
            next
           %>
           </td>
          </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td width="100%">　</td>
  </tr>
</table>

</body>

</html>