<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Shanghai Marine Diesel Engine Research Institute
Products & Services
Energy Saving & Environmental Protecting Equipment and system
Screw compressor
Turkey alkali mineral processing plant, Turkey
Inlet V: 63m3/min
Inlet P: 0MPA(G)
Outlet P: 0.5MPA(G)
Process gas: CO2
Ex-factory Date: 2007
Kazakhstan Tengiz Oilfield,Kazakhstan
Inlet V: 22m3/min
Inlet P: -0.05MPA(G)
Outlet P: 0.25MPA(G)
Process gas: Oil field gas
Ex-factory Date: 2012
Iran North Azadegan Oilfield
Inlet V:166m3/min
Inlet P: 0 MPA(G)
Outlet P: 0.55MPA(G)
Process gas: Stabilized Gas
Ex-factory Date: 2012
Hyundai steel Co., Ltd., Korea
Inlet V:230m3/min
1st-stage inlet P: 0 MPA(G)
1st-stageoutlet P: 0.47MPA(G)
2nd -stage inlet P: 0.42MPA(G)
2nd -stageoutlet P: 1.70MPA(G)
Process gas: Coke Oven Gas
Ex-factory Date: 2015
Grand Pacific Petrochemical Co., Taiwan
Inlet V: 409m3/min
Inlet P: -0.077MPA(G)
Outlet P: 0.066MPA(G)
Process gas: Styrene tail gas
Ex-factory Date: 2014
Uzbekistan Kungrad Alkali Co.
Inlet V: 273m3/min
Inlet P: 0MPA(G)
Outlet P: 0.35MPA(G)
Process gas: CO2
Ex-factory Date:2014
<% 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 %>