ASP编程：仿照PHP写的ASP分页
ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用<%分页程序
total_records总纪录数
everypage_records每页显现条数
current_page以后页数
url要传送的url，这里能够含有要传送的变量，好比"list.asp?"大概"list.asp?keyword=key&"
程序挪用对照复杂，不外仍是比PHP的贫苦，持续勉力中
subshow_page(total_records,everypage_records,current_page,url)
ifIsNumeric(total_records)then
total_records=Int(total_records)
else
total_records=0
endif
ifIsNumeric(everypage_records)then
everypage_records=Int(everypage_records)
ifeverypage_records<=0then
everypage_records=10
endif
else
everypage_records=10
endif
ifIsNumeric(current_page)then
current_page=Int(current_page)
else
current_page=1
endif
取总页数，即最初一页
iftotal_recordsmodeverypage_records=0then
last_page=Int(total_records/everypage_records)
else
last_page=Int(total_records/everypage_records)+1
endif
判别current_page是不是切合尺度,并附值给page
ifcurrent_page>=last_pagethen
page=last_page
elseifcurrent_page<=1then
page=1
else
page=current_page
endif
上一页
ifpage<=0then
prepg=0
else
prepg=page-1
endif
下一页
ifpage=last_pagethen
nextpg=0
else
nextpg=page+1
endif
本页入手下手纪录
firstcount=prepg*everypage_records
本页停止纪录
ifnextpg>=1then
lastcount=(nextpg-1)*everypage_records
else
lastcount=total_records
endif
入手下手分页导航条代码
pagenav=""
pagenav1=""
pagenav=pagenav&"显现第<b>"&firstcount&"-"&lastcount&"</b>笔记录共<b>"&total_records&"</b>笔记录"
pagenav1=pagenav1&"显现第<b>"&firstcount&"-"&lastcount&"</b>笔记录共<b>"&total_records&"</b>笔记录"
iflast_page>1then
当有前后页时
pagenav=pagenav&"<ahref="&url&"page=1>首页</a>"
pagenav1=pagenav1&"<ahref="&url&"page=1>首页</a>"
ifprepg>=1then
pagenav=pagenav&"<ahref="&url&"page="&prepg&">前页</a>"
pagenav1=pagenav1&"<ahref="&url&"page="&prepg&">前页</a>"
else
pagenav=pagenav&"前页"
pagenav1=pagenav1&"前页"
endif
ifnextpg>=1then
pagenav=pagenav&"<ahref="&url&"page="&nextpg&">后页</a>"
pagenav1=pagenav1&"<ahref="&url&"page="&nextpg&">后页</a>"
else
pagenav=pagenav&"后页"
pagenav1=pagenav1&"后页"
endif
pagenav=pagenav&"<ahref="&url&"page="&last_page&">尾页</a>"
pagenav1=pagenav1&"<ahref="&url&"page="&last_page&">尾页</a>"
pagenav=pagenav&"到第<inputtype=textname=text100id=text100value="&page&"size=3>页<inputtype=buttonname=button100value=go>"
pagenav=pagenav&"共"&last_page&"页"
pagenav1=pagenav1&"到第<inputtype=textname=text101id=text101value="&page&"size=3>页<inputtype=buttonname=button101value=go>"
pagenav1=pagenav1&"共"&last_page&"页"
endif
endsub
%>
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组
页:
[1]