<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Shanghai Marine Diesel Engine Research Institute
Products & Services
Power System Solutions and Related Products
Vibration And Noise Reduction Services And Products
Diesel Engine
Stirling Engine
Power System Solutions and
Related Products
Marine Automation System
Energy Saving & Environmental
Protecting Equipment and system
Stationary Power Station
Energy Service
OVERALL EVALUATION AND CONTROL OF VIBRATION AND NOISE

VIBRATION ISOLATION DEVICE
Supply all kinds of vibration isolation sets, including single stage vibration isolating mounting, double (multistage) vibration isolating mounting and raft vibration isolation mounting, which are widely used in the marine power system, diesel generating sets, air conditioning units, water pumps, oil pumps, air compressors, various motors etc. Special combination and arrangement for vibration sets with excellent vibration effect can meet the requirements of customers.



SILENCERS
The silencer has been designed with compact structure, convenient installation, low pressure loss, noise attenuation more than 25dB(A) , and has the function of spark extinguishing, which is widely used in the noise control for exhaust pipe of power devices in ships, hotels, factories etc.

<% 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 %>