<%@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强
 
 
　
世界五百强企业名单
第 5 页 共 5 页 　　首页 上页 下页 末页
序号
公司名称
网址
收入(百万美元)
401
海斯布施公司 http://www.anheuser-busch.com/ 
11,245.8
402
怡和 http://www.jardines.com/ 
11,229.5
403
阿尔贝特公司 http://www.arbed.com/ 
11,212.3
404
玩具反斗店 http://www.tru.com/ 
11,200.0
405
KYUSHU电力公司 http://www.kyuden.co.jp/ 
11,188.7
406
理光公司 http://www.ricoh.co.jp/ 
11,156.1
407
英国邮政局公司 http://www.ukpo.co.uk/ 
11,099.1
408
克威尔内公司 http://www.kvaerner.com/ 
11,012.8
409
彭尼公司 http://www.pechiney.com/ 
10,937.3
410
英国通用电器 http://www.gec.com/ 
10,902.0
411
诺瓦斯考地亚银行 http://www.scotiabank.ca/ 
10,901.2
412
拉法日公司 http://www.lafarge.com/ 
10,899.5
413
电路城集团 http://www.circuitcity.com/ 
10,804.4
414
OBAYASHI公司 http://www.obayashi.co.jp/ 
10,795.0
415
惠好 http://www.weyerhaeuser.com/ 
10,766.0
416
安田火灾与海事保险公司 http://www.yasuda.co.jp/ 
10,761.8
417
西格拉姆公司 http://www.seagram.com/ 
10,734.0
418
大众互助人寿保险公司 http://www.massmutual.com/ 
10,668.1
419
北方钢铁联合公司 http://www.usinor.com/ 
10,648.7
420
富士重工业公司 http://www.fhi.co.jp/ 
10,581.3
421
阿第克公司 http://www.adecco.com/ 
10,562.2
422
联合太平洋公司 http://www.up.com/ 
10,553.0
423
住友金属工业公司 http://www.smi-lsi.com/ 
10,538.1
424
日本能源公司 http://www.j-energy.co.jp/ 
10,466.3
425
法国天然气公司 http://www.gazdefrance.com/ 
10,400.8
426
卡斯达特公司 http://www.karstadt.de/ 
10,369.6
427
英国钢铁公司 http://www.britishsteel.co.uk/ 
10,354.4
428
惠而浦公司 http://www.whirlpool.com/ 
10,323.0
429
德意志合作银行 http://www.dgbank.de/ 
10,295.8
430
乔治威斯顿公司 http://www.weston.ca/ 
10,292.2
431
武中公司 http://www.takenaka.co.jp/ 
10,253.4
432
美国通用保险 http://www.agc.com/ 
10,251.0
433
东海银行 http://www.csweb.co.jp/tbk 
10,233.2
434
华纳兰勃特制药公司 http://www.warnerlambert.com/ 
10,213.7
435
神户钢铁公司 http://www.kobelco.co.jp/  
10,213.3
436
爱迪生国际公司 http://www.edison.com/ 
10,208.0
437
法国航空 http://www.airfrance.net/ 
10,185.7
438
大西洋与太平洋茶叶公司 http://www.aptea.com/ 
10,179.4
439
积水建房 http://www.sekisuihouse.co.jp/ 
10,160.3
440
加拿大神力保险公司 http://www.powercorp.ca/ 
10,148.6
441
BESTBUY公司 http://www.bestbuy.com/
10,077.9
442
吉列公司 http://www.gillette.com/ 
10,056.0
443
美国礼来制药公司 http://www.lilly.com/ 
10,051.3
444
韩国电力公司 http://www.kepco.co.kr/ 
10,050.5
445
住友电工 http://www.sei.co.jp/ 
10,022.5
446
朝日玻璃 http://www.agc.co.jp/ 
10,021.6
447
舰队金融公司 http://www.fleet.com/ 
10,002.0
448
意大利商业银行 http://www.bci.it/ 
9,962.3
449
大日本印刷公司 http://www.dnp.co.jp/ 
9,932.1
450
CSX公司 http://www.csx.com/ 
9,898.0
451
信念健康公司 http://www.tenethealth.com/ 
9,895.0
452
埃德卡中心股份有限公司 http://www.edeka.de/ 
9,894.3
453
雪印乳业 http://www.snowbrand.co.jp/ 
9,886.6
454
英国半岛东方汽船公司 http://www.p-and-o.com/ 
9,798.6
455
太阳公司 http://www.sun.com/ 
9,790.8
456
特尼奥公司 http://www.sepi.es/ 
9,787.6
457
哈门那公司 http://www.humana.com/ 
9,781.0
458
DDI http://www.ddi.co.jp/ 
9,752.5
459
出光产业公司 http://www.idemitsu.co.jp/ 
9,748.0
460
浦项钢铁公司 http://www.posco.co.kr/ 
9,716.0
461
中日本铁路公司  
9,656.1
462
凸版印刷公司 http://www.toppan.co.jp/ 
9,571.4
463
耐克 http://www.info.nike.com/ 
9,553.1
464
太平洋健康系统  
9,521.5
465
高岛屋 http://www.takashimaya.co.jp/ 
9,519.2
466
宇航公司 http://www.aerospatiale.fr/ 
9,509.6
467
王子造纸公司 http://www.ojipaper.co.jp/ 
9,436.4
468
西日本铁路公司 http://www.westjr.co.jp/ 
9,427.8
469
川崎重工业公司 http://www.khi.co.jp/ 
9,405.1
470
乐喜金星电子公司 http://www.lge.co.kr/ 
9,378.0
471
LIMITED http://www.limited.com/ 
9,346.9
472
国泰人寿 http://www.cathlife.com.tw/ 
9,286.9
473
福顿公司 http://www.fortum.com/ 
9,269.5
474
马来西亚石油公司 http://www.petronas.com.my/ 
9,267.3
475
苏格兰鳏寡基金 http://www.scottishwidows.co.uk/
9,250.4
476
加拿大太阳人寿保险 http://www.sunlife.com/ 
9,232.5
477
KYOEI生命 http://www.kyoei-life.co.jp/ 
9,231.5
478
亨氏 http://www.heinz.com/ 
9,209.3
479
川铁商事 http://www.kawasho.co.jp/ 
9,178.5
480
朝日化学工业公司 http://www.asahi-kasei.co.jp/ 
9,167.8
481
重建信贷机构 http://www.kfw.de/ 
9,153.2
482
阿斯特拉珍尼卡制药 http://www.zeneca.com/ 
9,132.8
483
UPM-KYMMENE公司 http://www.upm-kymmene.com/ 
9,128.9
484
北德意志国家银行  
9,125.7
485
中国石油公司 http://www.cpc.com.tw/ 
9,115.5
486
圣保罗保险公司 http://www.stpaul.com/ 
9,108.4
487
施霸商业 http://www.spar.de/ 
9,072.9
488
哥伦比亚广播公司 http://www.cbs.com/ 
9,061.0
489
理尔公司 http://www.lear.com/ 
9,059.4
490
盖普公司 http://www.gap.com/ 
9,054.5
491
西北航空公司 http://www.nwa.com/ 
9,044.8
492
大宇宙商店 http://www.gusplc.co.uk/     
9,043.5
493
多伦多自治领银行 http://www.tdbank.ca/ 
9,018.1
494
办公用品仓储商店 http://www.officedepot.com/ 
8,997.7
495
高露洁 http://www.colgate.com/ 
8,971.6
496
伯灵顿北桑塔佛公司 http://www.bnsf.com/ 
8,941.0
497
迪高沙公司 http://www.degussa-huls.de/ 
8,924.3
498
三井不动产公司 http://www.mitsuifudosan.co.jp/ 
8,920.5
499
约翰汉科共同寿险公司 http://www.johnhancock.com/ 
8,911.7
500
诺斯罗普-格鲁曼 http://www.northgrum.com/ 
8,902.0
第 5 页 共 5 页 　　首页 上页 下页 末页


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

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