<!-- #include file=conn.asp -->
<%

set rs = server.CreateObject("adodb.recordset")
rs.open "select * from KS_Link where FolderID = 25",conn,1,1 '此处FolderID为所调用的友情目录，查找KS_LabelFolder表可找到对应的FolderID
if not rs.eof then
 do while not rs.eof
  
 %>
 document.write("<a href=<%=rs("url")%> target=\"_blank\"><%=rs("sitename")%></a><BR>");
 <%
 rs.movenext
 loop

end if
CloseConn 
 %>

在需要调用的地方添加如下代码，并且可以使用ＣＳＳ控制，哈哈

<script language="javascript" src="/frendLink.asp"></script>