有好心人帮忙看看没

<%'读取记录
set rs=server.createobject("adodb.recordset")
rs.open "select * from [T_Role]",conn,1,1
do while not rs.eof
'显示你角色名和等级的排行,有必要你可以根据等级排行来排序
%>
<%=rs("F_RoLeName")%><%=rs("F_Level")%><%=rs("F_Type")%><%
rs.movenext
loop
rs.close  '关闭记录
set rs=nothing
conn.close
%>
上面的代码 怎么让它读到100数据库第100行就不再读了