仓酷云

标题: ASP教程之ASP 分页技能 [打印本页]

作者: 活着的死人 时间: 2015-1-16 22:18
标题: ASP教程之ASP 分页技能
缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。分页|技能效果
首页上十上一12345678910下一下十尾页转到___
页数:1/25页篇数:125
主文件nclass.asp
包括文件top.asp||bottom.asp||abbrword.asp||conn.asp
内容
---／-----------------------------------------------------------
nclass.asp
<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>

<%
subject:ASP分页技能

author:Stabx<shawl.qiu@gmail.com>

blog:http://btbtd.exblog.jp//http://my.opera.com/btbtd/

blogname:Phoenix.GI-P.GI

date:2006-4-19
rsn.PageCount/总页数
pageview/以后页数
DimI界说轮回变量
DimRPPRPP：指定每页显现的纪录数,
Dimpageview翻页变量
I=1从1入手下手
RPP=50每页显现50笔记录
pageview=CInt(Request("pageview"))读取URL页号
Dimrsn界说链接名
Setrsn=Server.CreateObject("ADODB.Recordset")创建一个rsn数据库查询
rsn.ActiveConnection=MM_conn_STRING这是DW的链接字符串
rsn链接体例
rsn.Source="SELECT*FROMarticleWHEREclassid="&request.QueryString("classid")&"andnclassid="&request.QueryString("nclassid")&"ORDERBYarticleidDESC"
rsn查询语句,SELECT一切列FROM表WHERE前提ORDERBY前提
rsn.CursorType=1游标属性
rsn.CursorLocation=2游标地位
rsn.LockType=1
界说数据库查询形式
rsn.Open()
翻开数据库链接
ifnotrsn.eofthen显现不为空的数据
endif
rsn.PageSize=RPP
界说每页显现纪录数
Ifpageview<=0Thenpageview=1假如pageview小于或即是0,前往值1
Ifpageview>rsn.PageCountThenpageview=rsn.PageCount假如pageview年夜于分页总数,前往分页末页值
rsn.AbsolutePage=pageview界说以后页码
SubShowPageInfo(tPageCount,cPageNo)界说子例程ShowPageInfo,显现页数和总页
Response.WritecPageNo&"/"&tPageCount&"页"显现以后页和总页数
EndSub
SubShowPageNavi(tPageCount,cPageNo)
界说子例程ShowPageNavi,显现分页号
IfcPageNo<1ThencPageNo=1
假如页数小于1,默许为1
IftPageCount<1ThentPageCount=1
IfcPageNo>tPageCountThencPageNo=tPageCount
DimNaviLength
NaviLength=10显现数字链接个数
DimI,StartPage,EndPage界说以后页,入手下手页,停止页
StartPage=(cPageNoNaviLength)*NaviLength+1为入手下手页赋值
ifpageview=1then判别是不是首页,假如是首页不增加链接,反之增加.
Response.Write"<fontcolor=""#CCCCCC"">首页</font>"显现没有增加链接热门的"首页"
Else
Response.Write"<ahref="&nc1_&rqsc_&nc2_&rqsnc_&nc3_&"1>首页</a>"首页链接
EndIf
If(cPageNoModNaviLength)=0ThenStartPage=StartPage-NaviLength
EndPage=StartPage+NaviLength-1
IfEndPage>tPageCountThenEndPage=tPageCount
IfStartPage>1Then向后挪动一分页,十页为一分页
Response.Write"<ahref="&nc1_&rqsc_&nc2_&rqsnc_&nc3_&(cPageNo-NaviLength)&">"&previous10_&"</a>"
Else
Response.Write"<fontcolor=""#CCCCCC"">"&previous10_&"</font>"
EndIf
Ifpageview1andpageview0Then后移一页
Response.Write"<ahref="&nc1_&rqsc_&nc2_&rqsnc_&nc3_&(pageview-1)&">"&previous1_&"</a>"
Else
Response.Write"<fontcolor=""#CCCCCC"">"&previous1_&"</font>"
EndIf
ForI=StartPageToEndPage
IfI=cPageNoThen
Response.Write"<b>"&I&"</b>"
Else
Response.Write"<ahref="&nc1_&rqsc_&nc2_&rqsnc_&nc3_&I&">"&I&"</a>"
EndIf
IfItPageCountThenResponse.Write""
Next
Ifpageviewrsn.PageCountandpageview0Then前移一页
Response.Write"<ahref="&nc1_&rqsc_&nc2_&rqsnc_&nc3_&(pageview+1)&">"&next1_&"</a>"
Else
Response.Write"<fontcolor=""#CCCCCC"">"&next1_&"</font>"
EndIf
IfEndPage<tPageCountThen向后挪动一分页,十页为一分页
Response.Write"<ahref="&nc1_&rqsc_&nc2_&rqsnc_&nc3_&(cPageNo+NaviLength)&">"&next10_&"</a>"
Else
Response.Write"<fontcolor=#CCCCCC>"&next10_&"</font>"
EndIf
ifrsn.PageCountpageviewthen判别是不是尾页
Response.Write"<ahref="&nc1_&rqsc_&nc2_&rqsnc_&nc3_&rsn.PageCount&">尾页</a>"
Else
Response.Write"<fontcolor=""#CCCCCC"">尾页</font>"
EndIf
EndSub
%>
<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htmlxmlns="http://www.w3.org/1999/xhtml">
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=utf-8"/>
<title>UntitledDocument</title>
</head>
<body>

<divclass="c"</div>
<scriptlanguage="JavaScript"type="text/JavaScript">

</script>
<divCLASS="center">
<formNAME="pageform"ID="pageform">
<%showPageNavirsn.PageCount,pageview%>
<selectNAME="menu1">
<%fori=1torsn.PageCount%>
<optionVALUE="<%="nclass.asp?classid="&rqsc_&"&nclassid="&rqsnc_&"&pageview="&i%>"
<%ifpageview=ithen%>selected<%endif%>>
第<%=i%>页
</option>
<%next%>
</select>
</form>
</div>
<%
Ifrsn.EOFORrsn.BOFThen
Else
ForI=1ToRPP
%>

<p/>
<%=rsn("dateandtime")%><ahref="<%=t1_&rsn("classid")&t2_&rsn("nclassid")&t3_&rsn("articleid")%>"><%=rsn("title")%></a>
<%
rsn.MoveNext
Ifrsn.EOFORrsn.BOFThenExitFor
Next
EndIf
%>
<divCLASS="center">
<formNAME="pageform"ID="pageform">
<%showPageInforsn.PageCount,pageview%>

<%showPageNavirsn.PageCount,pageview%>
<selectNAME="menu1">
<%fori=1torsn.PageCount%>
<optionVALUE="<%="nclass.asp?classid="&rqsc_&"&nclassid="&rqsnc_&"&pageview="&i%>"
<%ifpageview=ithen%>selected<%endif%>>
第<%=i%>页
</option>
<%next%>
</select>
</form>
<%=pageNum_%>:<%showPageInforsn.PageCount,pageview%>
<%=articleNum_%>:<%Response.Write(rsn.RecordCount)%><br/>
</div>

</body>
</html>
---／-----------------------------------------------------------
top.asp
<linkHREF="css.css"REL="stylesheet"TYPE="text/css">


<%
sethomelink
DimsiteinfoHomelink
DimsiteinfoHomelink_numRows
SetsiteinfoHomelink=Server.CreateObject("ADODB.Recordset")
siteinfoHomelink.ActiveConnection=MM_conn_STRING
siteinfoHomelink.Source="SELECT*FROMsiteinfo"
siteinfoHomelink.CursorType=0
siteinfoHomelink.CursorLocation=1
siteinfoHomelink.LockType=1
siteinfoHomelink.Open()
siteinfoHomelink_numRows=0
homeurl=siteinfoHomelink.Fields.Item("siteurl").Value
sitename=siteinfoHomelink.Fields.Item("sitename").Value
home="<ahref="&(siteinfoHomelink.Fields.Item("siteurl").Value)&">"&(siteinfoHomelink.Fields.Item("sitename").Value)&"</a>"
pageurl=homeurl&request.ServerVariables("URL")&"?"&request.ServerVariables("QUERY_STRING")
pagelink="<ahref="&pgeurl&">"&pageurl&"</a>"
%>
---／-----------------------------------------------------------
bottom.asp
<%
DimrsSiteinfo
DimrsSiteinfo_numRows
SetrsSiteinfo=Server.CreateObject("ADODB.Recordset")
rsSiteinfo.ActiveConnection=MM_conn_STRING
rsSiteinfo.Source="SELECT*FROMsiteinfo"
rsSiteinfo.CursorType=0
rsSiteinfo.CursorLocation=1
rsSiteinfo.LockType=1
rsSiteinfo.Open()
rsSiteinfo_numRows=0
%>
<divclass="center"><%=(rsSiteinfo.Fields.Item("project").Value)%>|<%=(rsSiteinfo.Fields.Item("sitecopyright").Value)%><ahref="<%=(rsSiteinfo.Fields.Item("siteurl").Value)%>"><%=(rsSiteinfo.Fields.Item("sitename").Value)%></a></div><br/>
<divclass="center"><%=siteFoundtime_%><%=(rsSiteinfo.Fields.Item("sitefoundtime").Value)%><%=siteAdmin_%><ahref="">mailto:<%=(rsSiteinfo.Fields.Item("siteadminemail").Value)%>"><%=(rsSiteinfo.Fields.Item("siteadmin").Value)%></div>
<%
rsSiteinfo.Close()
SetrsSiteinfo=Nothing
%>
---／-----------------------------------------------------------
abbrword.asp
<%
SiteInfomation
siteName_="绿色学院GreenInstitute"
siteUrl_="http://gi.2288.org:88/"
Generalword
welcomeShort_="接待到临"
siteAdmin_="站长:"
siteFoundtime_="开站日期:"
homeurl_="首页"
error
error_="<center>页面ID堕落,或文章已删除</center>"
errorA_="<center>文章ID堕落</center>"
errorN_="没有该篇"
nothing_="没有了"
nodata_="<center>没无数据</center>"
pageword
previous1_="上一"
next1_="下一"
previous_="上页"
next_="下页"
previousP_="上页"
nextP_="下页"
previous10_="上十"
next10_="下十"
previousA_="上篇"
nextA_="下篇"
previousD_="上一天"
nextD_="下一天"
previousY_="上年"
nextY_="下年"
previousW_="上礼拜"
nextW_="下礼拜"
today_="明天"
ArticlesColumn
columnClass_="主类:"
columnNclass_="子类:"
descriptworl
title_="题目"
article_="文章"
Categoryworld
hotHits_="抢手文章"
coldHits_="冷门文章"
newA_="比来更新"
show_="显现"
showAll_="一切文章"
pagearticles.asp
text_="注释"
hitsUp1_="点击:"
source_="来历:"
author_="作者:"
postDate_="宣布日期:"
sourceColumn_="所属栏目:"
pagelink_="页面链接:"
text_="注释:"
fashion_="抢手"
pagenclass.asp
nc1_="nclass.asp?classid="
nc2_="&nclassid="
nc3_="&pageview="
pageNum_="页数"
articleNum_="篇数"
pagedateview.asp
dat1="dateview/dateview.asp?dayview="
dat2="dateview.asp?dayview="
dv_=request.QueryString("dayview")
dvP1_=year(dv_)&"-"&month(dv_)&"-"&day(dv_)+1
dvM1_=year(dv_)&"-"&month(dv_)&"-"&day(dv_)-1
pageyearview.asp
yvE_="<center>没有该年份的数据</center>"
pagemonthview.asp
previousM_="上月"
nextM_="下月"
pageweekview.asp
weekA_="所属礼拜"
week_="礼拜"
pagetodayview.asp
tvv_="todayview.asp"
URLabbr.
up1_="../"
rqsc_=request.QueryString("classid")
rqsnc_=request.QueryString("nclassid")
rqs_=request.QueryString("articleid")
rqsdv_=request.QueryString("dayview")
articleid_="articles.asp?articleid="
articleid1_="articles1.asp?articleid="
t_="t.asp?nclassid="&nclassidSSS&"&articleid="&articleid
t1_="t.asp?classid="
t2_="&nclassid="
t3_="&articleid="
dvv_="dateview.asp?dayview="
yvv_="yearview.asp?yearview="
mvv_="monthview.asp?monthview="
wvv_="weekview.asp?weekview="
classid_="class.asp?classid="
nclassid_="nclass.asp?nclassid="
abbrid_="articles.asp?classid="&classid&"&nclassid="&nclassid&"&articleid="
abbrid1_="t.asp?classid="&classid&"&nclassid="&nclassid&"&articleid="

%>
---／-----------------------------------------------------------
conn.asp
<%
FileName="Connection_ado_conn_string.htm"
Type="ADO"
DesigntimeType="ADO"
HTTP="true"
Catalog=""
Schema=""
DimMM_conn_STRING
MM_conn_STRING="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("/data/data.mdb")
%>
---／-----------------------------------------------------------
无法实现跨操作系统的应用。当然这也是微软的理由之一，只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP，ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的；

作者: 飘灵儿 时间: 2015-1-19 07:27
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

作者: 活着的死人 时间: 2015-1-26 19:18
Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

作者: 变相怪杰 时间: 2015-2-4 20:37
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 简单生活 时间: 2015-2-10 08:18
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

作者: 若相依 时间: 2015-3-1 05:45
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

作者: 再现理想 时间: 2015-3-10 12:59
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

作者: 蒙在股里 时间: 2015-3-17 08:02
封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

作者: 老尸 时间: 2015-3-24 03:15
ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

欢迎光临仓酷云 (http://ckuyun.com/)