<% 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 %> 600X Electric control 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

600X Electric control valve

Product categories:Water Valve
Product display:Bohai Valve Group Co.,Ltd.

I. Product instruction

Electric control valve, an electromagnetic valve for the guide valve hydraulic type valve operation. Commonly used in water supply and drainage and automatic control, industrial system of control response is accurate, quick and according to the electrical signal remote control opening and closing pipe road system, realize the remote operation. And can replace gate valves and butterfly valves used in large electric operating system. Smooth speed adjustable valve is closed, closed and does not produce pressure fluctuations. The valves are small volume, light weight, simple maintenance, easy to use, safe and reliable. Solenoid valve can choose ac 220 v or dc 24 v, can be selected according to various occasions normally open or normally closed type.

II. Structure

The valve consists of the main valve, electro magnetic pilot valve, needle valve, ball valve, etc,Due to the pilot valve, needle valve, ball valve need to connected the main valve with a catheter , so collectively called catheter control system, as 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.Nut 12.Spring  13.Needle valve  14.Ball valve  15.Electro magnetic valve   16.Chock plug

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

When the valve water supply from the inlet, water flow through the needle valve into the main valve control room, when electromagnetic pilot valve opens, the control of indoor water flows by electromagnetic pilot valve, ball valve. Ball valve opening is greater than the needle valve opening, the main valve control of indoor pressure is low, the main valv in the fully open position.

When electromagnetic pilot valve is closed, the water of the main valve control room can't flow, control room boost, push the diaphragm close the main valve.

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.

  Previous：  700X Pump Control Valve  
  Next：  500X Pressure relief valve  

PRIVACY POLICY

Butterfly Valve

Ball Valve

WCB Gate, Globe, Check Valve

CONTACT US