摘要： 使用asp作东西已经比较多了，但是一直没有注意这个东西，今天就花了一点时间写了一些，方便以后使用。<%SUB ListPageMenu(objRs,intrsPageSize)Dim rsTotal,rsPageSize,rsPageCountIf NOT ISObject(objRs) Then Exit Sub:End IfIf NOT IsNumeric(rsPageSize) Then Exit Sub:End IFIf objRs.Eof And objRs.Bof Then EXIT SUB:END IFobjRs.PageSize=intrsPageSizersTotal= 阅读全文