| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
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
%>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
友情链接须知：提交您的链接请求并做好我站的链接，我们审核后，在4个小时以内做好贵站的链接。
链接形式：
文字链接－兴洲仪表 链接地址：http://www.xz-yb.com
图片链接－兴洲仪表 链接地址：http://www.xz-yb.com 链接图片路径(88*31)：http://www.xz-yb.com/link/logo.jpg
|
|
|
| |
|
|
|
|
|
|