gonggao.asp

留言 留言本采用asp+access数据结构

<!--#include file="include/conn.asp"-->
<!--#include file="include/system.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="head.asp"-->
<div id="main">
  <div id="submit">
      <div class="contents">
      <p><img src="images/i1.gif" /><img src="images/mgonggao.gif" /><br /><br />
      <% set rs=server.CreateObject("adodb.recordset")
   sql="select * from gonggao order by id desc " 
   rs.open sql,conn,1,3 
   if rs.eof then
   response.write("暂无公告")
   else 
   Allrecord=rs.Recordcount
   path=request.ServerVariables("path_info")
   rs.pagesize=  15 
   on error resume next
   page=clng(request("page"))
   if page<1 then page=1
   if page>rs.pagecount then page=rs.pagecount
   rs.AbsolutePage = Page
   For iPage = 1 To rs.PageSize 
   RecNo = (Page - 1) * rs.PageSize + iPage
%>
<a href="gshow.asp?id=<%=rs("id")%>"><%=rs("titles")%></a>&nbsp;<%=rs("addtime")%> <% if session("adminname") <> "" Then %><a href="admin_gonggao.asp?action=edit&id=<%=rs("id")%>">修改</a>    <a href="admin_gonggao.asp?action=del&id=<%=rs("id")%>">删除</a>    <%end if%><br/><br/>
<%rs.MoveNext
If rs.EOF Then Exit For
Next
end if%>

       </div>  
          </div>
          <div id="page">
     <div id="pages"> 　公告总数：<%=Allrecord%>条 　<%
if page<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=gonggao.asp?page=1>首页</a>&nbsp;"
response.write "<a href=gonggao.asp?page="&page-1&">上一页</a>&nbsp;"     
end if
if rs.pagecount-page<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=gonggao.asp?page="&(page+1)&">下一页</a>&nbsp;"   
response.write "<a href=gonggao.asp?page="&rs.pagecount&">尾页</a>&nbsp;"     
end if
%>
转到第<select name='topage' size='1' onchange='window.location="/gonggao.asp?page="+this.value'>
<% for iPage =1 To rs.pagecount
i=i+1
%>
<option value='<%=i%>'><%=i%></option>
<%
next%>
</select>页　（<%=Page%>/<%=rs.pagecount%> 页）</div>
</div>           
</div> 
						
<%
rs.close
set rs=nothing
%>
<!--#include file="foot.asp"-->