<% dim conn dim connstr 'on error resume next set conn=server.CreateObject("adodb.connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("ysaqlz/#uil yinme.mdb") &";Persist Security Info=False;Jet OLEDB:Database Password=zrdzwzsjk" '## MS Access 2000 on Brinkster set conn= Server.CreateObject("adodb.connection") conn.mode=adModeReadWrite conn.ConnectionString=connstr conn.connectiontimeout=30 conn.open %> <% Function chk(ParaName,ParaType) '--- --- 'ParaName:-ַ 'ParaType:-(1ʾϲ֣0ʾϲΪַ) Dim Paravalue Paravalue=Request(ParaName) If ParaType=1 then If not isNumeric(Paravalue) then Response.write "" & ParaName & "Ϊͣ" Response.end End if Else Paravalue = replace(Paravalue, ">", "") Paravalue = replace(Paravalue, "<", "") Paravalue = replace(Paravalue, "&#", "&") Paravalue = Replace(Paravalue, CHR(32), " ") Paravalue = Replace(Paravalue, CHR(9), " ") Paravalue = Replace(Paravalue, CHR(34), "") Paravalue = Replace(Paravalue, CHR(39), "") Paravalue = Replace(Paravalue, CHR(13), "") Paravalue = Replace(Paravalue, CHR(10) & CHR(10), "/PP ") Paravalue = Replace(Paravalue, CHR(10), "BR ") Paravalue=replace(Paravalue,"'","''") End if chk=Paravalue End function Function CutStr(Str, strlen) Dim l, t, c, i l = Len(Str & "") t = 0 For i = 1 To l c = Abs(Asc(Mid(Str, i, 1))) If c>255 Then t = t + 2 Else t = t + 1 End If If t>= strlen Then CutStr = Left(Str, i)&"..." Exit For Else CutStr = Str End If Next CutStr = Replace(CutStr, Chr(10), "") End Function Function ClearHtml(Content) Content=Zxj_ReplaceHtml("&#[^>]*;", "", Content) Content=Zxj_ReplaceHtml("]*>", "", Content) Content=Zxj_ReplaceHtml("]*>", "", Content) Content=Zxj_ReplaceHtml("]*>", "", Content) Content=Zxj_ReplaceHtml("]*>", "", Content) Content=Zxj_ReplaceHtml("]*>", "", Content) 'Content=Zxj_ReplaceHtml(" ","",Content) Content=Zxj_ReplaceHtml("]*>", "", Content) Content=Zxj_ReplaceHtml("]*>","",Content) Content=Zxj_ReplaceHtml("]*>","",Content) Content=Zxj_ReplaceHtml("]*>","",Content) Content=Zxj_ReplaceHtml("]*>","",Content) Content=Zxj_ReplaceHtml("]*>","",Content) Content=Zxj_ReplaceHtml("]*>","",Content) Content=Zxj_ReplaceHtml("]*>","",Content) Content=Zxj_ReplaceHtml("]*>","",Content) Content=Zxj_ReplaceHtml("]*>", "", Content) Content=Zxj_ReplaceHtml("]*>", "", Content) Content=Zxj_ReplaceHtml("]*>", "", Content) Content=Zxj_ReplaceHtml("(javascript|jscript|vbscript|vbs):", "", Content) Content=Zxj_ReplaceHtml("on(mouse|exit|error|click|key)", "", Content) Content=Zxj_ReplaceHtml("<\\?xml[^>]*>", "", Content) Content=Zxj_ReplaceHtml("<\/?[a-z]+:[^>]*>", "", Content) Content=Zxj_ReplaceHtml("]*>", "", Content) Content=Zxj_ReplaceHtml("]*>","",Content) Content=Zxj_ReplaceHtml("]*>","",Content) Content=Zxj_ReplaceHtml("]*>","",Content) Content=Zxj_ReplaceHtml("]*>","",Content) ClearHtml=Content End Function Function Zxj_ReplaceHtml(patrn, strng,content) IF IsNull(content) Then content="" End IF Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = true regEx.Global = True Zxj_ReplaceHtml=regEx.Replace(content,strng) End Function %> <% c_title="China Bohai Valve Group Co., Ltd." c_keywords="China Bohai Valve Group Co., Ltd.BR " c_description="China Bohai Valve Group Co., Ltd.BR " c_address="No.88 Gaoying Road, Beizhakou Town, Jinnan District ,Tianjin, China." c_phone=" +86-022-88615222
" c_fax="+86-022-88615222 " c_email=" info@bhvalves.cn" c_postcode="" c_msn="86-022-88615222" c_msn1="" c_msn2="" c_company="China Bohai Valve Group Co., Ltd." c_url="www.bhvalves.cn" %>  <%sub mainhead()%>
Welcome to <%=c_company%> !
Set homepage Add favorite
<%=c_company%>
Tel/Fax:<%=c_phone%> Email:<%=c_email%>
<%end sub%> <%sub mainleft()%>
PRODUCTS
CONTACT US
<%end sub%> <% Class Cls_Page Private oConn Private iPageSize Private iRecordCount Private iPageIndex Private sPageParm Private sDatabase Private sField Private sTable Private sCondition Private sOrderBy Private sPKey Private iPageCount Private sTemplate Private sFirstPage Private sPreviousPage Private sNextPage Private sLastPage Private sNumericPage Private iNumericJump Private iMaxrecord Private Pager Private ssql Private Sub Class_Initialize iPageSize = 10 sPageParm = "p" iPageIndex = -1 sDatabase = "access" iRecordCount = 0 sField=" * " sCondition = "" sOrderBy = "" iPageCount = 0 sTemplate = "
{$RecordCount} {$PageSize}/ҳ {$PageIndex}/{$PageCount} {$FirstPage} {$PreviousPage} {$NumericPage} {$NextPage} {$LastPage} {$InputPage} {$SelectPage}
" sFirstPage = "First" sPreviousPage = "Previous" sNextPage = "Next" sLastPage = "Last" sNumericPage = " {$PageNum} " iNumericJump = 3 iMaxRecord=0 Set Pager = new Cls_Pager End Sub Private Sub Class_Terminate() If IsObject(oConn) Then oConn.Close:Set oConn=Nothing Pager = Null:Set Pager = Nothing if session(Pagename)<>"" then session(Pagename)="" if Request.Cookies(Pagename)<>"" then Response.Cookies(Pagename)="" If Application(sPagename) <> "" Then Application.Lock Application(sPagename) = "" Application.Unlock end if End Sub Public Property Set Conn(ByRef o) Set oConn = o End Property Public Property Let PageSize(ByVal i) iPageSize = CheckNum(i,0,-1) End Property Public Property Let PageParm(ByVal s) If Len(s)>0 Then sPageParm = s End Property Public Property Let PageIndex(ByVal i) iPageIndex = CheckNum(i,0,-1) End Property Public Property Let Database(ByVal s) If Len(s)>0 Then sDatabase = LCase(s) End Property Public Property Let Field(ByVal s) If Len(s)>0 Then sField = s End Property Public Property Let Table(ByVal s) sTable = s End Property Public Property Let Condition(ByVal s) If Len(s)>0 Then sCondition = " WHERE " & s End Property Public Property Let OrderBy(ByVal s) If Len(s)>0 Then sOrderBy = " ORDER BY " & s End Property Public Property Let PKey(ByVal s) sPKey = s End Property Public Property Let Template(ByVal s) If Len(s)>0 Then sTemplate = s End Property Public Property Let FirstPage(ByVal s) sFirstPage = s End Property Public Property Let PreviousPage(ByVal s) sPreviousPage = s End Property Public Property Let NextPage(ByVal s) sNextPage = s End Property Public Property Let LastPage(ByVal s) sLastPage = s End Property Public Property Let NumericPage(ByVal s) sNumericPage = s End Property Public Property Let NumericJump(ByVal i) iNumericJump = CheckNum(i,-1,-1) End Property Public Property Let MaxRecord(ByVal i) if isnumeric(i) then iMaxRecord =i end if End Property Public Property Let RecordCount(ByVal i) Select Case i Case -1 If Session("yevg") = "" Then iRecordCount = RowCount() Session("yevg") = iRecordCount Else iRecordCount = Session("yevg") End If Case -2 If Request.Cookies("yevg") = "" Then iRecordCount = RowCount() Response.Cookies("yevg") = iRecordCount Else iRecordCount = Request.Cookies("yevg") End If Case -3 If Application("yevg") = "" Then iRecordCount = RowCount() Application.Lock Application("yevg") = iRecordCount Application.Unlock Else iRecordCount = Application("yevg") End If Case Else If i < 1 Then iRecordCount = RowCount() Else iRecordCount = i End If End Select End Property Public Property Get RowCount() If iRecordCount < 1 Then RowCount = oConn.Execute("SELECT COUNT(*) FROM " & sTable & " " & sCondition,0,1)(0) if RowCount>iMaxRecord and iMaxRecord<>0 then RowCount=iMaxRecord end if Else RowCount = iRecordCount End If End Property Public Property Get ResultSet() if iMaxRecord<>0 then ssql= "SELECT top "& iMaxRecord else ssql= "SELECT " end if ResultSet = Null If iRecordCount > 0 Then Dim Rs,Cm iPageCount = (iRecordCount + iPageSize - 1) \ iPageSize If iPageIndex = -1 Then iPageIndex = Request.QueryString(sPageParm) iPageIndex = CheckNum(iPageIndex,1,iPageCount) Select Case sDatabase Case "mssql" Set Rs=server.CreateObject("Adodb.RecordSet") Set Cm=Server.CreateObject("Adodb.Command") Cm.CommandType = 4 Cm.ActiveConnection = oConn Cm.CommandText="sp_Util_Page" Cm.parameters(1) = sField Cm.parameters(2) = sTable Cm.parameters(3) = sCondition Cm.parameters(4) = sOrderBy Cm.parameters(5) = sPKey Cm.parameters(6) = iPageIndex Cm.parameters(7) = iPageSize Cm.parameters(8) = iRecordCount Cm.parameters(9) = "" Rs.CursorLocation = 3 Rs.LockType = 1 Rs.Open Cm Case "mysql" Set Rs = oConn.Execute(ssql & " " & sField & " FROM " & sTable & " " & sCondition & " " & sOrderBy & " LIMIT " & (iPageIndex-1)*iPageSize & "," & iPageSize) Case Else Set Rs = Server.CreateObject ("Adodb.RecordSet") Rs.Open ssql&" " & sField & " FROM " & sTable & " " & sCondition & " " & sOrderBy,oConn,1,1,&H0001 On Error Resume Next '˴Ϊaccess¼ಢһҳֻһ¼Eofbugһҳʾ2=___= If iPageIndex > 1 And iPageIndex = iPageCount And (iRecordCount Mod iPageSize = 1) Then Rs.AbsolutePosition = (iPageIndex - 1) * iPageSize Else Rs.AbsolutePosition = (iPageIndex - 1) * iPageSize + 1 End If End Select If Not Rs.Eof Then ResultSet = Rs.GetRows(iPageSize) Rs.close Set Rs=Nothing End If End Property Private Function CheckNum(ByVal s,ByVal min,ByVal max) Dim i:i = 0 s = Left(Trim("" & s),32) If IsNumeric(s) Then i = CDbl(s) If (min>-1) And (i < min) Then i = min If (max>-1) And (i > max) Then i = max CheckNum = i End Function Public Function Nav() With Pager .PageSize = iPageSize .RecordCount = iRecordCount .PageParm = sPageParm .NumericJump = iNumericJump .Template ="
"& sTemplate&"
" .FirstPage = sFirstPage .PreviousPage = sPreviousPage .NextPage = sNextPage .LastPage = sLastPage .NumericPage = sNumericPage End With Nav = Pager.Nav() End Function End Class Class Cls_Pager Private iPageIndex Private iPageSize Private iPageCount Private iRecordCount Private sPageUrl Private sPageParm Private sTemplate Private sFirstPage Private sPreviousPage Private sNextPage Private sLastPage Private sNumericPage Private iNumericJump Private Sub Class_Initialize() iPageIndex = -1 iPageSize = 10 iPageCount = 0 iRecordCount = 0 sPageUrl = "" sPageParm = "p" sTemplate = "
{$RecordCount} {$PageSize}/ҳ {$PageIndex}/{$PageCount} {$FirstPage} {$PreviousPage} {$NumericPage} {$NextPage} {$LastPage} {$InputPage} {$SelectPage}
" sFirstPage = "First" sPreviousPage = "Previous" sNextPage = "Next" sLastPage = "Last" sNumericPage = " {$PageNum} " iNumericJump = 3 End Sub Private Sub Class_Terminate() End Sub Public Property Let PageSize(ByVal i) iPageSize = CheckNum(i,1,-1) End Property Public Property Let PageCount(ByVal i) iPageCount = CheckNum(i,0,-1) End Property Public Property Let RecordCount(ByVal i) iRecordCount = CheckNum(i,0,-1) End Property Public Property Let PageUrl(ByVal s) sPageUrl = s End Property Public Property Let PageIndex(ByVal i) iPageIndex = CheckNum(i,0,-1) End Property Public Property Let PageParm(ByVal s) If Len(s)>0 Then sPageParm = s End Property Public Property Let Template(ByVal s) If Len(s)>0 Then sTemplate = s End Property Public Property Let FirstPage(ByVal s) sFirstPage = s End Property Public Property Let PreviousPage(ByVal s) sPreviousPage = s End Property Public Property Let NextPage(ByVal s) sNextPage = s End Property Public Property Let LastPage(ByVal s) sLastPage = s End Property Public Property Let NumericPage(ByVal s) sNumericPage = s End Property Public Property Let NumericJump(ByVal i) iNumericJump = CheckNum(i,-1,-1) End Property Public Property Get Nav() Dim v,x,i,minNumericPage,maxNumericPage,vNumericPage,vSelectPage,vInputPage v = sTemplate minNumericPage = 0 maxNumericPage = 0 vNumericPage = "" If Len(sPageUrl) < 11 Then sPageUrl = "?" For Each x In Request.QueryString If x <> sPageParm Then sPageUrl = sPageUrl & x & "=" & Request.QueryString(x) & "&" Next sPageUrl = sPageUrl & sPageParm &"={$PageNum}" End If vSelectPage = "" If iRecordCount > 0 Then iPageCount = (iRecordCount + iPageSize - 1)\iPageSize If iPageIndex = -1 Then iPageIndex = Request.QueryString(sPageParm) iPageIndex = CheckNum(iPageIndex,1,iPageCount) If iPageIndex > 1 Then sFirstPage = ""&sFirstPage&"" sPreviousPage = ""&sPreviousPage&"" Else sFirstPage = ""&sFirstPage&"" sPreviousPage =""& sPreviousPage&"" End If If iPageCount > 1 And iPageIndex < iPageCount Then sNextPage = ""&sNextPage&"" sLastPage = ""&sLastPage&"" Else sNextPage = ""&sNextPage&"" sLastPage = ""&sLastPage&"" End If If iNumericJump > 0 Then minNumericPage = CheckNum(iPageIndex - iNumericJump,1,-1) maxNumericPage = CheckNum(iPageIndex + iNumericJump,-1,iPageCount) ElseIf iNumericJump < 0 Then iNumericJump = Abs(iNumericJump) minNumericPage = CheckNum(((iPageIndex-1)\iNumericJump)*iNumericJump + 1,1,-1) maxNumericPage = CheckNum(minNumericPage + iNumericJump - 1,-1,iPageCount) Else minNumericPage = 1 maxNumericPage = iPageCount End If For i = minNumericPage To iPageIndex - 1'ǰҳǰ vNumericPage = vNumericPage + Replace(sNumericPage,"{$PageNum}","" & i & "") vSelectPage = vSelectPage + "" Next vNumericPage = vNumericPage + Replace(sNumericPage,"{$PageNum}",""&iPageIndex&"") vSelectPage = vSelectPage + "" For i = iPageIndex + 1 To maxNumericPage'ǰҳԺ vNumericPage = vNumericPage + Replace(sNumericPage,"{$PageNum}","" & i & "") vSelectPage = vSelectPage + "" Next vSelectPage = vSelectPage + "" v = Replace(v,"{$RecordCount}",iRecordCount) v = Replace(v,"{$PageCount}",iPageCount) v = Replace(v,"{$PageSize}",iPageSize) v = Replace(v,"{$PageIndex}",iPageIndex) v = Replace(v,"{$FirstPage}",sFirstPage) v = Replace(v,"{$PreviousPage}",sPreviousPage) v = Replace(v,"{$NextPage}",sNextPage) v = Replace(v,"{$LastPage}",sLastPage) v = Replace(v,"{$NumericPage}",vNumericPage) v = Replace(v,"{$SelectPage}",vSelectPage) v = Replace(v,"{$InputPage}",vInputPage) Nav = v End Property Private Function CheckNum(ByVal s,ByVal min,ByVal max) Dim i:i = 0 s = Left(Trim("" & s),32) If IsNumeric(s) Then i = CDbl(s) If (min>-1) And (i < min) Then i = min If (max>-1) And (i > max) Then i = max CheckNum = i End Function End Class %> 900X Emergency shutdown valve-China Bohai Valve Group Co., Ltd.
Welcome to China Bohai Valve Group Co., Ltd. !
Set homepage Add favorite
China Bohai Valve Group Co., Ltd.
Tel: +86-022-88615222
 Email: info@bhvalves.cn
PRODUCTS
CONTACT US
Water ValveHome>Products

900X Emergency shutdown valve

Product categories:Water Valve
Product display:900X Instruction

I. Product instruction

900 x emergency shutdown valve is mainly used for fire fighting water and domestic water in the parallel water supply system, is used to allocate water supply direction. When the fire need a large number of water, the valve will automatically cut off the water immediately, to ensure sufficient fire water. When the fire use when stop water ,the valve automatically opens an open state, recover water supply. The valve control high sensitivity, safe and reliable, convenient debugging, long service life, the valve system without setting up a special fire fighting water supply network alone, more can save construction cost.

II. Structure

The valve consists of the main valve and pilot valve, needle valve, ball valve, etc, due to the pilot valve, needle valve, ball valve with a catheter is connected to the main valve, so collectively called catheter control system, as shown in the figure below.

1.Body  2.Nut   3.Sealing Ring   4.Disc   5.Stem   6.Diaphragm Press Plate   7.Diaphragm   8.Bolt   9.Bonnet   10. Nut   11.Spring   12.Nut   13.Needle Valve   14.Plug   15.Ball valve   16.Pilot valve   17.Ball Valve

DN Length Main dimension
0.6MPa 1.0MPa 1.6MPa 2.5MPa
mm L D D1 n-d D D1 n-d D D1 n-d D D1 n-d
50 200 140 110 4-14 165 125 4-18 165 125 4-18 165 125 4-18
65 220 160 130 4-14 185 145 4-18 185 145 4-18 185 145 8-18
80 230 190 150 4-18 200 160 8-18 200 160 8-18 200 160 8-18
100 265 210 170 4-18 220 180 8-18 220 180 8-18 235 190 8-22
125 295 240 200 8-18 250 210 8-18 250 210 8-18 270 220 8-26
150 335 265 225 8-18 285 240 8-22 285 240 8-22 300 250 8-26
200 385 320 280 8-18 340 295 8-22 340 295 12-22 360 310 12-26
250 465 375 335 12-18 395 350 12-22 405 355 12-26 425 370 12-30
300 545 440 395 12-22 445 400 12-22 460 410 12-26 485 430 16-30
350 610 490 445 12-22 505 460 16-22 520 470 16-26 555 490 16-33
400 650 540 495 16-22 565 515 16-26 580 525 16-30 620 550 16-36
450 730 595 550 16-22 615 565 20-26 640 585 20-30 670 600 20-36
500 800 645 600 20-22 670 620 20-26 715 650 20-33 730 660 20-36
600 920 755 705 20-26 780 725 20-30 840 770 20-36 845 770 20-39

III.Working principle

Emergency shutdown valve is one of the hydraulic valves. Consists of the main valve, regulating valve, pilot valve, pressure gauge and other fittings such as other connection pipe ,when the main valve inlet pressure below than the pilot valve set pressure, the pilot valve is in opening state, The main valve cavity pressure on the cover and the main valve outlet pressure is equal， inlet and outlet pressure difference, water flow through the valve from outlet. When the fire pump start-up, or variable frequency pump pressure increase, more than a pilot valve set pressure, controlled by the main valve inlet pilot valve pipe pressure increase, on the spring pressure increase, pushing down tightly, drives the valve core down, the pilot valve closed, the main valve inlet pressure through the throttle valve is added at this time the main valve on the valve cover cavity, because of the downward pressure on the disc is greater than upward thrust, the main valve close.

The valve is suitable for parallel living community in fire water and the life water supply system .When fire, emergency shut down water valve automatically ensure the fire water. When at the ending of the fire, the valve automatically opens, recover water supply can save costs more. than the traditional fire water supply alone .

To install the filter before emergency shut-off valve, and should facilitate the discharge of pollutants by requirements

IV. Installation and adjustment

1.The best installation way of the main valve is horizontal installation, bonnet up, other installation method can reach the use function, thoroughly remove the clutter of pipe before installation . Pay attention to the main valve body outer flow labeled arrows, should follow the direction installation. After installation shall ensure that no pipe stress on the valve body and valve internal parts.

2.Before the main valve need to install a gate valve and a filter, after the main valve also need to install a gate valve, in order to maintenance.

3.Must be flushed pipeline thoroughly before water supply. The micro filter need to regular cleaning.

900X Emergency shutdown valve Installation Diagram

  Previous：  Nothing
  Next：  800X Bypass balancing valve  

PRIVACY POLICY

Butterfly Valve

Ball Valve

WCB Gate, Globe, Check Valve

CONTACT US