自助链接

   
·文字链接区
<% 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 "" %> <% if i mod 8=0 then response.write "" i=i+1 end if StarNodes = StarNodes + 1 wend set objXML = nothing %>
"&linkname&"
     
·图片链接区