ASP编程：2个通用的ASP分页办法（数字情势和笔墨...

只看该作者 · 发表于 2015-1-16 22:05:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

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>首页上一页"
else
response.write"<ahref="&filename&"?page=1>首页</a>"
response.write"<ahref="&filename&"?page="&CurrentPage-1&">上一页</a>"
endif
ifn-currentpage<1then
response.write"<fontcolor=999966>下一页尾页"
else
response.write"<ahref="&filename&"?page="&(CurrentPage+1)
response.write">下一页</a><ahref="&filename&"?page="&n&">尾页</a>"
endif
response.write"页次：<fontcolor=red>"&CurrentPage&"/"&n&"页"
response.write"转到：<inputtype=textname=pagesize=4maxlength=10class=smallInput

value="&currentpage&">"
response.write"<inputclass=buttonfacetype=submitvalue=Gotoname=cndok></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"["+Cstr(k)+"]"
else
response.write"["+"<ahref="&filename&"?page="+cstr(k)+">"+Cstr(k)+"</a>]"
endif
next
response.write""
endfunction
%>
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧

只看该作者 · 发表于 2015-1-16 23:49:41

代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

只看该作者 · 发表于 2015-1-20 12:17:52

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

只看该作者 · 发表于 2015-2-5 23:54:26

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

只看该作者 · 发表于 2015-2-14 09:28:06

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

只看该作者 · 发表于 2015-3-11 17:29:35

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

只看该作者 · 发表于 2015-3-19 03:46:48

跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

只看该作者 · 发表于 2015-3-27 07:09:33

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

		自动登录	找回密码
密码			立即注册

[学习教程] ASP编程：2个通用的ASP分页办法（数字情势和笔墨...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

ASP编程：2个通用的ASP分页办法（数字情势和笔墨...