dim iPage For iPage=1 to rsano.Pagesize 'recno=(page-1)*rsano.pagesize+ipage记录编号计算公式 '循环记录Response.Write位置 rsano.MoveNext IF rsano.EOF Then Exit For End If Nextrecno=(page-1)*rsano.pagesize+ipage计算公式(当前页-1)乘以每页记录数加循环变量此公式来计算楼层。