可以根据需要美化一下或者根据数据库进行操作 以下是table.asp <center> <font size=5 color=blue face="华文新魏"> 自动生成表格的函数，需要输入单元格数（total）和列数(rows),行数自动计算。

</font> <p><p><p><p><p><p> </center>

<% function tables(total,rows) response.write("<table width=""780"" border=""1"" align=""center"">") response.write("<tr>") i=0 do while i<total i=i+1 response.write("<td align=""center""><font size=4 color=red>"&i&"</font></td>") if i mod rows=0 then response.write("</tr><tr>") end if loop

response.write("</tr>") response.Write("</table><p>") end function %> <% tables 30,9 '调用实例 tables 50,10 tables 100,25 %> 以上是table.asp

顶一下,虽然我现在不用,

？？干啥用的

哈哈，看我这个，我输入的是数字，如果位数不够自动补0 比如最大数是100,那么小于10的会补成00x.小于99的会补成0xx 我也不知道有没有用，看版主发了一个循环表格的，我的方法和版主的不太一样， class.asp <% Class settable private x1,y1 Function setborder(x,y) x1=x y1=y End Function Function show() response.write "<table border='1' cellspacing='0' cellpadding='0'>" m=0 For i=1 To x1 response.write "<tr>" For j=1 To y1 m=m+1 m=string(int(len(x1*y1)-len(m)),"0")&m response.write "<td align=center>&nbsp;"&m&"&nbsp;<td>" Next response.write "</tr>" Next response.write "</table>" end function End class %> look.asp <!--#include file="class.asp"-->

<%

set d=new settable d.setborder 50,10 d.show()

%>

....好像没有用吧。。
我要10个单元格，分4行（列）
会不会有错误啊

没啥用 就是有很多人问

应该不会报错的

嘿嘿，我感觉也没有什么用，
一般如果加上数据循环，
我的在二个for后面再加上
if rs.eof then exit for
在第二层的next前面加上rs.movenext就可以了，
我感觉你的方法要好一些，

我的也是从数据库+循环中提炼的
呵呵
把我的 I&lt;TOTAL变成
DO WHILE NOT RS.EOF
在&lt;TD&gt;中加RS("xxxxx")
RS.MOVENEXT
就是数据库版本的了

不过放到论坛中这个比较直观一点
用的时候根据个人要求改一下就可以了

呵呵,我一会也发一个,