ASP编程：2个通用的ASP分页办法（数字情势和笔墨...
ASP脚本是采用明文（plaintext）方式来编写的。自己写了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
%>
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧
ASP编程：2个通用的ASP分页办法（数字情势和笔墨...
代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.
页:
[1]