通过本文主要向大家介绍了asp 分页类,asp json类,asp page类,asp 类,艾恩asp无组件上传类等相关知识,希望对您有所帮助,也希望大家支持linkedu.com www.linkedu.com
名称: 叶子asp分页类
Name: ShowoPage(vbs class)
RCSfile: ReadMe.txt
Revision: 0.12.20051114.f
Author: Yehe(叶子)
Released: 2005-11-14 09:40:13
Descript: ASP分页类,支持access/mssql/mysql/sqlite
Contact: QQ:311673 MSN:myehe@msn.com GT:mmyehe@gmail.com
WebSite: http://www.yehe.org http://www.showo.com
------------------------------------------------
Licenses:
本程序遵循GPL协议.
协议原文地址:http://www.gnu.org/licenses/licenses.cn.html#GPL
------------------------------------------------
Thanks:
可洛: 感谢mssql分页核心部分
Arbiter: 感谢部分分页思路
才子: 感谢推广
foxty: 感谢分页思路
------------------------------------------------
Install:
1.具体调用方法可以看demo的asp文档.
2.mssql存储过程版的请先执行sp_Util_Page.sql文件添加存储过程.
3.sp调用方法:
exec sp_Util_Page 440000,4,10,''MID'',''MID,ip1,ip2,country,city'',''tbTempPage'',''1=1'',''mid asc''
记录条数(已有值:序外部赋值,0执行count),当前页数,每页记录数,主键,字段,表,条件(不需要where),排序(不需要order by,需要asc和desc字符)
如果不按主键排序,则排序赋值里面不能出现主键字符.
------------------------------------------------
Release:
0.12
1.取text字段类型bug修正
2.存储过程bug修正
3.代码修正
0.11
1.存储过程加了非主键排序下的分页
2.去掉了mssql的非存储过程版分页
0.10:
1.条件简化
2.存储过程优化
0.09:
1.排序判断部分优化
0.08:
1.vbs bug修正
0.07:
1.bug修正,包括vbs类和js
0.06Beta:
1.js浏览器兼容优化
2.类几个函数的bug修正
0.05Beta:
1.全面代码优化,mysql/sqlite支持
2.参数输入方式修改
0.04Beta:
1.做到调用代码一样适应多种数据库集成分页
2.js去掉了表单,支持静态提交
3.加上了存储过程
0.03Beta:
1.公开发布的显示为0.02,其实为0.03,分为ac版类,mssql版类发布
2.js的bug修正
3.写成了类,进一步方便调用
0.02Beta:
1.加上对mssql的支持
2.封装成了函数版,方便调用
3.js文件的优化
0.01Beta:
1.没有写成函数,只是找到了比较快的ac分页方法
2.分页样式用js显示
------------------------------------------------
File:
db/IP.mdb access测试数据库
db/IP mssql备份测试数据库
Cls_vbsPage.asp 分页类
Cls_jsPage.js js分页样式
sp_Util_Page.sql mssql存储过程
demoAC.asp ac分页调用示范
demoMSSQL.asp mssql调用示范
demoMSSQL_SP.asp mssql存储过程调用示范
Cls_vbsPage.asp
<%
Class Cls_vbsPage
Private oConn ''连接对象
Private iPagesize ''每页记录数
Private sPageName ''地址栏页数参数名
Private sDbType
''数据库类型,AC为access,MSSQL为SQL SERVER2000存储过程版,MYSQL为mysql,PGSQL为PostGreSql
Private iRecType ''记录总数(>0为另外取值再赋予或者固定值,0执行count设置存cookies,-1执行count不设置cookies)
Private sJsUrl ''Cls_jsPage.js的路径
Private sField ''字段名
Private sTable ''表名
Private sCondition ''条件,不需要where
Private sOrderBy ''排序,不需要order by,需要asc或者desc
Private sPkey ''主键,必写
Private iRecCount
''================================================================
'' Class_Initialize 类的初始化
''================================================================
Private Sub Class_Initialize
iPageSize=10
sPageName="Page"
sDbType="AC"
iRecType=0
sJsUrl=""
sField=" * "
End Sub
''================================================================
'' Conn 得到数据库连接对象
''================================================================
Public Property Set Conn(ByRef Value)
Set oConn=Value
End Property
''================================================================
'' PageSize 设置每一页记录条数,默认10记录
''================================================================
Public Property Let PageSize(ByVal intPageSize)
iPageSize=CheckNum(intPageSize,0,0,iPageSize,0)
End Property
''================================================================
'' PageName 地址栏页数参数名
''================================================================
Public Property Let PageName(ByVal strPageName)
sPageName=IIf(Len(strPageName)<1,sPageName,strPageName)
End Property
''================================================================
'' DbType 得到数据库类型
''================================================================
Public Property Let DbType(ByVal strDbType)
sDbType=UCase(IIf(Len(strDbType)<1,sDbType,strDbType))
End Property
''================================================================
'' RecType 取记录总数(>0为赋值或者固定值,0执行count设置存cookies,-1执行count不设置cookies适用于搜索)
''================================================================
Public Property Let RecType(ByVal intRecType)
iRecType=CheckNum(intRecType,0,0,iRecType,0)
End Property
''================================================================
'' JsUrl 取得Cls_jsPage.js的路径
''================================================================
Public Property Let JsUrl(ByVal strJsUrl)
sJsUrl=strJsUrl
End Property
''================================================================
'' Pkey 取得主键
''================================================================
Public Property Let Pkey(ByVal strPkey)
sPkey=strPkey
End Property
''================================================================
'' Field 取得字段名
''================================================================
Public Property Let Field(ByVal strField)
sField=IIf(Len(strField)<1,sField,strField)
End Property
''================================================================
'' Table 取得表名
''================================================================
Public Property Let Table(ByVal strTable)
sTable=strTable
End Property
''================================================================
'' Condition 取得条件
''================================================================
Public Property Let Condition(ByVal strCondition)
s=strCondition
sCondition=IIf(Len(s)>2," WHERE "&s,"")
End Property
''================================================================
'' OrderBy 取得排序
''================================================================
Public Property Let OrderBy(ByVal strOrderBy)
s=strOrderBy
sOrderBy=IIf(Len(s)>4," ORDER BY "&s,"")
End Property
''===============================
Name: ShowoPage(vbs class)
RCSfile: ReadMe.txt
Revision: 0.12.20051114.f
Author: Yehe(叶子)
Released: 2005-11-14 09:40:13
Descript: ASP分页类,支持access/mssql/mysql/sqlite
Contact: QQ:311673 MSN:myehe@msn.com GT:mmyehe@gmail.com
WebSite: http://www.yehe.org http://www.showo.com
------------------------------------------------
Licenses:
本程序遵循GPL协议.
协议原文地址:http://www.gnu.org/licenses/licenses.cn.html#GPL
------------------------------------------------
Thanks:
可洛: 感谢mssql分页核心部分
Arbiter: 感谢部分分页思路
才子: 感谢推广
foxty: 感谢分页思路
------------------------------------------------
Install:
1.具体调用方法可以看demo的asp文档.
2.mssql存储过程版的请先执行sp_Util_Page.sql文件添加存储过程.
3.sp调用方法:
exec sp_Util_Page 440000,4,10,''MID'',''MID,ip1,ip2,country,city'',''tbTempPage'',''1=1'',''mid asc''
记录条数(已有值:序外部赋值,0执行count),当前页数,每页记录数,主键,字段,表,条件(不需要where),排序(不需要order by,需要asc和desc字符)
如果不按主键排序,则排序赋值里面不能出现主键字符.
------------------------------------------------
Release:
0.12
1.取text字段类型bug修正
2.存储过程bug修正
3.代码修正
0.11
1.存储过程加了非主键排序下的分页
2.去掉了mssql的非存储过程版分页
0.10:
1.条件简化
2.存储过程优化
0.09:
1.排序判断部分优化
0.08:
1.vbs bug修正
0.07:
1.bug修正,包括vbs类和js
0.06Beta:
1.js浏览器兼容优化
2.类几个函数的bug修正
0.05Beta:
1.全面代码优化,mysql/sqlite支持
2.参数输入方式修改
0.04Beta:
1.做到调用代码一样适应多种数据库集成分页
2.js去掉了表单,支持静态提交
3.加上了存储过程
0.03Beta:
1.公开发布的显示为0.02,其实为0.03,分为ac版类,mssql版类发布
2.js的bug修正
3.写成了类,进一步方便调用
0.02Beta:
1.加上对mssql的支持
2.封装成了函数版,方便调用
3.js文件的优化
0.01Beta:
1.没有写成函数,只是找到了比较快的ac分页方法
2.分页样式用js显示
------------------------------------------------
File:
db/IP.mdb access测试数据库
db/IP mssql备份测试数据库
Cls_vbsPage.asp 分页类
Cls_jsPage.js js分页样式
sp_Util_Page.sql mssql存储过程
demoAC.asp ac分页调用示范
demoMSSQL.asp mssql调用示范
demoMSSQL_SP.asp mssql存储过程调用示范
Cls_vbsPage.asp
<%
Class Cls_vbsPage
Private oConn ''连接对象
Private iPagesize ''每页记录数
Private sPageName ''地址栏页数参数名
Private sDbType
''数据库类型,AC为access,MSSQL为SQL SERVER2000存储过程版,MYSQL为mysql,PGSQL为PostGreSql
Private iRecType ''记录总数(>0为另外取值再赋予或者固定值,0执行count设置存cookies,-1执行count不设置cookies)
Private sJsUrl ''Cls_jsPage.js的路径
Private sField ''字段名
Private sTable ''表名
Private sCondition ''条件,不需要where
Private sOrderBy ''排序,不需要order by,需要asc或者desc
Private sPkey ''主键,必写
Private iRecCount
''================================================================
'' Class_Initialize 类的初始化
''================================================================
Private Sub Class_Initialize
iPageSize=10
sPageName="Page"
sDbType="AC"
iRecType=0
sJsUrl=""
sField=" * "
End Sub
''================================================================
'' Conn 得到数据库连接对象
''================================================================
Public Property Set Conn(ByRef Value)
Set oConn=Value
End Property
''================================================================
'' PageSize 设置每一页记录条数,默认10记录
''================================================================
Public Property Let PageSize(ByVal intPageSize)
iPageSize=CheckNum(intPageSize,0,0,iPageSize,0)
End Property
''================================================================
'' PageName 地址栏页数参数名
''================================================================
Public Property Let PageName(ByVal strPageName)
sPageName=IIf(Len(strPageName)<1,sPageName,strPageName)
End Property
''================================================================
'' DbType 得到数据库类型
''================================================================
Public Property Let DbType(ByVal strDbType)
sDbType=UCase(IIf(Len(strDbType)<1,sDbType,strDbType))
End Property
''================================================================
'' RecType 取记录总数(>0为赋值或者固定值,0执行count设置存cookies,-1执行count不设置cookies适用于搜索)
''================================================================
Public Property Let RecType(ByVal intRecType)
iRecType=CheckNum(intRecType,0,0,iRecType,0)
End Property
''================================================================
'' JsUrl 取得Cls_jsPage.js的路径
''================================================================
Public Property Let JsUrl(ByVal strJsUrl)
sJsUrl=strJsUrl
End Property
''================================================================
'' Pkey 取得主键
''================================================================
Public Property Let Pkey(ByVal strPkey)
sPkey=strPkey
End Property
''================================================================
'' Field 取得字段名
''================================================================
Public Property Let Field(ByVal strField)
sField=IIf(Len(strField)<1,sField,strField)
End Property
''================================================================
'' Table 取得表名
''================================================================
Public Property Let Table(ByVal strTable)
sTable=strTable
End Property
''================================================================
'' Condition 取得条件
''================================================================
Public Property Let Condition(ByVal strCondition)
s=strCondition
sCondition=IIf(Len(s)>2," WHERE "&s,"")
End Property
''================================================================
'' OrderBy 取得排序
''================================================================
Public Property Let OrderBy(ByVal strOrderBy)
s=strOrderBy
sOrderBy=IIf(Len(s)>4," ORDER BY "&s,"")
End Property
''===============================