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 %>