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