一、先定义majie
<%
Dim majie%>
二、在while循环语句中加入majie=majie+1
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
majie=majie+1
%>
三、被循环的表格行里，加入输出majie
<%Response.Write majie%>
效果如图：
原文：http://blog.csdn.net/yypiaxi/article/details/20748921
