<% function pageList() dim p,i if page<1 then page=1 end if if pagecount<1 then pagecount=1 end if pageList="" pageList=pageList & "" pageList=pageList & "

共有记录 "& RecordCount &" 个，共 "& pageCount &" 页

" if page=1 then pageList=pageList & " " else pageList=pageList & " " end if if page=1 then pageList=pageList & " " else pageList=pageList & " " end if if pagecount-page=0 then pageList=pageList & " " else pageList=pageList & " " end if pageList=pageList & "

" 'pagecount=2 p=int(page/pageLinkNum) if page mod pageLinkNum>0 then p=p+1 end if p=(p-1)*pageLinkNum+1 'response.write p 'response.end i=p+(pageLinkNum-1) if i> pagecount then i=pagecount end if if p>pageLinkNum then pageList=pageList & "[<<]" end if do while p<=i if p=page then pageList=pageList & "["&p&"]" else pageList=pageList & "["&p&"]" end if p=p+1 loop p=p-1 if p< pagecount then pageList=pageList & "[>>]" end if pageList=pageList & "

" end function %>