<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Shanghai Marine Diesel Engine Research Institute
About Us
Chairman’s Address
Chairman’s Address
Company Profile
History
Qualification certificate
Thank you for your visiting and thank you all for concerning about and supporting Shanghai Marine Diesel Engine Research Institute (SMDERI) from the bottom of my heart!

Shanghai Marine Diesel Engine Research Institute is a marine power research institution and modern hi-tech corporation group with a history of more than 50 years. We have embedded solid culture inheritance with cutting-edge R&D and manufacture platform, along with glorious tradition and determined belief, leading to the most promising national marine power R&D foundation across China. 

With 50 years of development, SMDERI has always strived to present the essence of its slogan: to provide advanced and suitable power system as well as satisfactory service to all customers. We have also continued our ideal to promote technology advancement and industrial upgradation.

To encounter the latest opportunities and challenges, SMDERI has rooted deeply in domestic market but also equipped with aglobal horizon, focus on independent innovation tocontinuously elevate our core competence, and keep providing sustainable products and power solutions, all of which are aiming to the development of SMDERI and the society for an even bright future.

 

We are sincerely looking forward to cooperating with you for a better tomorrow.

President Mr. DONG Jianfu
<% 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 %>