电力能源
万德威尔电力行业热控工程全套解决方案,拥有国内火电全厂热控仪表成套工程典范业绩300多项。
案例业绩 >>>
石化轻工
冶金制造
其它行业
 
<% function HTMLEncode(fString) if not isnull(fString) then fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = Replace(fString, CHR(32), " ") fString = Replace(fString, CHR(9), " ") fString = Replace(fString, CHR(34), """) fString = Replace(fString, CHR(39), "'") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "

") fString = Replace(fString, CHR(10), "
") HTMLEncode = fString else HTMLEncode = fString end if end function dim PageNumber,RecordNumberPerPage,subcateid,hang,l if Request.QueryString("PageNumber").count >0 and trim(Request.QueryString("PageNumber"))<>"" then PageNumber = Request.QueryString("PageNumber")(1) else PageNumber = 1 end if hang=7 l=2 RecordNumberPerPage =hang*2 subcateid=trim(request("proclassid")) if not isNumeric(subcateid) then response.Redirect("adjuster.htm") end if Dim conn Set conn=server.createobject("ADODB.connection") conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("sysmanage/data/widewell200707010101.mdb") conn.open Dim sqlstr,rs,i,str Sqlstr = "select * from product where subcateid="&subcateid&" order by orderindex desc" Set rs = Server.CreateObject("ADODB.RecordSet") Rs.open sqlstr,conn,1,2 %> <% Sqlstr = "select * from subcate where subcateid="&subcateid Set rs2 = Server.CreateObject("ADODB.RecordSet") Rs2.open sqlstr,conn,1,2 if not rs2.eof then subcatename=rs2("subcatename") cateid=rs2("cateid") set rs2=conn.execute("select * from cate where cateid="&cateid&"") catename=rs2("catename") end if rs2.close set rs2=nothing %>
产品介绍 >>> 意大利INDRA(英达尔)公司产品 >>> 高温高压仪表阀
<% str="" if not rs.eof then rs.PageSize = RecordNumberPerPage rs.AbsolutePage = PageNumber for ii=1 to hang str = str & "" for jj=1 to l str = str & "" next str = str & "" str = str & "" next else str = str & "" end if response.write str if rs.recordcount>0 then %> <% end if %>
高温高压仪表阀
" if not rs.eof then str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "
" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" if trim(rs("filelink"))<>"" then str = str & "" else str = str & "" end if str = str & "" str = str & "" str = str & "
" str = str & " "&rs("pro_name")&"
"&HTMLEncode(rs("pro_info"))&"
" rs.movenext() else end if str = str & "
暂无添加产品

||

广州万德威尔自动化系统有限公司 版权所有 Copyright 2007
地址:广州市经济技术开发区沙湾2街13号
电话(Tel):020-82229880(总机)