| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
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
%>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
友情链接须知：提交您的链接请求并做好我站的链接，我们审核后，在3个工作日以内做好贵站的链接。
链接形式：
文字链接－
电话录音或呼叫中心 链接地址：http://www.cti-cn.com/
图片链接－
电话录音
链接地址：http://www.cti-cn.com/
链接图片路径(88*31)：http://www.cti-cn.com/images/logo.gif
管理员Email:web@gaoquan.com |
|
|
| |
|
|
|
|
|
|
