www.gusucode.com > QQ空间互踩整站源码asp网站源码程序 > QQ空间互踩整站源码asp网站源码程序/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=\"Qzone互踩：<%=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%>