静态分页(JavaScript)

来源:互联网 发布:java 类似jsp v 编辑:程序博客网 时间:2024/04/29 18:53
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

<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=/"javascript:show(1)/" title=/"首页/"><b>首页</b></a>&nbsp;&nbsp;"
              fcc=fcc+"<a href=/"javascript:show("+(crtpage-1)+")/" title=/"上一页/"><b>上一页</b></a>&nbsp;&nbsp;"
                      }
         else{
              fcc=fcc+"<a href=/"javascript:void(0)/" title=/"已经是首页了/">首页</a>&nbsp;&nbsp;"
              fcc=fcc+"上一页&nbsp;&nbsp;"
             }
            
         if(crtpage<totpage){
              fcc=fcc+"<a href=/"javascript:show("+(crtpage+1)+")/" title=/"下一页/"><b>下一页</b></a>&nbsp;&nbsp;"
              fcc=fcc+"<a href=/"javascript:show("+totpage+")/" title=/"最后一页/"><b>尾页</b></a>&nbsp;&nbsp;"
                             }
         else{
              fcc=fcc+"下一页&nbsp;&nbsp;"
              fcc=fcc+"<a href=/"javascript:void(0)/" title=/"已经是最后一页了/">尾页</a>"
             }
         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
%>


<<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
原创粉丝点击