上页下页的代码 能用的加100分

来源：百度知道 编辑：UC知道 时间：2024/05/25 22:20:10
上页下页的内容在后台增加的代码.
在网站其中一个行目里,发布一些信息.每页显示10条信息,10条信息满之后自动放到下页去.按此类推.
请有在后台能直接增加内容吗？有没有代码?
能用的加到200分,急

' 连接数据库的文件
<%
set conn = Server.CreateObject("ADODB.Connection")
DBPath ="webdata/cbnd.mdb"
conn.open "provider=microsoft.jet.oledb.4.0;data source="& server.mappath(DBPath)
%>
'是网页的具体代码
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from news order by n_time desc,n_id desc"'SQL语句 查询新闻表
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then'判断数据库中是否存在记录
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="3">
<%
rs.pagesize=12'定义分页为每页12条记录 可以自己改
page=clng(REQUEST.QueryString("page"))