怎么把数据库中的每条记录列表显示的时候前面加上序号呢

如何把数据库中的每条记录列表显示的时候前面加上序号呢？
如题，谢谢！

------解决方案--------------------
dim i
i=1
...
do while not rs.eof
i=i+1
rsponse.write (i)
rs.movenext
loop
...