<%
'on error resume next
'Server.CreateObject("MSXML2.DOMDocument")
set xmldoc=server.createObject("Microsoft.XMLDOM")
xmldoc.async=false
xmldoc.load(Server.Mappath("xml/lnklist.xml"))
'xmldoc.load("http://www.cn-21.com/freelink/xml/lnklist.xml")
'xmldoc.load("http://localhost:2000/freelink//xml/lnklist.xml")
int linetd
lintd=7
set root=xmldoc.documentElement
querystr="./Lnk[LnkAvai='Y']"
set selnodes=root.selectNodes(querystr)
j=selnodes.length
lines=j/lintd
if instr(lines,".")<>0 then
lines=int(lines)
lines=lines+1
end if
tmplnkurl=""
tmplnkname=""
tmplnktitle=""
for i = 1 to j
response.write "| "
tmplnkname=selnodes.item(i-1).childNodes.item(2).text
tmplnkurl=selnodes.item(i-1).childNodes.item(3).text
tmplnktitle=selnodes.item(i-1).childNodes.item(4).text
if tmplnkname="" then tmplnkname=" "
response.write ""
response.write tmplnkname
response.write ""
response.write " | "
if instr(i/lintd,".")=0 then
response.write "
