我在开发过程总结的一套实现常用功能的函数

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.cl***khome/mater_code1/tools/aaa.asp","Null")

'参数说明
'sqlstr: 将要查询的sql语句
'connstr: 数据库连接字符串
'PageSize: 数据集每页的记录数,PageSize="MAX"时不分页
'PageNum: 数据集中将要显示的页号
'beginField:在记录集中开始显示的字段位置
'EndField: 在记录集中结束显示的字段位置
'IDField: 用于给复选框的value赋值的字段在记录集中的位置，可以用于提交到其它页，其它页做处理的依据
' 如果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