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

www.gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\admin\ModifyNews1.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>
<table border="0" width="588" align=center>
  <form method="POST" action="ModifyNews2.asp">
  <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>
    <td width="100%"><input type="text" name="NewsID" size="20"><input type="submit" value="下一步>>" ></td>
  </tr>
</form>
  <tr>
    <td width="100%"></td>
  </tr>
  <tr>
    <td width="100%">
      <hr size="1">
    </td>
  </tr>
  <tr>
    <td width="100%"><b>选择新闻：(当前第<%=page%>页)</b></td>
  </tr>
  <tr>
           <td colspan=2 bgcolor=efefef align=center height=21>其他页：
           <%
            for i=1 to rs.PageCount 
               Response.Write "<a href=ModifyNews1.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=""ModifyNews2.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=ModifyNews1.asp?Page=" & i & "><font color=000000>" & i &  "</font></a> _"
            next
           %>
           </td>
          </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td width="100%"></td>
  </tr>
</table>
<p><br><br>
</body>

</html>
<%
rs.Close
set rs=nothing

conn.close
set conn=nothing

%>