admin_index.asp

就是这样的一个源码

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="inc/conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="chk.asp"-->
<br><br>
<b>文章列表</b>
<br><br>
<%
	on error resume next  '找不到站点资料时忽略错误

sql="select id,title,times,kindid,hit from article order by id desc"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
Rs.pagesize=16
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
%>
<%
do while not Rs.eof
i = i + 1
if i > Rs.pagesize then
exit do
end if

times=Rs("times")
times=left(times,7)
times=replace(times, "-", "")
%>

<table width=100% height=24 border=0 align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
  <tr>
<td colspan="2" style="word-break:break-all"  width="100%">
[<%=Rs("kindid")%>] <a href="/main/<%=times%>/<%=Rs("id")%>.htm" target="blank"><b><%=Rs("title")%></a></b>  <a href="admin_edit.asp?id=<%=Rs("id")%>">[编辑]</a><a href="admin_del.asp?id=<%=Rs("id")%>">[删除]</a> /<%=Rs("hit")%>/
</td>
</tr></table>

<%
Rs.movenext
loop
%>

</td>
</tr>
</table>

<table border=0 cellpadding=0 cellspacing=1 width=640>
<tr><td align="center" style="line-height: 150%">
  <p>目前共收录文章<%=Rs.recordcount%>篇&nbsp;<%=page%>/<%=Rs.pagecount%>页 跳到第
      <% for go=1 to Rs.pagecount
%>
      <a href=admin_index.asp?page=<%=go%>><%=go%></a>
      <%next%>
      页&nbsp;
      <% if page=1 then %> 
      <%else%>
      <a href=admin_index.asp?page=<%=page-1%>>上一页</a>&nbsp;
      <%end if%>
      <% if Rs.pagecount-page <> 0 then %>
      <a href=admin_index.asp?page=<%=page+1%>>下一页</a>&nbsp;
      <%else%> 
      <%end if%>
</td></tr></table>
<br><br>