如何用函数来求（名次、及格人数、考试人数、及格率）

order by 分数 desc
dim 名次
名次=1
do while not rs.eof

response.write "名次："&名次
response.write "姓名："&姓名
if rs("分数")>59 then 名次=名次+1 '只算及格学生的名次。
rs.movenext
loop
response.write "考试人数："&rs.recordcount
response.write "及格率："&(名次/rs.recordcount)