Based on web-based technology, the paging is an old can no longer be old, but everyone is the problem, with the income application of XML technology, it is also a possibility, of course, there are many tutorials. When I have seen the stunned, I will write one, share it with you, and correct.
There are two files TMH.htm & tt.xml
The source code is as follows:
TMH.htm
_________________________________________________
HEAD>
// *************** Variables related definitions *************
// * Author: 海 仔 *
// * email: Rautinee@21cn.com *
// * This program is free to disseminate, but please keep this information *
// ***************************************
VAR PAGENUM = 4; // Show a few messages per page
VAR Page = 0;
Var continpage;
Var bodytext = "";
VAR XMLDoc = New ActiveXObject ("Microsoft.xmLDom");
Var mode = "member";
Var Toolbar;
XMLDoc.async = "false"
XMLDoc.Load ("tt.xml")
// ************** This place is you changed according to the actual field name.
Header = "
Icon TD> | IP Address TD> | Email TD> | TD> | Date TD> | TD> | TD> TR>
// Retrieve the number of records Maxnum = xmldoc.getlementsBytagname (Mode) .length // The number of columns per record Column = xmldoc.getElementsBytagname (mode) .Item (0) .childNodes // The number of columns per record Colnum = column.length // Page number PagesNumber = Math.ceil (MAXNUM / PAGENUM) -1; Pagesnumber2 = Math.ceil (MaxNum / Pagenum); // Previous page Function uppage (Page) { Thepage = "Previous page"; IF (Page 1> 1) thepage = ""; Return thepage; } Function NextPage (Page) { Thepage = "Take the next page"; IF (PageSnumber) thepage = " Next page "; Return thepage; } Function uppagego () { IF (Page> 0) Page -; GetContent (); Bodytext = "" } // Current number of pages Function CurrentPage () { VAR CP; CP = "Currently No. (Page 1) " Page "; Return CP; } // Total number of pages Function allpage () { VAR AP; AP = 'total' (Pagesnumber 1) 'page'; Return AP } Function nextpagego () { IF (Page GetContent (); Bodytext = "" } // Display Package Status Bar Function Pagebar (Page) { VAR PB; PB = UPPAGE (PAGE) " NEXTPAGE (PAGE) " " Allpage () SelectPage (); Return PB; } Function ChangePage (TPAGE) { Page = TPAGE IF (Page> = 0) Page -; IF (Page GetContent (); Bodytext = "" } Function selectpage () { VAR SP; Sp = " SP = SP " { SP = SP " 简强 强强 name> RAUTINEE> Currently only support> IE5.0 If you have any good way and improve, let me let me not know, or visit the website. Http://www.tryitsoft.com Thank you. OK, Just Enjoy It, And Good Luck |