<%
'-------------------------------------
'功能：顯示符合條件的友情鏈接的過程
'天天智能友情鏈接管理系統
'天天DV網制作 http://www.ttdv.cn
'博大網址庫http://www.ip126.com
'海納數據廣西http://www.idcgx.net
'可自由傳播和免費使用，但必須保留此完整版權信息
'本程序擷取了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 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
%>