Sql="select top "&indexfriendlink&" link_url,link_logo,link_name,link_content,link_date from Ft_link where passed=0 order by link_id desc" Set Rs=Server.Createobject("adodb.recordset") Rs.open Sql,conn,1,1 if not Rs.Eof then do while not Rs.Eof linkurl=rs(0) linklogo=rs(1) linkname=rs(2) linkcontent=rs(3) linkdate=rs(4) if linklogo <>"" then imglink=" <td align=""center""> <a href="""&linkurl&""" target=""_blank""> <img src="""&linklogo&""" width=""40"" height=""31"" border=""0"" alt="""&linkname&"""> </a> </td>" else imglink=" <td align=""center""> <a href="""&linkurl&""" target=""_blank"">"&linkname&" </a> </td>" end if imglinklist=imglinklist+imglink Rs.movenext loop else imglinklist=" <td align=""center"" class=""disable_font"">暂时还没有友情链接！ </td>" end if Rs.Close:Set Rs=Nothing indexlink=imglinklist
