<%@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
　　HEAD ‖ COMPANY ‖ TECHNECAL ‖ QUALITY ‖ ACHIEVEMENT ‖ MANUAFCTURING ‖ PRODUCTS ‖ CONTACT US ‖
　　Weilong has the well-equiped manufacturing facility with an covering area of 12000m2 and up-to-date office building of 3000m2 and workers' dormitory of the 2000m2 with dining room.
　　Weilong is provided with all kinds ofmanufacturing equipment of about loosets for machining,welding,test and inspection,including auto welding machines for pressure vessels. 40x2500 plate rolling machines. large welders and large-scale digital control lathes,NDT examinstion and dynamic balance test machines of up-to-date level.
　　By adopting the up-to-date manufacturing equipment and good performance and operation of the qualified workers and staffs,the high guality of products can be guaranteed and improved.
Partment of tactory
Machining the Air Cempressor shaft
Dynamic Belance Test For Rotor
Air compressor parts
的H730-6.5/0.97 centrifugal Air compressor For Hanzhong iron & steel co.
Oxygen
compressor parts
ZW-56/30 piston type Gas compressor For Hanzhong iron & steel co.
Heat exchanger
Black Pressure Vessels
Fractionating tower
 
 
版权所有：河南省威龙空分设备有限公司 　中国空分网 制作维护 　Http://www.hnwlsa.com
 网站备案号：
豫ICP备05000938号
<% zxdtxx.Close() Set zxdtxx = Nothing %>