<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% if(Request.Querystring("news_id") <> "") then Command1__MMid = Request.Querystring("news_id") %> <% Dim zxdtxx__MMColParam zxdtxx__MMColParam = "1" If (Request.QueryString("news_id") <> "") Then zxdtxx__MMColParam = Request.QueryString("news_id") End If %> <% Dim zxdtxx Dim zxdtxx_numRows Set zxdtxx = Server.CreateObject("ADODB.Recordset") zxdtxx.ActiveConnection = MM_conn_STRING zxdtxx.Source = "SELECT * FROM news WHERE news_id = " + Replace(zxdtxx__MMColParam, "'", "''") + "" zxdtxx.CursorType = 0 zxdtxx.CursorLocation = 2 zxdtxx.LockType = 1 zxdtxx.Open() zxdtxx_numRows = 0 %> <% set Command1 = Server.CreateObject("ADODB.Command") Command1.ActiveConnection = MM_conn_STRING Command1.CommandText = "UPDATE news SET news_djs=news_djs+1 WHERE news_id=" + Replace(Command1__MMid, "'", "''") + "" Command1.CommandType = 1 Command1.CommandTimeout = 0 Command1.Prepared = true %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 6 Repeat1__index = 0 news_numRows = news_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% '请勿改动下面这三行代码 ShowSmallClassType=ShowSmallClassType_Default MaxPerPage=MaxPerPage_Default strFileName="Product.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName %> 河南威龙空分设备有限公司
 
 ※ 中文版
 ※ ENGLISH
  HEADCOMPANYTECHNECALQUALITYACHIEVEMENTMANUAFCTURINGPRODUCTSCONTACT US
 
  Henan Weilong Air Separation Equipment Co.,Ltd attaches great importance to talents.solicts excellent talents and creats a broad field for their
careers. Weilong has strong technical forces for engineering design of air separation process,electric and instrument control.designing and manufacturing for unit equipment such as vessels, heat exchangers,turbo air comphessors,and oxygen and nitrogen compresors.We also engaged the experienced senior engineers and skillful workers who have been working for many years the air
separatrion industry.Weilong has established close cooperative relations with some universities and R & D institutes and held technical exchanges with
reputed companies at home and abroad so as tomaintain Weilong's high level in techno fogy and make its products practical.
  Weilong always takes the "Science and Technology is the First Productive Forces" as the aim,It put large investment for purchasing softwares for simulation calculations of airseparation process for internal piping design of cold box for two-dimensional design, Hence the design level of weilong has been improved to the international up-to-date level.

Technical Review



Woftware of process design
Sparess analysis of piping in cold box
 Piping in cold box
 
 
版权所有:河南省威龙空分设备有限公司  中国空分网 制作维护  Http://www.hnwlsa.com
网站备案号:
豫ICP备05000938号
<% zxdtxx.Close() Set zxdtxx = Nothing %>