<!--#include file="Conn.asp"-->
<body>
<table border="0" align="left" cellpadding="0" cellspacing="0">
<%
URL= Request.ServerVariables("URL")
sql="select * from news order by N_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write " <tr> <td colspan=9 height=40> <center>暂无内容 </center> </td> </tr>"
PageScript="ML"
else
'分页的实现
listnum=3
Rs.pagesize=listnum
pageMax=rs.pagecount
listCount=rs.recordcount
page=Request("page")
if (page-pageMax) > 0 then
page=pageMax
elseif page = "" or page < 1 then
page = 1
end if
rs.absolutepage=page
'编号的实现
j=listCount
j=j-(page-1)*listnum
i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if
do while not rs.eof and i <listnum
n=n+1
%>
<tr>
<td>
<a href="#"> <%=rs("N_title")%> </a>
</td>
</tr>
<%
rs.movenext
i=i+1
j=j-1
