仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 615|回复: 9
打印 上一主题 下一主题

[学习教程] ASP网站制作之超等ASP年夜分页_我的类容我做主

[复制链接]
老尸 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:40:45 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天分页|分页<%
===================================================================
ShowMorePageASP版本
VersionHuangJM1.00
Codebymaomao
CreateDate2004-09-28
QQ:5144707
http://blog.csdn.net/maomaoysq
Writeformylover:HuangJM本程序能够无偿使用、修正,但请保存以上信息

function
本程序次要是对数据分页的部分举行了封装,而数据显现部分完整由用户自界说,
撑持URL多个参数:http://www.***.com/***.asp?aa=1&page=9&bb=2


Paramers:
PapgeSize界说分页每页的纪录数
GetCurPageNum前往以后页的纪录集数量此属性只读
GetRS前往经由分页的Recordset此属性只读
GetConn失掉数据库毗连
GetSQL失掉查询语句
InterfaceofClass
ShowPage显现分页导航条,独一的公用办法

#############类挪用样例#################
创立工具
SethjmPage=newShowMorePage
失掉数据库毗连
hjmPage.getconn=conn
sql语句
hjmPage.getsql="select*fromshop_bookswherenewsbook=1orderbybookiddesc"
设置每页的纪录条数据为20条,默许显现10条
hjmPage.pagesize=20
显现分页信息,可在恣意地位挪用,能够挪用屡次
hjmPage.showpage()
setrs=hjmPage.getrs()前往Recordset
显现数据入手下手
这里就能够自界说显现体例了
fori=1tohjmPage.GetCurPageNum以后页的纪录数量
response.writeleft(trim(rs("bookname")),13)&"...."
rs.movenext
next
显现数据停止
sethjmPage=nothing
#############类挪用样例#################
===================================================================
ConstBtn_First="<fontface=""webdings"">9</font>"界说第一页按钮显现款式
ConstBtn_Prev="<fontface=""webdings"">3</font>"界说前一页按钮显现款式
ConstBtn_Next="<fontface=""webdings"">4</font>"界说下一页按钮显现款式
ConstBtn_Last="<fontface=""webdings"">:</font>"界说最初一页按钮显现款式
ConstXD_Align="Center"界说分页信息对齐体例
ConstXD_Width="100%"界说分页信息框巨细
ClassShowMorePage
PrivateObj_Conn,Obj_Rs,Str_Sql,int_PageSize,Str_Errors,Int_CurPage,Str_URL,Int_TotalPage,Int_TotalRecord

=================================================================
PageSize属性
设置每页的分页巨细
=================================================================
PublicPropertyLetPageSize(intvalue)
IfIsNumeric(intvalue)Then
int_PageSize=CLng(intvalue)
Else
Str_Errors=Str_Errors&"PageSize的参数不准确"
ShowError()
EndIf
EndProperty
PublicPropertyGetPageSize
Ifint_PageSize=""or(not(IsNumeric(int_PageSize)))Then
PageSize=10
Else
PageSize=int_PageSize
EndIf
EndProperty
=================================================================
GetRS属性
前往分页后的纪录集
=================================================================
PublicPropertyGetGetRs()
ifInt_TotalRecord=0thenCallGetPage()
Ifnot(Obj_Rs.eofandObj_Rs.BOF)Then
ifInt_CurPage1then
ifInt_CurPage-1<Int_TotalPagethen
Obj_Rs.move(Int_CurPage-1)*PageSize
dimbookmark
bookmark=Obj_Rs.bookmark
else
Int_CurPage=1
endif
endif
EndIf
SetGetRs=Obj_Rs
EndProperty
=================================================================
GetCurPageNum属性
前往以后页的纪录集数量
=================================================================
PublicPropertyGetGetCurPageNum()
dimint_PageNum
int_PageNum=int_PageSize
ifInt_TotalRecord=0thenCallGetPage()
IfInt_CurPage>Int_TotalPageThen
Int_CurPage=Int_TotalPage
int_PageNum=Int_TotalRecord-(Int_TotalPage-1)*int_PageSize
ElseIfInt_CurPage=Int_TotalPageThen
int_PageNum=Int_TotalRecord-(Int_TotalPage-1)*int_PageSize
EndIf
GetCurPageNum=int_PageNum
EndProperty
================================================================
GetConn失掉数据库毗连

================================================================
PublicPropertyLetGetConn(sconn)
SetObj_Conn=sconn
EndProperty
================================================================
GetSQL失掉查询语句

================================================================
PublicPropertyLetGetSQL(svalue)
Str_Sql=svalue
EndProperty

==================================================================
Class_Initialize类的初始化
初始化以后页的值

==================================================================
</p>强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。
小女巫 该用户已被删除
沙发
发表于 2015-1-20 11:01:10 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
因胸联盟 该用户已被删除
板凳
发表于 2015-1-29 06:54:56 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
若天明 该用户已被删除
地板
发表于 2015-1-29 14:45:34 来自手机 | 只看该作者
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
冷月葬花魂 该用户已被删除
5#
发表于 2015-2-6 02:07:42 | 只看该作者
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
海妖 该用户已被删除
6#
发表于 2015-2-14 23:48:50 | 只看该作者
从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了
爱飞 该用户已被删除
7#
发表于 2015-3-4 10:45:44 | 只看该作者
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
小魔女 该用户已被删除
8#
发表于 2015-3-11 18:20:29 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
飘飘悠悠 该用户已被删除
9#
发表于 2015-3-19 06:53:05 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
再现理想 该用户已被删除
10#
发表于 2015-3-27 11:43:09 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-30 00:58

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表