|
<% 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 |