<%set objgbrs=Server.CreateObject("ADODB.Recordset")
  ssql="select top 8 * from cnscu_yl order by ttvv desc "
  objgbrs.open ssql,conn,1,1
if objgbrs.eof then
Response.write "<b>暂无友链</b>"
else
For i=1 to 8
if objgbrs("zt")="1" then
Response.write "<a href='youcl.asp?id=" & objgbrs("id") & "'>" & objgbrs("name") &"</a> "
else
Response.write "" & objgbrs("name") &" "
end if
objgbrs.Movenext
if objgbrs.EOF then Exit for
    Next
  End if
%>
<%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 完成时间： 2007-11-23  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%>