一个关于ASP代码的问题

来源：百度知道 编辑：UC知道 时间：2024/07/01 07:13:04
我想做一个显示新闻的代码,现在需要的一个特殊之处是当新闻达到或超过8行的时候,就转入下一页,用户按下一页就可以看到余下的东西,请问这样如何用代码实现?
我没写清楚,我的意思不是标题分页,是说新闻内容进行分页,也就是一个新闻文章显示了8行之后换一页显示

1+1=2

Const MaxPerPage=5 //定义一个常量MaxPerPage的值为5，估计是每页最大显示的量
dim totalPut
dim CurrentPage //定义一个变量，意思是当前的页数
dim TotalPages //定义一个变量，意思是总的页数
dim j //定义变量j和sql
dim sql
if Not isempty(request("page")) then //如果提交的page不为空的话
currentPage=Cint(request("page")) //将提交的页数赋值给currentpage变量
else
currentPage=1 //如果刚才提交的page为空的话，则将currentpage赋值为1
end if
set rs=server.CreateObject("adodb.recordset") //这句话具体不会解释，反正建立一个rs用于下面打开数据库
//通过sql语句查询适合要求的数据rs.open "select top 100 pronum,name,discount,score,mark,vipprice,id,author,productdate,price2,price1,discount,pic from product order by adddate desc",conn,1,1
if err.number<>0 then //如果出错了，则显示数据库中无数据
call MsgBox("数据库中无数据","Back","None")
response.End
end if
if rs.eof And rs.bof then //如果没有查到数据，则显示对不起，目前没有更新商品
call MsgBox("对不起，目前没有更新商品！","Back","No