美国红狮控制以产品质量和产品价值为导向，生产和销售工业控制产品，您可以在下面的产品索引中找到您需要的产品。目前红狮已经有全球的销售网络，能够为您提供工业领域所有的控制以及监控应用的解决方案。

有关 RoHS/WEEE 信息 请单击此处.
<%=TopNews(10)%>

.: 新闻中心 :.
.: 2009年商业活动计划 :.
.: 红狮国际新闻 :.
G3 Kadets

G3操作界面功能
PFM - Plant Floor Marquee

大图形显示界面
IAMS

万能信号调节器
LD
Large Displays

2.25" and 4" 高亮LD监视器
（用于工厂过程控制）
CUB5
Panel Meters

全功能面板
Data Station Plus

控制转换器、数据日志、WEB界面

保密政策 | 条款和环境 | 授权声明
订单修改政策 | 回退政策
<% function TopAffiche() dim rs,sql,i,NewsName set rs = server.createobject("adodb.recordset") sql="select ID,NewsName,SortID from Ameav_News where ViewFlag and NoticeFlag order by id desc" rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "暂无相关信息" else for i=1 to 6 if rs.eof then exit for if StrLen(rs("NewsName"))<=24 then NewsName=rs("NewsName") else NewsName=StrLeft(rs("NewsName"),22) end if response.write"" response.write "" rs.movenext next response.write"
 "&NewsName&"
" rs.close end if set rs=nothing end function function PrductNews() dim rs,sql,i,ProductName set rs = server.createobject("adodb.recordset") sql="select top 6 ID,ProductName,SortID,AddTime,GroupID,Exclusive from Ameav_Products where CommendFlag order by id desc" rs.open sql,conn,1,1 response.write"" response.write "" if rs.bof and rs.eof then response.write "" else for i=1 to 6 if rs.eof then exit for if StrLen(rs("ProductName"))<=24 then ProductName=rs("ProductName") else ProductName=StrLeft(rs("ProductName"),22) end if if now()-rs("AddTime")<=2 then NewFlag=" " else NewFlag="" end if response.write"" rs.movenext next end if response.write "" response.write"
暂无相关信息
 "&ProductName&"
" rs.close set rs=nothing end function function rightNews(Keyword) dim rs,sql,i,NewsName,NewFlag set rs = server.createobject("adodb.recordset") sql="select ID,DownName,SortID,AddTime,SortPath from Ameav_Download where SortPath like '%" & Keyword &"%' and ViewFlag order by id desc" rs.open sql,conn,1,1 response.write"" response.write "" if rs.bof and rs.eof then response.write "" else for i=1 to 6 if rs.eof then exit for if StrLen(rs("DownName"))<=24 then NewsName=rs("DownName") else NewsName=StrLeft(rs("DownName"),22) end if if now()-rs("AddTime")<=2 then NewFlag=" " else NewFlag="" end if response.write"" rs.movenext next end if response.write "" response.write"
暂无相关信息
 "&NewsName&"
" rs.close set rs=nothing end function function TopNews(Keyword) dim rs,sql,i,NewsName,NewFlag set rs = server.createobject("adodb.recordset") sql="select ID,NewsName,SortID,AddTime,SortPath from Ameav_News where SortPath like '%" & Keyword &"%' and ViewFlag order by id desc" rs.open sql,conn,1,1 response.write"" response.write "" if rs.bof and rs.eof then response.write "" else for i=1 to 5 if rs.eof then exit for if StrLen(rs("NewsName"))<=102 then NewsName=rs("NewsName") else NewsName=StrLeft(rs("NewsName"),100) end if if now()-rs("AddTime")<=2 then NewFlag=" " else NewFlag="" end if response.write"" rs.movenext next end if response.write "" response.write"
暂无相关信息
 "&NewsName&""&NewFlag&"
" rs.close set rs=nothing end function function TopProducts() dim rs,sql,i,ProductName,SmallPicPath set rs = server.createobject("adodb.recordset") sql="select top 10 ID,ProductName,SortID,SmallPic,GroupID,Exclusive from Ameav_Products where ViewFlag and NewFlag order by id desc" rs.open sql,conn,1,1 response.write"" if rs.bof and rs.eof then response.write "" else response.write"" do while not rs.eof response.write"" rs.movenext loop response.write"" end if response.write "
暂无相关信息
" if StrLen(rs("ProductName"))<=12 then ProductName=rs("ProductName") else ProductName=StrLeft(rs("ProductName"),10) end if SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive")) response.Write"
" response.write "" &_ "" &_ "
 "&ProductName&"" response.Write "
" response.write"
" rs.close set rs=nothing end function %>