reload.asp

图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统

<%
'-------------------------------------
'功能：显示符合条件的友情链接的过程
'天天智能友情链接管理系统
'天天DV网制作 http://www.ttdv.cn
'电脑家园http://www.pc326.com
'文秘家园http://www.wm326.com
'博大网址库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
%>