|
|
<%
i=1
StarNodes=0
strSourceFile = Server.MapPath("Word.xml")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.load(strSourceFile)
Set objRootsite = objXML.documentElement.selectSingleNode("guestbook")
'每页显示*条留言
AllNodesNum = objRootsite.childNodes.length - 1
response.write ""
while StarNodes =< AllNodesNum
id=objRootsite.childNodes.item(StarNodes).childNodes.item(0).text
liketype=objRootsite.childNodes.item(StarNodes).childNodes.item(1).text
linkname=objRootsite.childNodes.item(StarNodes).childNodes.item(2).text
linkurl=objRootsite.childNodes.item(StarNodes).childNodes.item(3).text
imgpath=objRootsite.childNodes.item(StarNodes).childNodes.item(4).text
addtime=objRootsite.childNodes.item(StarNodes).childNodes.item(5).text
ischeck=objRootsite.childNodes.item(StarNodes).childNodes.item(6).text
if liketype="1" and ischeck="1" then
response.write "| "&linkname&" | "
%>
<%
if i mod 8=0 then response.write " "
i=i+1
end if
StarNodes = StarNodes + 1
wend
set objXML = nothing
%>
|
|
|