There are two files: tmh.htm & TT. xml.
Source code As follows:
Tmh.htm
CopyCode The Code is as follows: <! Doctype HTML public "-// W3C // dtd html 4.0 transitional // en">
<HTML>
<Head>
<Title> new document </title>
<Meta name = "generator" content = "editplus">
<Meta name = "author" content = "">
<Meta name = "keywords" content = "">
<Meta name = "Description" content = "">
<LINK rel = "stylesheet" href = "../website.css" type = "text/CSS">
</Head>
<Body>
<Script language = "JavaScript">
// ***************** Variable-related definitions **************
// * Author: Hai Zi *
// * Email: rautinee@21cn.com *
// * Book Program This information can be freely transmitted and used, but it must be retained *
//************************************** **
VaR pagenum = 4; // several messages are displayed on each page
VaR page = 0;
VaR contpage;
VaR bodytext = "";
VaR xmldoc = new activexobject ("Microsoft. xmldom ");
VAR mode = "member ";
VaR toolbar;
Xmldoc. async = "false"
Xmldoc. Load ("TT. xml ")
// **************** You have changed the field name based on the actual obtained field name.
Header = "<Table border = 1> <tr> <TD> name </TD> <TD> icon </TD> <TD> ip address </TD> <TD> email </TD> <TD> date </TD> </tr> ";
// Number of retrieved records
Maxnum = xmldoc. getelementsbytagname (mode). Length
// Number of columns per record
Column = xmldoc. getelementsbytagname (mode). Item (0). childnodes
// 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 = "<a href = '# 'onclick = 'javascript: Return uppagego ()'> previous page </a> ";
Return thepage;
}
Function nextpage (page)
{
Thepage = "next page ";
If (page <pagesnumber) thepage = "<a href = '# 'onclick = 'javascript: Return nextpagego ()'> next page </a> ";
Return thepage;
}
Function uppagego (){
If (page> 0) page --;
Getcontent ();
Bodytext = "";
}
// Current page number
Function currentpage ()
{
VaR CP;
CP = "current is the" + (page + 1) + "page ";
Return CP;
}
// Total number of pages
Function allpage ()
{
VaR AP;
AP = 'Total' + (pagesnumber + 1) + 'page ';
Return AP
}
Function nextpagego ()
{
If (page <pagesnumber) page ++;
Getcontent ();
Bodytext = "";
}
// Display the paging Status Bar
Function pagebar (page)
{
VaR Pb;
PB = uppage (PAGE) + "" + nextpage (PAGE) + "" + currentpage () + "" + allpage () + selectpage ();
Return Pb;
}
Function changepage (tpage)
{
Page = tpage
If (page> = 0) page --;
If (page <pagesnumber) page ++;
Getcontent ();
Bodytext = "";
}
Function selectpage ()
{
VaR sp;
SP = "<select name = 'hehe' onchange = 'javascript: changepage (this. Options [This. selectedindex]. Value) '> ";
// Sp = "<select name = 'hehe' onchange = 'alert (this. Options [This. selectedindex]. Value) '> ";
SP = SP + "<option value =''> </option> ";
For (t = 0; t <= pagesnumber; t ++)
{
SP = SP + "<option value = '" + T + "'>" + (t + 1) + "</option> ";
}
SP = SP + "</SELECT>"
Return sp;
}
Function getcontent ()
{
If (! Page) page = 0;
N = page * pagenum;
Endnum = (page + 1) * pagenum;
If (endnum> maxnum) endnum = maxnum;
Bodytext = header + bodytext;
For (; n <endnum; n ++)
{
Bodytext = bodytext + "<tr> ";
For (m = 0; m <= colNum-1; m ++)
{
Mname = column. Item (M). tagname;
Bodytext = bodytext + ("<TD>" + xmldoc. getelementsbytagname (mname). Item (N). Text + "</TD> ");
}
Bodytext = bodytext + "</tr>"
Mm = "";
}
Showhtml. innerhtml = bodytext + "</table>" + pagebar (PAGE );
Bodytext = ""
}
</SCRIPT>
<Div id = "showhtml"> </div>
<SCRIPT>
If (maxnum = 0)
{
Document. Write ("no talent information is found ")
}
Else
{
Getcontent ()
}
</SCRIPT>
</Body>
</Html>
// The following is the TT. XML code.
Copy code The Code is as follows: <? XML version = "1.0" encoding = "gb2312"?>
<Rautinee>
<Member id = '1'>
<Name> Hai Zi </Name>
<Loginname> rautinee </loginname>
<Email> rautinee@btamail.net.cn </Email> </member>
<Member id = '2'>
<Name> strong </Name>
<Loginname> hehe </loginname>
<Email> rautinee@chinamanagers.com </Email> </member>
<Member id = '3'>
<Name> Jin huagang </Name>
<Loginname> nature_it </loginname>
<Email> rautinee_sea@hotmail.com </Email> </member>
<Member id = '4'>
<Name> simplified </Name>
<Loginname> tank </loginname>
<Email> tank@163.com </Email> </member>
<Member id = '7'>
<Name> joint venture </Name>
<Loginname> Kaka </loginname>
<Email> kaka@eyou.com </Email> </member>
<Member id = '6'>
<Name> Add an individual </Name>
<Loginname> Apple </loginname>
<Email> apple@163.com </Email> </member>
<Member id = '8'>
<Name> null </Name>
<Loginname> sunny </loginname>
<Email> rautinee@eyou.com </Email> </member>
<Member id = '10'>
<Name> baby </Name>
<Loginname> index </loginname>
<Email> rautinee@21cn.com </Email> </member>
<Member id = '12'>
<Name> null </Name>
<Loginname> login </loginname>
<Email> webmaster@chinamanagers.com </Email> </member>
<Member id = '13'>
<Name> Jiang </Name>
<Loginname> 123 </loginname>
<Email> japing@chianmanagers.com </Email> </member>
<Member id = '14'>
<Name> null </Name>
<Loginname> world </loginname>
<Email> rautinee@21cn.com </Email> </member>
<Member id = '15'>
<Name> null </Name>
<Loginname> swallow </loginname>
<Email> swallow@chinamanagers.com </Email> </member>
<Member id = '16'>
<Name> Wei Ge </Name>
<Loginname> Hotmail </loginname>
<Email> rautinee_sea@hotmail.com </Email> </member>
<Member id = '17'>
<Name> null </Name>
<Loginname> wrong </loginname>
<Email> wrong@chinamanagers.com </Email> </member>
<Member id = '18'>
<Name> null </Name>
<Loginname> Leah </loginname>
<Email> leah@chinamanagers.com </Email> </member>
<Member id = '19'>
<Name> null </Name>
<Loginname> ttth </loginname>
<Email> rautinee@21cn.com </Email> </member>
</Rautinee>
Currently, only ie5.0 is supported.
If you have any good methods and improvements, please contact me. Thank you.
