-- 作者：16843210
-- 发布时间：2/26/2006 7:42:00 AM
-- [原创]XML+ASP编辑成BBS
http://www.cqjx.org/xml.asp
XML+ASP
可编辑成BBS 简单的代码初级程序还在更改
有谁可以帮忙的``
如果XML文件不纯在ASP怎么可以显示出来```````` strSourceFile = Server.MapPath("" & vipxml & ".xml")
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(strSourceFile)
Set objRootsite = objXML.documentElement.selectSingleNode("guestbook") '每页显示*条留言
PageSize = cint(""&num&"")
'获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1）
AllNodesNum = objRootsite.childNodes.length - 1
'算出总页数
PageNum = AllNodesNum\PageSize + 1
PageNo = cint(Request.querystring("PageNo"))
'如果是每一次获得页面则定位到每一页显示最新的留言
if PageNo="" or PageNo="0" 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
sex=objRootsite.childNodes.item(StarNodes).childNodes.item(1).text
name=objRootsite.childNodes.item(StarNodes).childNodes.item(2).text
qq=objRootsite.childNodes.item(StarNodes).childNodes.item(3).text
wo=objRootsite.childNodes.item(StarNodes).childNodes.item(4).text
vip=objRootsite.childNodes.item(StarNodes).childNodes.item(5).text
content=objRootsite.childNodes.item(StarNodes).childNodes.item(6).text
addtime=objRootsite.childNodes.item(StarNodes).childNodes.item(7).text
reply=objRootsite.childNodes.item(starNodes).childNodes.item(8).text
hftime=objRootsite.childNodes.item(starNodes).childNodes.item(9).text
zip=objRootsite.childNodes.item(starNodes).childNodes.item(10).text
ip=objRootsite.childNodes.item(starNodes).childNodes.item(10).text
ip=split(ip,".")
uip=ip(0)&"."&ip(1)&"."&ip(2)&".*"
%>
|