淘宝网精品女装 :http://www.3netgo.com
原创博客 :http://www.3netgo.com/blog
page=clng(request("page"))
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From [news] order by id desc",Conn,1,1
if rs.eof and rs.bof then
response.Write("<div align='center' class='bg'>没哦!</div>")
else
rs.PageSize=10
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
<div align="center">
当前第<%=page%>页
跳转到第
<%for i=1 to rs.pagecount%>
<a href="index.asp?page=<%=i%>"><%=i%></a>
<%
next
rs.close
set rs=nothing
%>
页
</div>