Use JScript to implement Paging

<% @ 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 = 'group News 'order by id desc ";
DataSet. Open (SQL, DataConn, 1, 1 );

// Whether data exists
If (DataSet. eof) & (DataSet. bof ))
{
Response. Write ("
");
Response. Write ("===no === ");
Response. Write ("
");
Response. End ();
}

// Total number of records
NumRecords = DataSet. RecordCount;

// Set the maximum number of records per page
PageSize = 3;

// Total number of pages
NumPages = Math. ceil (NumRecords/PageSize );

// Current page
I = Request. QueryString ("CurrentPageID"). Count;
If (I = 0)
{
CurrentPageID = 1;
}
Else
{
CurrentPageID = parseInt (Request. QueryString ("CurrentPageID "));
}

// Initialization
PreviousPageID = CurrentPageID-1;
NextPageID = CurrentPageID + 1;
HomePage = 1;
EndPage = NumPages;

// Content list
DataSet. MoveFirst;
DataSet. Move (CurrentPageID-1) * PageSize, 1 );
While (! DataSet. eof & j {
Response. Write ("" + DataSet ("subject") +"
");
J = j + 1;
DataSet. MoveNext;

}

 

 

// Set the URL
If (CurrentPageID = HomePage)
{
Response. Write ("

Homepage ");
Response. Write ("Previous Page ");
Response. Write ("next page ");
Response. Write ("Last Page

");
}
Else if (CurrentPageID = EndPage)
{
Response. Write ("
Homepage ");
Response. Write ("Previous Page ");
Response. Write ("next page ");
Response. Write ("Last Page

");
}
Else
{
Response. Write ("
Homepage ");
Response. Write ("Previous Page ");
Response. Write ("next page ");
Response. Write ("Last Page

");
}
%>