给你一个我常用的，这是我曾在一个网站中做友情链接中用到的
TRow=显示行数
TCol=显示列数
Function showFr(TRow,TCol)
    TRow=Cint(TRow)
    TCol=Cint(TCol)
    Response.Write("<table width='100%' border='0' cellspacing='5' cellpadding='5'>")
    Set Rs=Conn.Execute("Select Top "&TRow*TCol&" * From Fr")
    If Not Rs.Eof Then
    i=0
    Do While Not Rs.Eof
    If (i Mod TCol)=0 Then
        Response.Write("<tr>")
    End If      '如果显示到一定的列数则换行显示
       Response.Write("<td align='center' bgcolor='#F0F0F0'><a href='"&Rs("Link")&"' target='_blank'>"&Rs("SiteName")&"</a></td>")
    Rs.MoveNext
    i=i+1    
    If (i Mod TCol)=0 Then
        Response.Write("</tr>")        
    End If  '如果显示到一定的列数则换行显示
    Loop     
        If (i Mod TCol)<>0 Then        
            a=TCol-(i Mod TCol)                
            For j=1 To a
                Response.Write("<td align='center' bgcolor='#F0F0F0'>&nbsp;</td>")
            Next
        Response.Write("</tr>")    
        End If    '如果记录集全部数据显示完，但表格的完整性还缺少单元格则补齐
    End If
    Response.Write("</table>")
End Function
这个函数变通一下还可以写成分页的

楼上的谢谢了.能不能把以上代码的<% %> 也补全? 拜托了.. 本人是菜鸟.... 麻烦你啦. 小弟感激不尽!!

可以单独拆出来这样用
<%
    TRow=4'要显示的行数
    TCol=4'要显示的列数
    Response.Write("<table width='100%' border='0' cellspacing='5' cellpadding='5'>")
    Set Rs=Conn.Execute("Select Top "&TRow*TCol&" * From Fr")
    If Not Rs.Eof Then
    i=0
    Do While Not Rs.Eof
    If (i Mod TCol)=0 Then
        Response.Write("<tr>")
    End If      '如果显示到一定的列数则换行显示
       Response.Write("<td align='center' bgcolor='#F0F0F0'><a href='"&Rs("Link")&"' target='_blank'>"&Rs("SiteName")&"</a></td>")
    Rs.MoveNext
    i=i+1    
    If (i Mod TCol)=0 Then
        Response.Write("</tr>")        
    End If  '如果显示到一定的列数则换行显示
    Loop     
        If (i Mod TCol)<>0 Then        
            a=TCol-(i Mod TCol)                
            For j=1 To a
                Response.Write("<td align='center' bgcolor='#F0F0F0'>&nbsp;</td>")
            Next
        Response.Write("</tr>")    
        End If    '如果记录集全部数据显示完，但表格的完整性还缺少单元格则补齐
    End If
    Response.Write("</table>")
%>
我想不做函数的形式你更容易理解点，这样写的已经很全面了。再不懂加我qq