<%@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 %> 欢迎访问朝隆达新科技有限公司


    北京朝隆达集团公司是1993年成立的外商投资企业，下属北京朝隆达新科技有限公司、北京健达康怡科技发展有限公司、北京康馨工贸中心、北京侨麟环保科技有限公司、上海海的塑胶有限公司、天津捷隆货运有限公司等企业.

    公司的经营范围是服装鞋帽、塑胶制品、机电设备、货运代理、建材、医药、保健品、教育、咨询服务和房地产开发等；它拥有超亿元的固定资产，年销售额逾亿元，员工千余人。
    公司的高级管理人员来自于国际知名的外资企业和大型国有企业，拥有广博的专业知识、丰富的管理经验和国际化的服务，能够透彻了解客户需求，为客户提供专业的服务。
    公司与国际先进企业建立紧密的技术联盟，引进国际最先进的技术和设备，强化产品的科研开发；公司于2001年通过ISO9001国际质量管理体系认证，建立了完善的售后服务体系；公司以提供优质产品和专业服务而在业界著称，目标是努力实现国际化并为社会创造更大财富；公司曾连续八年成为北京市崇文区出口创汇的第一大户，被誉为“重点外商投资企业”，被中国农业银行连续两年评为“AA级信用企业”和“AAA级信用企业”；董事长张健增先生获北京市崇文区十大优秀青年称号，任区政协委员和区外商投资企业协会会长等诸多社会职务。
    公司将增加研究开发多元化产品的投入，加强和国际知名企业的交流与合作，完善网上交易和物流管理，使公司的产品在国内外市场具备超强的竞争力。
    朝隆达集团真诚希望与国内外客户双赢共荣。
　


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

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