<%
dim rs
set rs=hx.execute("select username,siteurl,sitename,sitelogo,siteintro,inp from CL_Link where inp>="&inpc&" and IsVerify="&strTrue&" order by inp desc")
dim i,n,j,tdwidth,arrSQL,flag
i=1
n=1
j=1
dim strjs
tdwidth=formatnumber(100/LineNum,1)
strjs="
"
if rs.eof then
strjs=strjs + "| 暂时还没有友情链接 |
"
flag = 0
else
arrSQL = rs.getrows(-1)
flag = 1
end if
rs.close:set rs=nothing
if flag = 1 then
For i=0 to ubound(arrSQL,2)
if i mod LineNum = 0 then
strjs=strjs + ""
end if
if i < LineNum then
strjs=strjs + "| "
else
strjs=strjs + " | "
end if
strjs=strjs + ""
if i < LineNum * LineLogo then
strjs=strjs + "![]() "
else
strjs=strjs + hx.htmlencode2(arrSQL(2,i))
end if
strjs=strjs + ""
strjs=strjs + " | "
if i mod LineNum = LineNum-1 then
strjs=strjs + "
"
end if
Next
if i mod LineNum>0 then
for j=1 to LineNum-i mod LineNum
strjs=strjs + " | "
next
strjs=strjs + ""
end if
end if
strjs=strjs + "
"
response.write strjs
%>