最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
我在开发过程总结的一套实现常用功能的函数
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
Option Explicit
'===================================================
public function MyNowNumber()
MyNowNumber=year(now)& month(NOw) & day(NOw) & hour(NOw) & Minute(Now) & Second(Now)
end function
public function sDataGrid(SqlStr,ConnStr,PageSize,PageNum,beginField,EndField,IDField,HttpStr,PageInfo)'以表格形式显示数据
'这个函数本打算用来实现点击表头排序功能,可是后来总是随机性无故出错,所以就没在现用了,哪们高手可以看看
'DataGrid功能:
' 将数据以表格形式显出来,
' 根据需要可能确定显示的字段,
' 页号,每页显示的记录数
' 复选框绑定的字段
' 修改数据时所连接到的设定的网页,传递的参数名是Idfield
'调用实例 call DataGrid("SELECT * FROM mater_bcode","Driver={SQL Server};uid=sa;pwd=passed;database=cthpdb;server=scb-web",10,20,2,50,0,"http://www.clkhome/mater_code1/tools/aaa.asp","Null")
'参数说明
'sqlstr: 将要查询的sql语句
'connstr: 数据库连接字符串
'PageSize: 数据集每页的记录数,PageSize="MAX"时不分页
'PageNum: 数据集中将要显示的页号
'beginField:在记录集中开始显示的字段位置
'EndField: 在记录集中结束显示的字段位置
'IDField: 用于给复选框的value赋值的字段在记录集中的位置,可以用于提交到其它页,其它页做处理的依据
' 如果IDField<0 or IDField> rs.fields.count或不是数字 则不显示复选框
'HttpStr 修改记录时连接到的网页,传递的是IDField的值,如果 httpstr="0"则不显示修改连接
'PageInfo 确定是否显示"第1页,共1页"的提示,PageInfo="Null"时不显示
'返回值, 返回的是记录集的当前页号
on error resume next
dim conn,rs
'if isnumeric(pageSize)then rs.pageSize=pageSize
set conn=server.CreateObject ("adodb.connection")
set rs=server.CreateObject ("adodb.recordset")
Conn.open Connstr
rs.Open sqlstr,conn,1,3
-
上一个: 在VB组件中使用串缓冲 - 1
-
下一个: ASP组件中的安全问题 (转)
相关文章
- wps使用函数的方法 07-04
- Python递归函数定义与用法 06-05
- 如何学会创建并调用函数 05-18
- golang 函数中函数和方法有什么区别 05-13
- python socket函数中,send与sendall有什么区别 怎么使用 05-11
- wps表格中怎么使用函数 使用方法 04-17