<% '------------------------------------- '功能：显示符合条件的友情链接 '更新：2004-1-2 10:37 '作者：ITlearner '演示：http://www.itlearner.com/link/ '------------------------------------- %>

<%=WebName&ChannelName%> -- 用户自助申请、修改、查询，系统自动审核，自动排列！ 更多 | 申请

<% if not hxcache.ObjIsEmpty() then strjs=hxcache.value else dim rs set rs=hx.execute("select username,siteurl,sitename,sitelogo,siteintro,inp from CL_Link where inp>="&inpc&" order by inp desc") dim i,n,j,tdwidth i=1 n=1 j=1 dim strjs tdwidth=formatnumber(100/LineNum,1) strjs="" if rs.eof then strjs=strjs + "" else 'V1.5新加参数MaxLine if MaxLine = 0 then Do While Not rs.eof if i mod LineNum =1 then strjs=strjs + "" end if if i <= LineNum * LineLogo then strjs=strjs + "" else strjs=strjs + "" end if if i mod LineNum =0 then strjs=strjs + "" end if rs.MoveNext i=i+1 Loop else 'V1.5新加参数MaxLine的处理 'MaxLine不能小于LineNum if MaxLine <= LineLogo then MaxLine = LineLogo + 1 Do While Not rs.eof and i <= MaxLine * LineNum if i mod LineNum =1 then strjs=strjs + "" end if if i <= LineNum * LineLogo then strjs=strjs + "" elseif int(i/LineNum) = int(MaxLine-1) then if i mod LineNum < 8 then strjs=strjs + "" end if elseif i = MaxLine * LineNum then strjs=strjs + "" else strjs=strjs + "" end if if i mod LineNum =0 then strjs=strjs + "" end if rs.MoveNext i=i+1 Loop end if if i mod LineNum>0 then strjs=strjs + "" strjs=strjs + "" end if end if strjs=strjs + " 暂时还没有友情链接 " strjs=strjs + "" strjs=strjs + "" strjs=strjs + " " strjs=strjs + "" strjs=strjs + hx.htmlencode2(rs(2)) strjs=strjs + "" strjs=strjs + " " strjs=strjs + "" strjs=strjs + "" strjs=strjs + " " strjs=strjs + "" strjs=strjs + hx.htmlencode2(rs(2)) strjs=strjs + "" strjs=strjs + " " strjs=strjs + "更多链接>>" strjs=strjs + " " strjs=strjs + "" strjs=strjs + hx.htmlencode2(rs(2)) strjs=strjs + "" strjs=strjs + " " hxcache.value=strjs rs.close:set rs=nothing end if response.write strjs 'hxcache.DelCahe("js") %>

〖申请友情链接〗〖查询网站点击〗〖管理网站信息〗〖重获链接代码〗〖系统使用说明〗

<% CloseDatabase%>