<%@LANGUAGE="VBSCRIPT"%> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_connCYS_STRING Recordset1.Source = "SELECT fNewsID, fTatle FROM tNews ORDER BY fNewsID DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim rsHumer Dim rsHumer_numRows Set rsHumer = Server.CreateObject("ADODB.Recordset") rsHumer.ActiveConnection = MM_connCYS_STRING rsHumer.Source = "SELECT fNewsID, fMini FROM tHuman" rsHumer.CursorType = 0 rsHumer.CursorLocation = 2 rsHumer.LockType = 1 rsHumer.Open() rsHumer_numRows = 0 %> <% Dim rsdemain Dim rsdemain_numRows Set rsdemain = Server.CreateObject("ADODB.Recordset") rsdemain.ActiveConnection = MM_connCYS_STRING rsdemain.Source = "SELECT fNewsID, fMini FROM tCommerce ORDER BY fNewsID DESC" rsdemain.CursorType = 0 rsdemain.CursorLocation = 2 rsdemain.LockType = 1 rsdemain.Open() rsdemain_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 6 Dim Repeat1__index Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 5 Repeat2__index = 0 rsHumer_numRows = rsHumer_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 6 Repeat3__index = 0 rsdemain_numRows = rsdemain_numRows + Repeat3__numRows %> <% Dim MM_paramName %> <% ' *** 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 %> <% ' Declare variables Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits Dim FixedDigitCount Dim DigitCount Dim DigitCountLength Dim DigitZerosToAdd Dim DigitZeroCount Dim ShowDigits Dim DigitPath ' (FixedDigitCount) will add zeros to the front of your count ' if the count is less then the (FixedDigitCount) ' just like "frontpage" counters let you do FixedDigitCount = 5 DigitPath = "images1" On Error Resume Next Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("counter.txt") Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True) If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close Set ReadCounterFile = Nothing CounterHits = CounterHits + 1 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing DigitCountLength = Len(CounterHits) If DigitCountLength < FixedDigitCount Then DigitZerosToAdd= FixedDigitCount - DigitCountLength DigitZeroCount = 1 For DigitZeroCount = DigitZeroCount to DigitZerosToAdd ShowDigits = ShowDigits & "" Next End If DigitCount = 1 For DigitCount = DigitCount to DigitCountLength ShowDigits = ShowDigits & "" Next %> 欢迎访问朝隆达新科技有限公司
 
　

  集团董事长、总经理张健增先生
  现担任：
  中华民族团结友好协会常务理事
  北京光彩事业促进会理事
  北京市侨资企业协会常务理事
  北京市崇文区侨资企业协会会长
  北京市崇文区工商联合会副会长
  北京市崇文区政协委员
  北京市崇文区青联副主席
  北京市崇文区外商投资企业协会会长


   

   

    日月开新元，天地又一春。我们告别成绩斐然的2005，迎来了充满希望的2006，值此新春到来之际，我谨代表朝隆达集团董事局，向全体职员的努力进取和勤奋工作、中外客户和国际友人们的热情支持致以深深的谢意！祝大家在新的一年里身体健康、家庭康泰，万事如意！
　2005年，在全体员工的共同努力下，集团先后投资教育、生物制药、电子商务以及进军地产业等振奋人心的重大突破；集团2005年各项经济指标比往年有了较大增长，这些令人欣喜和振奋的成绩证明：朝隆达集团公司的战略是清晰的，定位是准确的，决策是正确的；通过这些成绩，我们看到了一个充满生机和活力的新朝隆达。
    诚信缔造伟业，创新成就未来！中国加入ＷＴＯ后，市场竞争日趋激烈，挑战与机遇并存，如何在激烈的市场竞争中站稳脚跟、勇立潮头，是摆在公司面前的一个大问题。一年来，在张健增董事长的带领下，坚持从实际情况出发，与时俱进，开拓创新、居危拼搏，经受住了新时期市场经济环境体制转轨的严峻考验，有力地推动了公司全面建设和持续发展，巩固了团结一致、居危拼搏，共谋发展的好形势和好局面，并为2006年的工作开了一个好头，奠定了扎实的基础，树立了明朗的发展方向。
    机遇与挑战同在，光荣与梦想共存！朝隆达集团经过管理变革，背靠优秀的企业文化，通过实施多元化、国际化的发展战略，定会迎来更加辉煌的明天！
　　最后，祝愿大家在新的一年里，身体健康，生活幸福！

                                    

                                    张建增


地址：北京市大兴区北臧村镇天宫院

电话：010-60276770 60275638 　　传真：010-010-60278955