彦君爱心园博客

rs.pagesize=MaxPerPage   '得到每页数  
  mpage=rs.pagecount           '得到总页数  
  rs.move     (currentPage-1)*MaxPerPage  
  allshu=rs.recordcount  
   
   
   
  lb=lb&"<table   border=""0""   width=""100%""   cellspacing=""0""   cellpadding=""0""><tr><td   width=""15%""   nowrap>页次：<b>"&currentPage&"</b>/<b>"&mpage&"</b>   每页<b>"&MaxPerPage&"</b>   软件数<b>"&allshu&"</b></td><td   width=""65%""   nowrap><p   align=""center"">"  
  pageno=currentPage  
  if   cint(pageno)>1   then  
  lb=lb&"<a   href=../soft/"&tid&"_1.htm   title=""最前页"">"  
  end   if  
  lb=lb&"<font   face=""Webdings"">9</font></a>&nbsp;"  
  if   cint(pageno)>1   then  
  lb=lb&"<a   href=../soft/"&tid&"_"&pageno-1&".htm   title=""上一页"">"  
  end   if  
  lb=lb&"<font   face=""Webdings"">7</font></a>"  
  pp=cint(pageno)-2                          
      if   pp<1   then                          
      pp=1                          
      end   if                          
  for   pno=pp   to   mpage  
  p=p+1  
  if   pno*1=cint(pageno)*1   then  
  lb=lb&"&nbsp;<font   color=""#FF0000"">["&pno&"]</font>"  
  else  
  lb=lb&"&nbsp;<a   href=../soft/"&tid&"_"&pno&".htm>["&pno&"]</a>"  
  end   if                                                                                                                                                  
  if   p>=5   then   exit   for                          
  next  
  lb=lb&"&nbsp;"  
  if   cint(pageno)<   mpage   then  
  lb=lb&"<a   href=../soft/"&tid&"_"&pageno+1&".htm   title=""下一页"">"  
  end   if  
  lb=lb&"<font   face=""Webdings"">8</font></a>&nbsp;"  
  if   cint(pageno)<   mpage   then  
  lb=lb&"<a   href=../soft/"&tid&"_"&mpage&".htm   title=""最后页"">"  
  end   if  
  lb=lb&"<font   face=""Webdings"">:</font></a></p></td><td   width=""18%""   nowrap><table   cellpadding=""0""   cellspacing=""0"">"  
  lb=lb&"<form   onsubmit=""window.location=this.KKK2.options[this.KKK2.selectedIndex].value;   return   false;"">"  
  lb=lb&"<tr><td   nowrap>到<select   name=""select""   onchange=""javascript:window.location.href=this.options[this.selectedIndex].value"">"  
        for   i=1   to   mpage  
              selected=""  
              if   currentpage=i   then  
                      selected="   selected"  
              end   if  
          lb=lb&"<option   value=../soft/"&tid&"_"&i&".htm"&selected&">"&i&"</option>"  
        next  
  lb=lb&"</select>页</td></td></tr></form></table></td></tr></table>"