<% 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 %> About Us-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
About UsHome>About Us

China Bohai Valve Group Co., Ltd. was founded in 1980, headquarter is located in Tianjin Bohai Economic Zone ,No88 Gaoying Road, Beizhakou Town, Jinnan District ,Tianjin, China .And it's with the land area up to 80000 square meters ,which is an enterprise with product development ,manufacturing and marketing .All of our products are designed by USA 3D CAD computer auxiliary ,with powerful technical development capacity .

 

To guarantee a stable and reliable product quality ,we have the CNC numerical control multi-post processing center,5 meter extra-large aperture numerical control vertical lathes and a large drilling-cutting center. Our automated production degree is up to the worldwide advanced level .Products are made with the latest manufacturing technologies both from domestic and overseas ,strictly standarded with ANSI，API ,DIN ,BS ,JPI,JIS and advanced abroad standards also GB .Our products' working pressure is from 1.0Mpa to 10Mpa and nominal diameter from 15mm to 4500mm. Our products are including butterfly valve ,gate valve, globe valve ,ball valve, check valve ,water power control valve, exhaust valve, filter, expansion bend ,pipeline fittings, applicable for the water supply and drainage, air conditioning, plumbing systems, petroleum ,chemical industry ,shipping ,pharmaceutical and etc .

 

For a long time, Bohai Valve Group has applied the advanced management ideas in the factory management mode and the advanced production resource and storage management systems in the product controlling .In the mean time ,actively carried out the combination of "production ,studying and researching" utilized the talents from famous universities, research institutes and technical sources then cooperated for establishing a valve technology research and development center ,which has been first passed the ISO9001 international quality system ,ISO14001 environmental system and OHSAS18001 professional health and safety management system .Till now ,our company and products have been awarded with TS ,3C ,CE and WRAS approvals also become the member unit of China Engineering Construction Association and China Electric Power Corporation’s Network ,the networking unit of the four large power plants of China and the major valve supplier of the hydro power station industry of China .

 

Bohai Valve Group has been always following the motto "technology makes perfection, quality brings up Bohai”. Basing on the quality of products and good pre-sales ,during-sales and after-sales service ,company has won a great evaluation from the customers in domestic and overseas ,the products are well sold all over the world ,mainly export to some regions in Europe ,middle east and southeast of Asia. We will insist on our principle "Quality first ,customers superior" and serving the society and satisfied the customers ,sincerely hope to cooperate with you in the near future !

PRIVACY POLICY

Butterfly Valve

Ball Valve

WCB Gate, Globe, Check Valve

CONTACT US