静态分页 - 站长资源库


答案：<body onload="show(1)">
<form name="myform">
<table >
<tr>
<td id="abc">
</td>
</tr>
</table>
</form>
</body>
<%
a=""
for i=1 to 100
  a=a & i & "<br>"
next
call fread(a,10,"<br>")
%>

<%
function fread(aryName,fpage,nflag)'数组名，每页记录条数，分隔符号
'客户端分页程序(javascript)

  if aryName="" then
    aryName="暂无数据"& nflag
  end if
myCnt=split(aryName,nflag)
%>
 <script language='javascript'>
 <!--
 // 客户端分页程序
    var crtpage;
    var fpage=<%=fpage%>;
    var alljl=<%=UBound(myCnt)%>;
    subcat = new Array();
    var t;
        <%
          count = 0
          myCnt=split(aryName,nflag)
              For i = LBound(myCnt) To UBound(myCnt)-1
        %>
                  subcat[<%=count%>] = new Array("<%=myCnt(i)%>");
        <%
                  count = count + 1
              next
         if i mod fpage=0 then
            fzong=i\fpage
         else
            fzong=i\fpage+1
         end if
           %>
 var totpage=<%=fzong%>;

  function show(abcd){
      var fcont="<br>";
      var fcc="<br>";
      crtpage=abcd;
            if(abcd>totpage){
                 abcd=totpage;
                            }
            if(abcd<0){
                 abcd=1;
                      }
            if(((abcd-1)*fpage)+fpage>alljl){
                for(t=((abcd-1)*fpage);t<alljl;t++){
                   fcont=fcont+subcat[t]+"<br>" 
                                            }
             
                                                 }
           else{
                for(t=((abcd-1)*fpage);t<((abcd-1)*fpage)+fpage;t++){
                   fcont=fcont+subcat[t]+"<br>" 
                                            }
             
                                                 }

         if(crtpage>1){
              fcc=fcc+"<a href=>              fcc=fcc+"<a href=>                      }
         else{
              fcc=fcc+"<a href=>              fcc=fcc+"上一页&nbsp;&nbsp;"
             }
             
         if(crtpage<totpage){
              fcc=fcc+"<a href=>              fcc=fcc+"<a href=>                             }
         else{
              fcc=fcc+"下一页&nbsp;&nbsp;"
              fcc=fcc+"<a href=>             }
         fcc=fcc+"&nbsp;&nbsp;<B>页次：<font color=\"#0000ff\">"+abcd+"</font>/"+totpage+"&nbsp;&nbsp;"
         fcc=fcc+"<font color=\"#0000ff\">"+fpage+"</font></B> /页"

     abc.innerHTML=fcont+fcc;
     
     document.title="总页数："+totpage+";     每页 "+fpage+"条；    共  "+alljl+"条记录;   当前页：" +abcd+"。"
                    }

//-->
</script>
<%
end function
%>
上一个：弹出菜单（纵向和横向效果）
下一个：ASP网站如何取得在线用户的数量？
更多图片编程知识: