<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Shanghai Marine Diesel Engine Research Institute
About Us
Company Profile
CSIC is now a leading state-owned business and one of China’s largest shipbuilding and ship repair groups. Its marine sector covers both naval and merchant ships and equipment manufacturing. It also designs, develops and manufactures a wide-range of non-marine products. The group has a total asset base of 384 billion RMB. Its total workforce numbers around 150,000. CSIC has been listed among the Fortune Global 500 since 2011 and ranked 281th in Fortune Global 500 in 2016 with revenue of 36.01 billion USD.

SMDERI, founded in 1963, be affiliated to CSIC. SMDERI is the only state research institute on marine diesel engine in China.

SMDERI has strong R&D ability and complete specialties. Its main strategic business areas include diesel engine, stirling engine, power system integration, ship automation system, energy saving and environmental protection equipment, and energy service, which take the leading position in China and have international influence.

SMDERI is an enterprise group engaged in R&D, manufacturing, service and project contract. The main products developed and produced by SMDERI, with a market covering more than 30 countries and regions in the world, have been widely used in more than 20 fields, such as machinery, petrochemical, energy, transportation, etc. The revenue of SMDERI for 2015 was 3.2 billion RMB.


<% function WebContent() dim ID ID=request.QueryString("ID") dim rs,sql set rs = server.createobject("adodb.recordset") if request.QueryString("ID")="" then sql="select top 1 ID,AboutName,Source,Content,GroupID,Exclusive,ClickNumber,AddTime from Ameav_About where ViewFlag and not ChildFlag order by Sequence asc" else sql="select ID,AboutName,Source,Content,GroupID,Exclusive,ClickNumber,AddTime from Ameav_About where ViewFlag and not ChildFlag and ID="&ID end if rs.open sql,conn,1,3 if not rs.eof then numbers=len(rs("content")) '总字节数 pagenum=Sitenum '每页显示的数量 maxpage=-int(-numbers/pagenum)'总页数 requestpage=clng(request("p"))'接收页码 if requestpage="" or requestpage=0 then'获取默认页码 requestpage=1 end if if requestpage>maxpage then '当前页的页码大于最大页码时,使当前页码等于最大页码 requestpage=maxpage end if if not requestpage=1 then '当前页码不等于1时,向下移动相应的字节数 content=mid(rs("content"),(requestpage-1)*pagenum+1,Sitenum) else content=left(rs("content"),Sitenum) '当页码等于1时,截取相应文本 end if if isempty(requestpage) then thispage=1 else thispage=cint(requestpage) end if if ViewNoRight(rs("GroupID"),rs("Exclusive")) then %> <%=Replace(content,chr(13),"")%> <% rs("ClickNumber")=rs("ClickNumber")+1 else WebContent="
" end if rs.update rs.close else response.write "
No information
" end if set rs=nothing end function %>