|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。分页自己写了2个通用的ASP分页办法,供人人参考!
<%@Language=VBScript%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
dimcurrentpage界说以后页
dimfilename文件名
ConstMaxPerPage=20每页显现的纪录个数
dimtotalnumber纪录总数
filename="showpages.asp"
totalnumber=200设置纪录总数为200
ifnotisempty(request("page"))then
currentPage=cint(request("page"))
else
currentPage=1
endif
showpagestotalnumber,MaxPerPage,filename
%>
</BODY>
</HTML>
<%界说分页的函数,以totalnumber,maxperpage,filename作为函数的出口。
functionshowpages(totalnumber,maxperpage,filename)
dimn
iftotalnumbermodmaxperpage=0then
n=totalnumbermaxperpage
else
n=totalnumbermaxperpage+1
endif
response.write"<formmethod=Postaction="&filename&">"
response.write"<palign=center>纪录分页"
ifCurrentPage<2then
response.write"<fontcolor=999966>首页上一页</font>"
else
response.write"<ahref="&filename&"?page=1>首页</a>"
response.write"<ahref="&filename&"?page="&CurrentPage-1&">上一页</a>"
endif
ifn-currentpage<1then
response.write"<fontcolor=999966>下一页尾页</font>"
else
response.write"<ahref="&filename&"?page="&(CurrentPage+1)
response.write">下一页</a><ahref="&filename&"?page="&n&">尾页</a>"
endif
response.write"页次:<strong><fontcolor=red>"&CurrentPage&"</font>/"&n&"</strong>页"
response.write"转到:<inputtype=textname=pagesize=4maxlength=10class=smallInput
value="¤tpage&">"
response.write"<inputclass=buttonfacetype=submitvalue=Gotoname=cndok></span></p></form>"
endfunction
%>
--------------------------------------------------------------------------
<%@Language=VBScript%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
dimcurrentpage界说以后页
dimfilename文件名
ConstMaxPerPage=20每页显现的纪录个数
dimtotalnumber纪录总数
filename="showpages.asp"
totalnumber=200设置纪录总数为200
ifnotisempty(request("page"))then
currentPage=cint(request("page"))
else
currentPage=1
endif
showpagestotalnumber,MaxPerPage,filename
%>
</BODY>
</HTML>
<%界说分页的函数,以totalnumber,maxperpage,filename作为函数的出口。
functionshowpages()
dimn
if(totalnumbermodMaxPerPage)=0then
n=totalPutMaxPerPage
else
n=totalPutMaxPerPage+1
endif
ifn=1then
exitsub
endif
dimk
response.write"<palign=left>>>分页"
fork=1ton
ifk=currentPagethen
response.write"[<b>"+Cstr(k)+"</b>]"
else
response.write"[<b>"+"<ahref="&filename&"?page="+cstr(k)+">"+Cstr(k)+"</a></b>]"
endif
next
response.write"</p>"
endfunction
%>
SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 |
|