╃苍狼山庄╃╃苍狼山庄╃

Clang出品,
必属精品!

在ASP中,用JScript脚本实现分页的另类办法

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


<%
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("
" ); Response.Write("=== 暂无 ==="); Response.Write("

"); 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"+DataSet("subject")+"
"); j=j+1; DataSet.MoveNext; } //设定URL if (CurrentPageID == HomePage) { Response.Write("

首页  ");
Response.Write("上一页  ");
Response.Write("下一页  ");
Response.Write("尾页  

"); } else if (CurrentPageID == EndPage) { Response.Write("

首页  ");
Response.Write("上一页  ");
Response.Write("下一页  ");
Response.Write("尾页  

"); } else { Response.Write("

首页  ");
Response.Write("上一页  ");
Response.Write("下一页  ");
Response.Write("尾页  

"); } %>

本原创文章未经允许不得转载 | 当前页面:╃苍狼山庄╃ » 在ASP中,用JScript脚本实现分页的另类办法

评论

文章评论已关闭!