<%@LANGUAGE="VBSCRIPT"%> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_cnsinocp_STRING if trim(request("keyword"))="" then Recordset1.Source = "SELECT * FROM dbo.bankroll WHERE viewflag='true' AND wsfb='是' ORDER BY indate desc" else keyword="%"&trim(request("keyword"))&"%" Recordset1.Source = "SELECT * FROM dbo.bankroll WHERE viewflag='true' AND wsfb='是' " end if Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 offset1=request("offset") offset2=request("offset2") %> <% set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_cnsinocp_STRING Recordset2.Source = "SELECT * FROM dbo.bankroll WHERE viewflag='true' AND wsfb='是' AND zyxx='true' ORDER BY indate desc" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 3 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 20 Dim Repeat1__index Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows =10 Dim Repeat2__index Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count Recordset1_total = Recordset1.RecordCount ' set the number of rows displayed on this page If (Recordset1_numRows < 0) Then Recordset1_numRows = Recordset1_total Elseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1 End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 ' if we have the correct record count, check the other stats If (Recordset1_total <> -1) Then If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Recordset1_total = -1) Then ' count the total records by iterating through the recordset Recordset1_total=0 While (Not Recordset1.EOF) Recordset1_total = Recordset1_total + 1 Recordset1.MoveNext Wend ' reset the cursor to the beginning If (Recordset1.CursorType > 0) Then Recordset1.MoveFirst Else Recordset1.Requery End If ' set the number of rows displayed on this page If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total End If %> <% ' *** Move To Record and Go To Record: declare variables Set MM_rs = Recordset1 MM_rsCount = Recordset1_total MM_size = Recordset1_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter r = Request.QueryString("index") If r = "" Then r = Request.QueryString("offset") If r <> "" Then MM_offset = Int(r) ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record i = 0 While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1)) MM_rs.MoveNext i = i + 1 Wend If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page i = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size)) MM_rs.MoveNext i = i + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = i If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record i = 0 While (Not MM_rs.EOF And i < MM_offset) MM_rs.MoveNext i = i + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record Recordset1_first = MM_offset + 1 Recordset1_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (Recordset1_first > MM_rsCount) Then Recordset1_first = MM_rsCount If (Recordset1_last > MM_rsCount) Then Recordset1_last = MM_rsCount End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 0) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then params = Split(MM_keepMove, "&") MM_keepMove = "" For i = 0 To UBound(params) nextItem = Left(params(i), InStr(params(i),"=") - 1) If (StrComp(nextItem,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & params(i) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&" urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = urlStr & "0" MM_moveLast = urlStr & "-1" MM_moveNext = urlStr & Cstr(MM_offset + MM_size) prev = MM_offset - MM_size If (prev < 0) Then prev = 0 MM_movePrev = urlStr & Cstr(prev) %> 中国资金项目网 SINOCP 百强企业
投资推荐　　投资信息　　发布中心　　投资公司　　金融机构　　担保公司　　上市公司　　证券公司　　百强企业　　投资知识
 
 
 
世界500强
亚洲华商
中国500强
民营100强
 
 
　
世界五百强企业名单
第 2 页 共 5 页 　　首页 上页 下页 末页
序号
公司名称
网址
收入(百万美元)
101
 科尼克林克-阿诺尔德公司 http://www.ahold.com/
28,871.0
102
 三星集团 http://www.samsungcorp.com/
28,839.0
103
 鲜京公司 http://www.sk.co.kr/
28,808.9
104
 SBC西南贝尔 http://www.sbc.com/
28,777.0
105
 罗伯特-博世公司 http://www.bosch.de/
28,610.3
106
 明治生命 http://www.meiji-life.co.jp/
28,476.1
107
 特斯科公司 http://www.tesco.co.uk/
28,442.3
108
 英国电信 http://www.bt.com/
28,323.7
109
 克罗格 http://www.kroger.com/
28,203.3
110
 维亚哥公司 http://www.viag.com/
27,921.6
111
 三菱汽车公司 http://www.mitsubishi-motors.co.jp/
27,480.4
112
 法国电讯公司 http://www.francetelecom.com/
27,408.7
113
 瑞士联合银行 http://www.ubs.com/
27,221.2
114
 托塔尔菲那公司 http://www.total.com/
27,058.8
115
 默克公司 http://www.merck.com/
26,898.2
116
 雪佛龙 http://www.chevron.com/
26,801.0
117
 巴黎国民银行 http://www.bnp.fr/
26,786.6
118
 沃尔沃 http://www.volvo.com/
26,773.2
119
 都市人寿保险 http://www.metlife.com/
26,735.0
120
 日本兴业银行 http://www.ibjbank.co.jp/
26,495.8
121
 英特尔 http://www.intel.com/
26,273.0
122
 洛克希德马丁公司 http://www.lmco.com/
26,266.0
123
 意大利电信 http://www.telecomitalia.it/
26,163.9
124
 阿尔斯塔特公司 http://www.allstate.com/
25,879.0
125
 联合技术公司 http://www.utc.com/
25,715.0
126
 PDVSA公司 http://www.pdvsa.com/
25,659.0
127
 第一银行公司 http://www.bankone.com/
25,595.0
128
 日绵公司 http://www.nichimen.co.jp/
25,476.1
129
 GTE公司 http://www.gte.com/
25,473.0
130
 皇家与太阳联盟公司 http://www.royalsunalliance.com/
25,435.8
131
 伊滕洋华堂 http://www.itoyokado.iyg.co.jp/
25,400.6
132
 圣斯伯里公司 http://www.j-sainsbury.co.uk/
25,139.1
133
 巴西银行 http://www.bancobrasil.com.br/
25,073.1
134
 赫司特 http://www.hoechst.com/
24,842.3
135
 联合包裹服务 http://www.ups.com/
24,788.0
136
 美国钢铁马拉松公司 http://www.usx.com/
24,754.0
137
 劳埃德TSB集团公司 http://www.lloydstsb.co.uk/
24,514.2
138
 隋福威公司 http://www.safeway.com/
24,484.2
139
 蒂森 http://www.thyssenkrupp.com/
24,427.9
140
 现代公司 http://www.hyundaicorp.com/
24,373.3
141
 科斯托克公司 http://www.pricecostco.com/
24,269.9
142
 CNP保险公司 http://www.cnp.fr/
24,108.0
143
 康尼格拉公司 http://www.conagra.com/
23,840.5
144
 强生公司 http://www.jnj.com/
23,657.0
145
 阿尔卡特尔-阿尔斯通集团 http://www.alcatel.com/
23,640.7
146
 大荣公司 http://www.daiei.co.jp/
23,573.5
147
 奥卡恩集团公司 http://www.auchan.com/
23,531.8
148
 爱立信公司 http://www.ericsson.com/
23,190.0
149
 南方贝尔公司 http://www.bellsouthcorp.com/
23,123.0
150
 沃尔特-迪斯尼公司 http://www.disney.com/
22,976.0
151
 德累斯登银行 http://www.dresdner-bank.de/
22,779.5
152
 三菱重工 http://www.mhi.co.jp/
22,748.5
153
 西德意志银行 http://www.westlb.de/
22,643.7
154
 里昂信贷公司 http://www.creditlyonnais.com/
22,568.4
155
 百事公司 http://www.pepsico.com/
22,348.0
156
 三井生命 http://www.mitsui-seimei.co.jp/
22,225.6
157
 英格雷姆麦克罗公司 http://www.ingrammicro.com/
22,034.0
158
 巴克莱银行 http://www.barclays.co.uk/
21,897.1
159
 诺华 http://www.novartis.com/
21,873.8
160
 中国工商银行 http://www.icbc.com.cn/
21,830.3
161
 普罗莫德公司 http://www.promodes.fr/
21,816.4
162
 埃尼尔公司 http://www.enel.it/
21,761.6
163
 国民威斯敏斯特银行 http://www.natwestgroup.com/
21,718.1
164
 英美烟草工业公司  
21,626.9
165
 佳能公司 http://www.canon.com/
21,616.2
166
 新日铁 http://www.nsc.co.jp/
21,587.8
167
 第一联合公司 http://www.firstunion.com/
21,543.0
168
 西格纳公司 http://www.cigna.com/
21,437.0
169
 德国商业银行 http://www.commerzbank.de/
21,216.9
170
 曼内斯曼公司 http://www.mannesmann.com/
21,194.7
171
 中国银行 http://www.bank-of-china.com/
21,143.9
172
 卡特彼勒公司 http://www.caterpillar.com/
20,977.0
173
 住友银行 http://www.sumitomobank.co.jp/
20,950.3
174
 墨西哥石油公司 http://www.pemex.com/
20,891.1
175
 麦克逊公司 http://www.mckesson.com/
20,857.3
176
 普里伊萨格公司 http://www.preussag.de/
20,810.8
177
 劳易斯公司  
20,713.0
178
 埃特纳人寿与意外伤害保险公司 http://www.preussag.de/
20,604.1
179
 富国银行 http://www.preussag.de/
20,482.0
180
 关西电力公司 http://www.preussag.de/
20,317.9
181
 富士银行 http://www.fujibank.co.jp/
20,109.7
182
 施乐公司 http://www.xerox.com/
20,019.0
183
 萨拉-李公司 http://www.saralee.com/
20,011.0
184
 PG&E 公司 http://www.pgecorp.com/
19,942.0
185
 莱曼兄弟 http://www.lehman.com/
19,894.0
186
 美国百货公司 http://www.americanstores.com/
19,866.7
187
 纽约人寿保险公司 http://www.newyorklife.com/
19,848.9
188
 圣戈班公司 http://www.saint-gobain.com/
19,817.8
189
 大都会公司 http://www.diageo.com/
19,808.1
190
 哥伦比亚/HCA保健公司 http://www.columbia-hca.com/
19,681.0
191
 雷声公司 http://www.raytheon.com/
19,530.0
192
 国际造纸公司 http://www.internationalpaper.com/
19,500.0
193
 西班牙电讯公司 http://www.telefonica.es/
19,456.6
194
 东日本铁路公司 http://www.jreast.co.jp/
19,430.0
195
 朝日生命 http://www.asahi-life.co.jp/
19,418.0
196
 美利坚航空 http://www.amrcorp.com/
19,205.0
197
 吉之岛 http://www.jusco.co.jp/
19,171.3
198
 美国运通 http://www.americanexpress.com/
19,132.0
199
 三和银行 http://www.sanwabank.co.jp/
18,849.8
200
 日本邮政服务公司 http://www.mpt.go.jp/
18,849.2
第 2 页 共 5 页 　　首页 上页 下页 末页


网站全新改版，欢迎大家提出宝贵的意见和建议!
总机:0086-10-6444.9999 6444.5555 6444.6666 6444.7777
版权所有 中国资金项目网有限公司
Copyright ©2000 sinocp.com.  All rights reserved

<% Recordset1.Close() %> <% Recordset2.Close() %>