标题: ASP网站制作之静态分页 [打印本页] 作者: 深爱那片海 时间: 2015-2-3 23:41 标题: ASP网站制作之静态分页 ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。分页|静态|分页|静态 <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>"
}