仓酷云

标题: ASP网站制作之ASP项目中的大众翻页模块 [打印本页]

作者: 蒙在股里 时间: 2015-1-16 23:34
标题: ASP网站制作之ASP项目中的大众翻页模块
强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。翻页|项目在年夜型的ASP项目中，良多的页面都触及到翻页功效。假如每一个页面都写一个翻页的程序的话，如许的事情即下降了事情效力，也倒霉于工程的模块化，不克不及使代码重用。因而，把翻页如许的功效模块化是很有需要的。
计划办法：
1、挪用该模块时，只必要传送纪录集和每页显现的纪录的条数；
2、能够点击链接举行翻页，也能够间接输出页码，回车后翻页；
3、不要思索文件名，程序的每次翻页都能在以后页面。
想分明了下面3个成绩，我们的大众翻页模块就能够下手了。
<%
+++++++++++++++++++++++++++++++++++++
◆模块称号：大众翻页模块
◆文件名：TurnPage.asp
◆传进参数：Rs_tmp(纪录集),PageSize(每页显现的纪录条数)
◆输出：纪录集翻页显现功效
+++++++++++++++++++++++++++++++++++++

SubTurnPage(ByRefRs_tmp,PageSize)Rs_tmp纪录集PageSize每页显现的纪录条数;
DimTotalPage总页数
DimPageNo以后显现的是第几页
DimRecordCount总纪录条数
Rs_tmp.PageSize=PageSize
RecordCount=Rs_tmp.RecordCount
TotalPage=INT(RecordCount/PageSize*-1)*-1
PageNo=Request.QueryString("PageNo")
间接输出页数跳转；
IfRequest.Form("PageNo")""ThenPageNo=Request.Form("PageNo")
假如没有选择第几页，则默许显现第一页；
IfPageNo=""thenPageNo=1
IfRecordCount0then
Rs_tmp.AbsolutePage=PageNo
EndIf

猎取以后文件名，使得每次翻页都在以后页面举行；
DimfileName,postion
fileName=Request.ServerVariables("script_name")
postion=InstrRev(fileName,"/")+1
获得以后的文件称号，使翻页的链接指向以后文件；
fileName=Mid(fileName,postion)
%>
<tableborder=0width=100%>
<tr>
<tdalign=left>总页数：<fontcolor=#ff3333><%=TotalPage%></font>页
以后第<fontcolor=#ff3333><%=PageNo%></font>页</td>
<tdalign="right">
<%IfRecordCount=0orTotalPage=1Then
Response.Write"首页|前页|后页|末页"
Else%>
<ahref="<%=fileName%>?PageNo=1">首页|</a>
<%IfPageNo-1=0Then
Response.Write"前页|"
Else%>
<ahref="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
<%EndIf

IfPageNo+1>TotalPageThen
Response.Write"后页|"
Else%>
<ahref="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
<%EndIf%>

<ahref="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
<%EndIf%></td>
<tdwidth=95>转到第
<%IfTotalPage=1Then%>
<inputtype=textname=PageNosize=3readonlydisabledstyle="background:#d3d3d3">
<%Else%>
<inputtype=textname=PageNosize=3value=""title=请输出页号,然后回车>
<%EndIf%>页
</td>
</tr>
</table>
<%EndSub%>

固然，人人能够把翻页的链接做成图片按钮，如许的话也面就加倍美妙了。

挪用办法:
1、在程序入手下手或要利用翻页的中央包括翻页模块文件；
2、界说变量：RowCount，每页显现的纪录条数
3、挪用翻页历程：CallTurnPage(纪录集,RowCount)
4、在DoWhile轮回输入纪录集的前提中加上"RowCount>0"前提
5、在轮回停止"Loop前"加上：RowCount=RowCount-1

-----------------------------------------------------
挪用典范：
文件名：News.asp

<%
DimConn，Rs_News
SetConn=server.CreateObject("ADODB.CONNECTION")
Conn.Open"cpm","cpm","cpm"

DimSql
Sql="Select*fromNews"
SetRs_News=Server.CreateObject("ADODB.RECORDSET")
Rs_News.OpenSql,Conn,1,3猎取的纪录集

大众翻页模块入手下手%>

<%
DimRowCount
RowCount=10每页显现的纪录条数
CallTurnPage(Rs_News,RowCount)
大众翻页模块停止%>

<tablewidth=100%>
<tr>
<td>旧事编号</td>
<td>旧事题目</td>
<td>公布日期</td>
<tr>
<%
IfNotRs_News.eof
DowhileNotRs_News.eofandRowCount>0
%>
<tr>
<td><%=Rs_News("ID")%></td>
<td><%=Rs_News("Name")%></td>
<td><%=Rs_News("Date")%></td>
<tr>
<%
RowCount=RowCount-1
Rs_News.MoveNext
Loop
EndIf
%>

</p>使用cdonts，可以发送、查看邮件，实现webmail的功能。结合wsh，可以实现对nt主机的管理，如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等，就像管理本地机一样方便。

作者: 再见西城 时间: 2015-1-20 09:56
它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

作者: 兰色精灵 时间: 2015-1-24 16:58
ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

作者: 若相依 时间: 2015-2-4 06:32
Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

作者: 第二个灵魂 时间: 2015-2-9 17:45
弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

作者: 只想知道 时间: 2015-2-27 13:09
代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

作者: 精灵巫婆 时间: 2015-3-9 05:16
ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

作者: 简单生活 时间: 2015-3-16 20:54
用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

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

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