我用ASP写的m行n列的函数,动态输出创建TABLE行列

　　  End If 
　　  If i Mod Cols = 0 Then 
　　   strr=strr&"  </tr>" & VbCrLf 
　　   strr=strr&"  <tr>" & vbCrLf 
　　  End If 
　　 Loop 
　　Else 
　　 strr=strr&"<td height="""&TableWidth&""" valign=""top"">目前没有记录集</td>" 
　　End if 
　　strr=strr&"  </tr>" & VbCrLf 
　　strr=strr&"</table>" & VbCrLf 
　　FormatCRtable=strr 
End Function 
%> 
代码还有很多不足,而且写的也不是很严谨，见笑了。
以后可以会改为Class
转自:http://jorkin.reallydo.com/article.asp?id=15