读取xml
复制内容到剪贴板
代码:
<%
strSourceFile = Server.MapPath("Word.xml")
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(strSourceFile)
Set objRootsite = objXML.documentElement.selectSingleNode("guestbook")
%>设置
复制内容到剪贴板
代码:
<%
'每页显示*条留言
PageSize = 5
'获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1）
AllNodesNum = objRootsite.childNodes.length - 1
'算出总页数
PageNum = AllNodesNum\PageSize + 1
PageNo = Request.querystring("PageNo")
'如果是每一次获得页面则定位到每一页显示最新的留言
if PageNo="" then
PageNo = 1
end if
'获得起始节点
StarNodes = AllNodesNum - (PageNo - 1)*PageSize
'获得结束节点
EndNodes = StarNodes - PageSize + 1
if EndNodes < 0 then
EndNodes = 0
end If
'判断起始节点数是否超过总的节点数
if StarNodes > AllNodesNum then
'如果超过则结束节点要减去(StarNodes-AllNodesNum)的差值否则下标会超界出错
EndNodes=EndNodes-(StarNodes-AllNodesNum)
StarNodes=AllNodesNum
end if
if EndNodes < 0 then
EndNodes=0
end if
while StarNodes >= EndNodes
id = objRootsite.childNodes.item(StarNodes).childNodes.item(0).text
username= objRootsite.childNodes.item(StarNodes).childNodes.item(1).text
gender = objRootsite.childNodes.item(StarNodes).childNodes.item(2).text
email = objRootsite.childNodes.item(StarNodes).childNodes.item(3).text
qq = objRootsite.childNodes.item(StarNodes).childNodes.item(4).text
homepage= objRootsite.childNodes.item(StarNodes).childNodes.item(5).text
content = objRootsite.childNodes.item(StarNodes).childNodes.item(6).text
posttime= objRootsite.childNodes.item(starNodes).childNodes.item(7).text
reply = objRootsite.childNodes.item(starNodes).childNodes.item(8).text
%>断开连接
复制内容到剪贴板
代码:
<%
StarNodes = StarNodes - 1
wend
set objXML = nothing
%>power by nenge for
www.panyubbs.cn
