| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
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
%>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
j=1
StarNodes=0
strSourceFile = Server.MapPath("Word.xml")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.load(strSourceFile)
Set objRootsite = objXML.documentElement.selectSingleNode("guestbook")
'获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1）
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="2" and ischeck="1" then
response.write "![](http://"&replace(imgpath,"http://","")&") | "
%>
<%
if j mod 7=0 then response.write " "
j=j+1
end if
StarNodes = StarNodes + 1
wend
set objXML = nothing
%>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
i=1
StarNodes=0
strSourceFile = Server.MapPath("Word.xml")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.load(strSourceFile)
Set objRootsite = objXML.documentElement.selectSingleNode("guestbook")
'获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1）
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="0" then
response.write "| "&linkname&" | "
%>
<%
if i mod 8=0 then response.write " "
i=i+1
end if
StarNodes = StarNodes + 1
wend
set objXML = nothing
%>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
j=1
StarNodes=0
strSourceFile = Server.MapPath("Word.xml")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.load(strSourceFile)
Set objRootsite = objXML.documentElement.selectSingleNode("guestbook")
'获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1）
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="2" and ischeck="0" then
response.write " | "
%>
<%
if j mod 7=0 then response.write " "
j=j+1
end if
StarNodes = StarNodes + 1
wend
set objXML = nothing
%>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
友情链接须知：提交您的链接请求并做好我站的链接，未通过审核前，贵站链接在待审区内，如未发现贵站有我站的链，我们将给予删除，同时我们会不定时检查链接情况。
本站文字链接代码：<a href='http://www.print128.com/' target=_blank>深圳设计印刷网</a>
本站图片链接代码：<a href='http://www.print128.com/' target=_blank><img border=0 src='http://www.print128.com/images/logo.gif' alt='本站是一家印刷公司网站，站内共设七大栏目：印刷设备/印刷价格/印刷设计/印刷技术/印刷包装技术/印刷报价留言板/文档上传。本公司经营项目有：企业宣传画册、宣传单张（彩页）、包装盒（彩盒）、手提袋（纸袋）、信封信纸、贺卡、彩色名片... ...等纸类设计印刷。'></a>
|
|
|
|
| |
|
|
|
|
|
|
