一个简单的ASP分页程序

w263011531

一个简单的ASP分页程序  
<!--#include file="inc/conn.asp"-->  
<link rel=stylesheet href="inc/css.css" type="text/css">  
<%  
set rs=server.CreateObject("adodb.Recordset")  
sql="Select * from liuyan order by ID desc"  
rs.open sql,conn,3  
%>  
<%   
if rs.eof then   
response.Write("暂时还没有文章")   
else   
n=1   
while not rs.eof and n<=rs.pagesize   
%>   

<%  
rs.pagesize=2  
if request("page")<>"" then  
epage=cint(request("page"))  
if epage<1 then epage=1  
if epage>rs.pagecount then epage=rs.pagecount  
else  
epage=1  
end if  
rs.absolutepage=epage  
%>  
<table border="0" cellpadding="0" cellspacing="1" bgcolor="#0000FF" width="80%" align="center">  

<TABLE cellSpacing="1" cellPadding="1" width="50%" border="0" align=center>  
<TR><TD height="29" colspan="2">主题：  
<%response.write(rs("title")) %></TD></TR>  
<TR><TD height="29">电话：  
<%=rs("tel")%></TD>  
<TD height="29">邮箱：  
<%response.write(rs("email"))%></TD></TR>   
   
<TR><TD height="29" colspan="2">内容：  
<%response.write(rs("content"))%></TD></TR>   
</TD></TR>  
<tr><td><a href="del.asp?id=<%=rs("id")%>">>>>删除</a></td><td><a href="modify.asp?id=<%=rs("id")%>">>>>修改</td></tr>  
</TABLE>  
<%  
n=n+1   
rs.movenext   
wend   
end if   
%>   

</table>  
<p align="center">  
<a href="">首页</a>   
<a href="show.asp?page=<%=epage-1%>">前一页</a>   
<a href="show.asp?page=<%=epage+1%>">后一页</a>   
<a href="show.asp?page=<%=rs.pagecount%>">末页</a>  
</p>  
<p align="center">现在是第<%=epage%>页||一共有<%=rs.pagecount%>页</p>  
<%  
conn.close()  

%>

sevenstar

多谢分享！