在ASP中，用JScript脚本实现分页的另类办法_ASP技巧

<javascript'>%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>

<!--#include file="connect.asp"-->

<!--#include file="news.asp"-->

<%

var DataSet,sql,DataList;

var i=0;

var j=0;

DataList=new News();

DataSet=Server.CreateObject("Adodb.recordset");

sql="select * from News where ngroup='集团新闻' order by id desc";

DataSet.Open(sql,DataConn,1,1);

//是否有数据

if ((DataSet.eof)&&(DataSet.bof))

{

Response.Write("<BR>" );

Response.Write("=== 暂无 ===");

Response.Write("<BR><BR>");

Response.End();

}

//记录总数

NumRecords=DataSet.RecordCount;

//设定每页最大记录数

PageSize=3;

//总页数

NumPages=Math.ceil(NumRecords/PageSize);

//当前页

i=Request.QueryString("CurrentPageID").Count;

if (i==0)

{

CurrentPageID=1;

}

else

{

CurrentPageID=parseInt(Request.QueryString("CurrentPageID"));

}

//初始化

PreviousPageID=CurrentPageID-1;

NextPageID=CurrentPageID+1;

HomePage=1;

EndPage=NumPages;

//内容列表

DataSet.MoveFirst;

DataSet.Move((CurrentPageID-1)*PageSize,1);

while (!DataSet.eof && j<PageSize)

{

Response.Write("<a href=show.asp?id="+DataSet("id")+" target=\"_blank\">"+DataSet("subject")+"</a><br>");

j=j+1;

DataSet.MoveNext;