摘要:
使用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= 阅读全文