|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件程序|分页|成绩<%
setrs=createobject("adodb.recordset")
rs.open"select*fromtable",conn,1,1
ifrs.eofthen
response.write"Norecords!"
else
ifnotisempty(request("page"))then
currentPage=cint(request("page"))
else
currentPage=1
endif
rs.pagesize=10
totalPut=rs.recordcount
totalPage=rs.pagecount
MaxPerPage=rs.pagesize
ifcurrentpage<1then
currentpage=1
endif
ifcurrentpage>totalPagethen
currentpage=totalPage
endif
ifcurrentPage=1then
showhead分页了局显现头,如共有几条几页纪录之类的东东
showContent显现该页纪录集
showfoot散布了局显现尾,如至别的页面间的链接等
else
if(currentPage-1)*MaxPerPage<totalPutthen
rs.move(currentPage-1)*MaxPerPage
showhead
showContent
showfoot
else
endif
endif
endif
subshowContent
dimi,j
i=1
dowhilenot(rs.eoforerr)
%>
在此输出单纪录显现形式
<%
ifi>=MaxPerPagethenexitdo
i=i+1
rs.movenext
loop
endsub
至别的页面的链接代码:
1、链接到上页、下页、首页和尾页
<%
IfcurrentPage1Then
Response.Write"<AHREF=show.asp>[第一页]</A>"
Response.Write"<AHREF=show.asp?Page="&(currentPage-1)&">[上一页]</A>"
EndIf
IfcurrentPagers.PageCountThen
Response.Write"<AHREF=show.asp?Page="&(currentPage+1)&">[下一页]</A>"
Response.Write"<AHREF=show.asp?Page="&totalPage&">[最初一页]</A>"
EndIf
%>
2、跳转至个中的任一页面
<formaction="show.asp"method="GET"align="right"style="margin-top:0px;margin-bottom:0px">
<%fori=1ton
response.write"<optionvalue="&i
ifcurrentpage=ithen
response.write"selected"
endif
response.write">"&i&"</option>"
next
response.write"</select>"
response.write"<inputclass=buttonfacetype=submitvalue=GOstyle=font-family:宋体;font-size:8pt;height:19>"
%>
3、链接到以后页入手下手的后十页
<%
forj=currentpage+1tocurrentpage+10
ifj>totalpagethenexitdo%>
<ahref="show.asp?page=<%=j%>"><%=j%></a>
<%
next
%></p>缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全 |
|