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


请先下载求职表格后

Email至cldoffice@cldking.com

点击下载

招聘成本会计。

招聘人数：1 学 历：本科
工作年限：二年以上 薪水范围：面议
外语要求：英语 良好 接受简历语言：中文或英文


职位描述：
任职条件
1、财务相关专业本科以上学历，英语四级，有一定的口语能力；
2、有高新技术企业，产品制造业及进出口相关工作经验，熟悉国家相关政策；
3、具有相关岗位工作经验2年以上；
4、熟悉财务软件及OFFICE办公软件，能独立处理财务业务；
5、具有大中型制造企业成本核算相关工作经验优先考虑；
6、较强的逻辑思维及总结分析能力，具有良好的协调和沟通能力，吃苦耐劳，有良好的团队合作精神。

联系电话：010-60277021 Email:clkoffice@cldking.com


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

电话：010-60277021 　　传真：010-010-60278955