<% 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%> !
<%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 %> Extension Rod Resilient Seat Gate Valve-China Bohai Valve Group Co., Ltd.
China Bohai Valve Group Co., Ltd.
DI Gate ValveHome>Products

Extension Rod Resilient Seat Gate Valve

Product categories:DI Gate Valve
Product display:Extension Rod Resilient Seat Gate Valve

ZZ45X Extension Rod resilient seat gate valve

Purpose

This valve is mounted on various underground pipelines and used as a bi-way closed circuit equipment for tap water, sewage treatment industries etc.

Features

·With the buries technology, no need to make a gate well, making the installation constructing amount reduced and the buries depth adjustable.

·Long durable, without internal leak ,of the advantages available with a resilient gate valve.

·No affection to the traffic, safe and reliable, integrated with the underground portion, effectively preventing against theft.

·The unique telescopic structure with the stem can effectively prevent the valve from being affected by the ground submergence.

Executive standard

Flange standard: GB/T17241.6

Test and inspection: GB/T13927

Executive Standard:

Design and Manufacture: GB12238

Flange connection :GB/T 17241.6 (Cast Iron) GB/T 9113.1 (Cast Steel)

Face-to-face: GB/T12221 ,DIN3202-F4

Performance Parameters

Nominal diameter:2"-48"/DN50-DN1200

Working pressure:10Bar/16Bar/25Bar

Top Flange:ISO5211

Tightness Inspection: GB/T 13927

Main part material

Body: Cast Iron, Ductile Iron, Cast steel

Disc: Cast Iron, Ductile Iron ,Cast steel

Stem: Stainless Steel

Seat: NBR/EPDM