正在阅读：用ASP+XML打造酷酷留言本用ASP+XML打造酷酷留言本

　　end if
　　StarNodes=PageNo*PageSize-1'获得起始节点
　　EndNodes=(PageNo-1)*PageSize'获得结束节点
　　if EndNodes<0 then
　　EndNodes=0
　　end if
　　if StarNodes>AllNodesNum then'判断起始节点数是否超过总的节点数
　　EndNodes=EndNodes-(StarNodes-AllNodesNum)
　　'如果超过则结束节点要减去(StarNodes-AllNodesNum)的差值否则下标会超界出错
　　StarNodes=AllNodesNum
　　end if
　　if EndNodes<0 then
　　EndNodes=0
　　end if
　　while StarNodes>=EndNodes
　　'从结束节点到超始节点之间读取节点数据
　　username = objRootsite.childNodes.item(StarNodes).childNodes.item(1).text
　　'获得用户名
　　fromwhere = objRootsite.childNodes.item(StarNodes).childNodes.item(2).text
　　'获得用户来自那里
　　Posttime = objRootsite.childNodes.item(StarNodes).childNodes.item(3).text
　　'获得留言时间
　　homepage = objRootsite.childNodes.item(StarNodes).childNodes.item(4).text
　　'获得用户主页
　　email = objRootsite.childNodes.item(StarNodes).childNodes.item(5).text
　　'获得用户Eamil
　　text = objRootsite.childNodes.item(StarNodes).childNodes.item(6).text
　　'获昨留言内容

　　text = replace(text,chr(13),"<br>")
　　'替代回车
　　text = replace(text,chr(32)," ")
　　'替代空格
　　%>
　　<tr bgcolor="#F0F0F0">
　　<td width="21%" height="94" valign="top">姓 名：<%=username%><br>
　　来 自：<%=fromwhere%><br>
　　</td>
　　<td width="79%" height="94" valign="top"> | <a href="<%=homepage%>" target=_blank title="<%=username%
　　>的主页">主页</a>
　　| | <a href="mailto:<%=email%>" title="给<%=username%>写信">信箱</a> | |<font color="#CC6633">
　　留言时间：<%=Posttime%> </font>|
　　<hr>
　　<%=text%> </td>
　　</tr>
　　<tr bgcolor="#FFFFFF" align="right">
　　<td colspan="2"> </td>
　　</tr>
　　<%
　　StarNodes=StarNodes-1
　　wend
　　set objXML=nothing