%
'-------------------------------------
'功能:显示符合条件的友情链接
'作者:ITlearner
'演示:http://www.itlearner.com/link/
'-------------------------------------
%>
<%=WebName&ChannelName%> -- 用户自助申请、修改、查询,系统自动审核,自动排列!
<%
dim strjs
set hxcache=new cls_cache
hxcache.Name="js"
if not hxcache.ObjIsEmpty() then
strjs=hxcache.value
else
%><%
reloadlink()
end if
set hxcache = nothing
response.write strjs
'hxcache.DelCahe("js")
%>