仓酷云

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

[学习教程] ASP网页设计分页类

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

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

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

x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.分页依据ado记录集主动天生列表和分页,必要师长教师成recordset:rs_Grid
<%
===========================================================
分页类,大致头脑由.Net的DataGrid的利用体例而来
功效:主动天生datagrid列表头和内容,和分页栏
依据网友bubuy(彭湃NoMoneyToBuy)得分页函数修正成类
利用示例:
dimDG
dimUrl
dimFld(2)
dimFldName(2)
dimFldWidth(2)
Fld(0)="ID"
Fld(1)="Title"
Fld(2)="Input_Date"
FldName(0)="编号"
FldName(1)="题目"
FldName(2)="录进日期"
FldWidth(0)="10%"
FldWidth(1)="60%"
FldWidth(2)="30%"
setDG=newDataGrid
DG.DataSource=rs_Grid
DG.titleColor="#DCE19D"
DG.PageSize=1
DG.Fields=Fld
DG.FieldsName=FldName
DG.fieldWidth=FldWidth
Url=request.ServerVariables("URL")&"?Param=testParameter"//存在原有参数的情形
DG.Url=Url
DG.Generate()
=============DesignedBywindancer2003.10.17===============
ClassDataGrid
Privateobj_RecordSetrecordset
Privateint_PageSize每页记录数
两个数组保留数据库字段名和中文称号
PrivateArr_Field数据库字段
PrivateArr_FieldName字段显现称号()
PrivateArr_FieldWidth字段显现宽度
Privatestr_TitleColor表头色彩#efffce
Privatestr_Url哀求的URL
Privatestr_Error堕落信息

PrivateSubClass_Initialize()
int_PageSize=10
str_TitleColor="#ffffff"
str_Error=""
EndSub
===============================================================
属性信息
================================================================
-----------------------------------
数据源,临时只撑持RecordSet
-----------------------------------
PublicPropertyLetdataSource(obj)
setobj_RecordSet=obj
EndProperty

PublicPropertyLetpageSize(intvalue)
int_PageSize=intvalue
EndProperty

PublicPropertyGetpageSize
PageSize=int_Categoryid
EndProperty

PublicPropertyLetFields(Arr)
Arr_Field=Arr
EndProperty

PublicPropertyGetFields
Fields=Arr_Field
EndProperty

PublicPropertyLetfieldsName(Arr)
Arr_FieldName=Arr
EndProperty

PublicPropertyGetfieldsName
fieldsName=Arr_FieldName
EndProperty

PublicPropertyLetfieldWidth(Arr)
Arr_FieldWidth=Arr
EndProperty

PublicPropertyGetfieldWidth
fieldWidth=Arr_FieldWidth
EndProperty

PublicPropertyLettitleColor(strvalue)
str_TitleColor=strvalue
EndProperty

PublicPropertyGettitleColor
titleColor=str_TitleColor
EndProperty
-----------------------------------------------------
这个属性是为了保留Url路径
假如以后路径带有参数,那末就用&Page=x,不然就用?Page=x
------------------------------------------------------
PublicPropertyLetUrl(Strvalue)
str_Url=Strvalue
EndProperty

PublicPropertyGetUrl
Url=str_Url
EndProperty

================================================================
办法
================================================================
----------------------------------------------------------------
显现以后毛病
----------------------------------------------------------------
PrivateSubShowLastError()
response.Write(str_Error)
response.End()
EndSub
----------------------------------------------------------------
Generate()
使用ado分页
-----------------------------------------------------------------
PublicSubGenerate()
----反省参数--------------------------
Check
---------变量声明-----------------------------------
DimFieldCount显现字段
FieldCount=Ubound(Arr_Field)+1
DimCurrentPage以后页
DimPgCount总页数
DimRecCount纪录数,原本用rs.recordCount能够取到,保留上去效力会对照高
DimHasOtherParamURL是不是包括其他参数
DimPageParam以后分页Url参数
DimPageInfomation以后分页形态信息
DimSeperator设置分开符
Seperator=""
-------------处置Url参数---------------------------
ifinstr(str_Url,"?")>0then
HasOtherParam=true
PageParam="&Page="
else
HasOtherParam=false
PageParam="?Page="
endif
----------猎取以后页--------------------------------
CurrentPage=request.QueryString("Page")
ifCurrentPage=""then
CurrentPage=1
else
CurrentPage=Cint(CurrentPage)
endif
-----------处置数据源--------</p>ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用
不帅 该用户已被删除
沙发
发表于 2015-1-20 09:56:51 | 只看该作者
不能只是将它停留在纸上谈兵的程度上。
活着的死人 该用户已被删除
板凳
发表于 2015-1-25 22:27:42 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
变相怪杰 该用户已被删除
地板
发表于 2015-2-4 06:36:25 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
蒙在股里 该用户已被删除
5#
发表于 2015-2-9 17:46:31 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
透明 该用户已被删除
6#
发表于 2015-2-27 13:10:17 | 只看该作者
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
小妖女 该用户已被删除
7#
发表于 2015-3-9 05:36:15 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
老尸 该用户已被删除
8#
发表于 2015-3-16 20:55:10 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
山那边是海 该用户已被删除
9#
发表于 2015-3-23 00:54:48 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-24 03:57

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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