asp生成静态列表页的问题

来源：百度知道 编辑：UC知道 时间：2024/06/07 09:08:28
按照这个代码运行，只能生成一页，
高手帮忙看下怎么回事？？

循环应该怎么写？

<%
News_mb="../template/news_list.htm"
On Error Resume Next

Set fso = Server.CreateObject("Scripting.FileSystemObject")

set rs=server.CreateObject("adodb.recordset")
sql="select * from info where pass=1 order by id desc"
rs.open sql,conn,1,1

rs.PageSize =12'每页记录条数
iCount=rs.RecordCount '记录总数
maxpage=rs.PageCount '总页数

for i=1 to maxpage

Set news_list_mb = fso.OpenTextFile(Server.MapPath(News_mb),1)
mb_code=news_list_mb.readall
news_list_mb.close

Page = rs.AbsolutePage

For j = 1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
News_con=News_con&"<li>·<a href=news_"&rs("id")&".html target=""_blank"">"&rs("title")&"</a></li>"
rs.MoveNext
Nex

rs.close
Set rs = Nothing

放得太前面了吧。。。。。。

你的I循环还在循环，马上关掉数据集了。当然不捞了。

<%
News_mb="../template/news_list.htm"
On Error Resume Next

Set fso = Server.CreateObject("Scripting.FileSystemObject")

set rs=server.CreateObject("adodb.recordset")
sql="select * from info where pass=1 order by id desc"
rs.open sql,conn,1,1

rs.PageSize =12'每页记录条数
iCount=rs.RecordCount '记录总数
maxpage=rs.PageCount '总页数

for i=1 to maxpage

Set news_list_mb = fso.OpenTextFile(Server.MapPath(News_mb),1)
mb_code=news_list_mb.readall
news_list_mb.close

Page = rs.AbsolutePage

For j = 1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
News_con=News_con&"<li>·<a href=news_"&rs("id")&".html target=""_blank"">"&rs("title")&&q