<% 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 %> 800X Bypass balancing 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

800X Bypass balancing valve

Product categories:Water Valve
Product display:800X Instruction

I. Product instruction

Differential pressure bypass balancing valve is a kind of used for air conditioning system to/return to balance between the differential pressure of the valve. The valve can improve the utilization rate of system and keep the pressure difference precise set straight, and can minimize noise in the system, as well as the large pressure difference of equipment damage, also can adjust the opening according to the terminal heat load conditions, the terminal load is small or zero can guarantee a certain amount of water in the air conditioning unit, to protect the air conditioning units also have the effect of saving energy and reducing consumption.

II. Structure

The valve by the main valve, 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. Ball valve  11.Nut  12.Spring   13.Nut   14.Pilot valve   15.Plug   16.Needle 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

Balance differential pressure bypass valve interior with a check valve core, a spring calibration pressure forces control. As for the pressure differential between the backwater is greater than the set pressure of the spring, the check valve is proportional to the open, the differential pressure bypass traffic support system set up corresponding values; When the differential pressure below the set point check valve closed, for without by-pass between backwater.

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.

800X Differential pressure bypass balancing valve Installation Diagram

  Previous：  900X Emergency shutdown valve  
  Next：  700X Pump Control Valve  

PRIVACY POLICY

Butterfly Valve

Ball Valve

WCB Gate, Globe, Check Valve

CONTACT US