www.gusucode.com > QQ空间互踩整站源码asp网站源码程序 > QQ空间互踩整站源码asp网站源码程序/js.asp

    <!--#include file="conn.asp"-->
<%
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="<table border=0 cellpadding=0 cellspacing=0 align=center width=758>"

	if rs.eof then
		strjs=strjs + "<tr><td align=center>暂时还没有Qzone加入</td></tr>"
		strjs=strjs + "</table>"
	else
	'	strjs=strjs + "<table border=0 cellpadding=3 cellspacing=0 align=center width=760> "
		Do While Not rs.eof
			if i mod LineNum =1 then
				strjs=strjs + "<tr>"
			end if
			if i <= LineNum * LineLogo then
				strjs=strjs + "<td width="""&tdwidth&"%"" align=center>"
				strjs=strjs + "<a href=""http://"&hx.BaseUrl&"out.asp?username="&rs(0)&""" target=_blank>"
				strjs=strjs + "<img src="""&hx.htmlencode2(rs(3))&""" width=88 height=31 border=0 alt="""&hx.htmlencode2(rs(2))&" -> "&hx.htmlencode2(rs(4))&"""></a>"
				strjs=strjs + "</td>"
			else
				strjs=strjs + "<td width="""&tdwidth&"%"" align=center>"
				strjs=strjs + "<a href=""http://"&hx.BaseUrl&"out.asp?username="&rs(0)&""" target=_blank title="""&hx.htmlencode2(rs(2))&" -> "&hx.htmlencode2(rs(4))&""">"
				strjs=strjs + hx.htmlencode2(rs(2))
				strjs=strjs + "</a>"
				strjs=strjs + "</td>"	
			end if
			if i mod LineNum =0 then
				strjs=strjs + "</tr>"
			end if
			
			rs.MoveNext
			i=i+1
		Loop
		
		if i mod LineNum>0 then
		
			for j=1 to LineNum-(i mod LineNum)
			strjs=strjs + "<td></td>"
			next
			strjs=strjs + "</tr>"
		end if
	
		strjs=strjs + "</table>"
	end if
	
	hxcache.value=strjs
	rs.close:set rs=nothing
end if

response.write "document.write('"&strjs&"');"
'hxcache.DelCahe("js")
CloseDatabase
%>