<%@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年の年頭に当たり、朝隆達集団の取締役会を代表して、皆様の本年のご健勝を祈念申し上げます。

皆様の応援はいっぱいもらいまして、全体社員は大変頑張りまして、わが社は教育産業、生物製薬、電子ビジネス、及び不動産業へ進軍しました、そうして、いろんな成果をとりました、それと、様々の目指しはみんな見事に達成しました、こんないい成果を取得したことは、朝隆達集団は翌年の戦略が正しくて、定位が正しくて、政策が正しくての話しを証明できます、われわれは日進月歩な朝隆達集団を見えます。

誠真を守ることはビジネスの必要であり、新機軸を出すことは未来の必要であり、中国はWTOに加盟しました後、市場の競争が激しくて、グローバル化という大きな流れの中で、いろんなチャンスとチャレンジもとらしまして、如何すれば、勝てるという問題は、わが社が直面しなければなりません。過去の一年間に、代表取締役の張健増は集団を引き連れて、不利な要素を減少させ、有利な方向に転換、順調に発展させていた。その同時に、2006年の発展するために、いい基礎を取りました。

チャンスとチャレンジが同時に存在し、栄光と夢が共存し、わが社は優秀な企業文化を守って、多様化を拡大して、国際化を進めて、是非輝く未来を取れます。

皆様の一層のご協力を改めてお願いし、新年のご挨拶と致します。

                                            張健増

               


本社:北京市大兴区北臧村镇天宫院

ご電話番号:010-60277021   FAX番号:010-60278955