www.gusucode.com > 百度空间互踩联盟 1.0源码程序 > Fx_jsqq.asp
javastr="" javastr=javastr+"<TABLE height=87 cellSpacing=0 cellPadding=0 width=278 align=center border=0>" <!--#include file="conn.asp"--> <% px=request("px") n=request("n") if n="" then n=10 i=0 end if%> javastr=javastr+"<tr>" <% Set rs=Server.CreateObject("ADODB.RecordSet") if px<>"" then sql="select * from CL_Link order by "& px &" desc" set rs=conn.execute(sql) do while not rs.eof %> javastr=javastr+"<td height=\"22\" align=\"center\" style=\"BORDER-bottom: #999999 1px dotted\">" javastr=javastr+"<a href=\"/qzone/in.asp?id=<%=rs("username")%>\" title=\"百度空间互踩:<%=rs("sitename")%> 被踩:<%=rs("outc")%> \" target=\"_blank\"><img src=\"/qzone/<%=rs("sitelogo")%>\" border=\"0\" style=\"border:1px #FF9900 dotted\"></a>" javastr=javastr+"</td>" <%n=n-1 i=i+1 if n<1 then exit do rs.movenext if i mod 5=0 then %> javastr=javastr+"</tr><tr>" <% end if loop %> javastr=javastr+"</tr></table>" <% rs.close set rs=nothing %> document.write (javastr) <%end if%>