宁波大榭开发区投资控股有限公司

<%@LANGUAGE="VBSCRIPT"%> <% Dim rsBrowse Dim rsBrowse_numRows Set rsBrowse = Server.CreateObject("ADODB.Recordset") rsBrowse.ActiveConnection = MM_asp2htm_STRING rsBrowse.Source = "SELECT ID_News, N_Title, N_FilePath, N_Date,T_TypeName ,N_shibie,N_Type_ID FROM T_News INNER JOIN T_Type ON T_News.N_Type_ID=T_Type.ID_Type ORDER BY N_Date DESC" rsBrowse.CursorType = 0 rsBrowse.CursorLocation = 2 rsBrowse.LockType = 1 rsBrowse.Open() rsBrowse_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsBrowse_numRows = rsBrowse_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rsBrowse_total Dim rsBrowse_first Dim rsBrowse_last ' set the record count rsBrowse_total = rsBrowse.RecordCount ' set the number of rows displayed on this page If (rsBrowse_numRows < 0) Then rsBrowse_numRows = rsBrowse_total Elseif (rsBrowse_numRows = 0) Then rsBrowse_numRows = 1 End If ' set the first and last displayed record rsBrowse_first = 1 rsBrowse_last = rsBrowse_first + rsBrowse_numRows - 1 ' if we have the correct record count, check the other stats If (rsBrowse_total <> -1) Then If (rsBrowse_first > rsBrowse_total) Then rsBrowse_first = rsBrowse_total End If If (rsBrowse_last > rsBrowse_total) Then rsBrowse_last = rsBrowse_total End If If (rsBrowse_numRows > rsBrowse_total) Then rsBrowse_numRows = rsBrowse_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsBrowse_total = -1) Then ' count the total records by iterating through the recordset rsBrowse_total=0 While (Not rsBrowse.EOF) rsBrowse_total = rsBrowse_total + 1 rsBrowse.MoveNext Wend ' reset the cursor to the beginning If (rsBrowse.CursorType > 0) Then rsBrowse.MoveFirst Else rsBrowse.Requery End If ' set the number of rows displayed on this page If (rsBrowse_numRows < 0 Or rsBrowse_numRows > rsBrowse_total) Then rsBrowse_numRows = rsBrowse_total End If ' set the first and last displayed record rsBrowse_first = 1 rsBrowse_last = rsBrowse_first + rsBrowse_numRows - 1 If (rsBrowse_first > rsBrowse_total) Then rsBrowse_first = rsBrowse_total End If If (rsBrowse_last > rsBrowse_total) Then rsBrowse_last = rsBrowse_total End If End If %> 宁波大榭开发区投资控股有限公司

今天是

体育运动

　您现在的位置：主页>>“六个一工程”活动>>体育活动

员工“常年体育运动”统计表
序号	部门或单位	姓名	体育运动具体内容	完成情况
1	董事长	吴子富
2	副总经理	王万群	羽毛球/天	进行中
3	副总经理	吕云乔	乒乓球3次/周	进行中
4	总经理助理	杨赓	跑步/天	进行中
5	综合管理部	叶朝阳	竞走2—3次/周	进行中
6		赵苏东	乒乓球2次/周	进行中
7		忻珊珊	仰卧起坐/天	进行中
8	平乐小区	楼叶茂	跑步1—2次/周	进行中
9		于惠	壁球2次/周	进行中
10		李昌耀	羽毛球2次/周	进行中
11		顾协波	跑步3—4次/周	进行中
12	财务审计部	沈益红	乒乓球2次/周	进行中
13		范鲲	乒乓球	进行中
14		常艳敏	饭后散步/天	进行中
15		吴珍	环岛自行车1次/周	进行中
16		曹欣华	篮球1次/周	进行中
17		郑成杰	篮球、羽毛球1次/周	进行中
18		李瑜	仰卧起坐/天	进行中
19	投资部	竺大伦	篮球、足球1次/周	进行中
20	港务公司	冒怀康	乒乓球	进行中
21		徐志杰	跑步/天	进行中
22		张锐慧	羽毛球、足球2次/周	进行中
23		徐炯钢	足球2次/周	进行中
24		唐颐	羽毛球1次/周	进行中
25		吕良	足球2次/周	进行中
26	码头公司	张海峰	长跑3次/周	进行中
27		张科胜	长跑1次/3周	进行中
28		徐晓峰	跳绳、呼拉圈2次/周	进行中
29		余勇浩	围棋/天	进行中
30		江静态	长跑/天	进行中
31	集信物流	张和勇	乒乓球2次/周	进行中
32		梁山海	乒乓球、羽毛球2次/周	进行中
33		董福全	足球2次/周、健美早晚	进行中
34	国际大酒店	叶凌海	网球、羽毛球2次/周	进行中
35		陈静	舍宾健身1次/周	进行中
36		黄守东	散步/天	进行中
37		徐红宇	篮球、乒乓球2次/周	进行中
38		周敏杨	呼拉圈/天	进行中
39		王桂芬	羽毛球1次/周	进行中
40	普陀大酒店	魏益平	跑步1次/周	进行中
41		傅国庆	武术、长跑3次/周	进行中
42		郑世敏	夜间长跑1—2次/周	进行中
43	大榭外代	许丽巧	乒乓球1次/周	进行中
44	水上客运	阮永章	羽毛球1—2次/周	进行中
45	水上客运	陈婉妙	呼拉圈/天	进行中
46	万华码头	纪爱娟	象棋、扑克1次/周	进行中
47	招商国际	宋亚峰	高尔夫1—2次/周	进行中

<% rsBrowse.Close() Set rsBrowse = Nothing %> /*