<%
'-------------------------------------
'功能：显示符合条件的友情链接的过程
'天天智能友情链接管理系统
'天天DV网制作 http://www.ttdv.cn
'博大网址库http://www.ip126.com

'可自由传播和免费使用，但必须保留此完整版权信息
'本程序撷取了ITlearner、博大网址库智能友情链接系统、飞
'越智能友情链接系统等优秀程序中的源代码，对他们的作者表示感谢
'-------------------------------------
Sub reloadlink()
	dim rs,ttlogo
	set rs=hx.execute("select username,tturl,ttname,ttlogo,ttinfo,inp,gd from tt_Link where (inp>="&inpc&" and IsVerify="&strTrue&") or (gd=1 and IsVerify="&strTrue&") order by top desc,inp desc")
	dim i,n,j,tdwidth,arrSQL
	i=1
	n=1
	j=1
	tdwidth=formatnumber(100/LineNum,1)	
	strjs="<table border=""0""  cellpadding=""3"" cellspacing=""0"" width=""100%"">"	
	if rs.eof then
		strjs=strjs + "<tr><td align=""center"">暂时还没有友情链接</td></tr>"
	else	
		arrSQL = rs.getrows(-1)
		'V1.5新加参数MaxLine
		if MaxLine = 0 then
			For i=0 to ubound(arrSQL,2)
				if i mod LineNum =0 then
					strjs=strjs + "<tr class=""tr1"">"
				end if
				if i < LineNum then
					strjs=strjs + "<td width="""&tdwidth&"%"">"		
				else
					strjs=strjs + "<td>"						
				end if	
					strjs=strjs + "<a href=""http://"&hx.BaseUrl&"ttout.asp?username="&arrSQL(0,i)&""" target=""_blank"">"
				if i < LineNum * LineLogo then
					strjs=strjs + "<img src="""&hx.htmlencode2(arrSQL(3,i))&""" width=88 height=31 border=0 alt="""&hx.htmlencode2(rs(2))&" -- "&hx.htmlencode2(arrSQL(4,i))&""">"
				else		
					strjs=strjs + hx.htmlencode2(arrSQL(2,i))
				end if
					strjs=strjs + "</a>"				
					strjs=strjs + "</td>"					
				if i mod LineNum =LineNum-1 then
					strjs=strjs + "</tr>"
				end if
				
			Next		

		else
			dim maxID
			if MaxLine < LineLogo then MaxLine = LineLogo	
			maxID = ubound(arrSQL,2)	
			if maxID > MaxLine * LineNum-1 then maxID= MaxLine * LineNum-1
			For i=0 to maxID
				if i mod LineNum =0 then
					strjs=strjs + "<tr class=""tr1"">"
				end if
				if i = 0 then 
					strjs=strjs + "<td  width="""&tdwidth&"%"">"		
				else
					strjs=strjs + "<td>"						
				end if
				if i < LineNum * LineLogo then
					strjs=strjs + "<a href=""http://"&hx.BaseUrl&"ttout.asp?username="&arrSQL(0,i)&""" target=""_blank"">"
				
                                     strjs=strjs + "<img src="""&hx.htmlencode2(arrSQL(3,i))&""" width=""88"" height=""31"" border=""0"" alt="""&hx.htmlencode2(arrSQL(2,i))&" -- "&hx.htmlencode2(arrSQL(4,i))&"""></a>"
					
				elseif int(i+1/LineNum) = int(MaxLine-1) then
						strjs=strjs + "<a href=""http://"&hx.BaseUrl&"ttout.asp?username="&arrSQL(0,i)&""" target=""_blank"">"				
						strjs=strjs + hx.htmlencode2(arrSQL(2,i))
						strjs=strjs + "</a>"	
				elseif i = MaxLine * LineNum-1 then
						strjs=strjs + "<a href=""http://"&hx.BaseUrl&"friendlink.asp"" target=""_blank"" class=""t"">更多链接>></a>"
				else		
					strjs=strjs + "<a href=""http://"&hx.BaseUrl&"ttout.asp?username="&arrSQL(0,i)&""" target=""_blank"">"				
					strjs=strjs + hx.htmlencode2(arrSQL(2,i))
					strjs=strjs + "</a>"
				end if		
					strjs=strjs + "</td>"
				if i mod LineNum =LineNum-1 then
					strjs=strjs + "</tr>"
				end if
			Next
		
		end if
			
			
			if i mod LineNum>0 then	
				for j=1 to LineNum-i mod LineNum
				strjs=strjs + "<td></td>"
				next
				strjs=strjs + "</tr>"
			end if	
		set arrSQL=nothing
	end if	
	strjs=strjs + "</table>"
	
	hxcache.value=strjs
	rs.close:set rs=nothing

End Sub
%>