| ◆ 新闻中心 |
|
| ◆ 产品中心 |
|
| ◆ 联系我们 |
 |
电话：<%=Telephone%> |
| 传真：<%=fax%> |
| 地址：<%=address%> |
| 邮编：<%=zipcode%> |
| 邮箱：<%=email%> |
|
|
|
|
| ◆ 关于浴普 / About us |
 |
|
太阳能磁化技术专利拥有者—浴普索兰
江苏浴普太阳能有限公司，太阳能热水器高新技术企业。今天，浴普索兰推出磁化芯，引领太阳能行业进入磁化时代。
公司注册资金8680万,成立于1997年，20多年来专注太阳能光热、光电应用技术和产品的研发。发展为渠道、外贸、工程三驾马车并驾齐驱，集太阳能光热、光电技术研发、设计、制造、销售、安装于一体的专业化高科技创业。园区占地面积20万平方米，年生产能力100万台套。集现代化办公大楼、专业化厂房、国际一流高科技设备和大批业内顶尖人才为一体的大型产业基地，销售服务网络遍及全国各地，产品远销美国、新加坡、澳大利亚、韩国、智利、西班牙、东南亚、安哥拉、台湾等20多个国家和地区，并于2010年在安哥拉建立了分公司，成立了海外生产基地。
自公司成立以来，浴普索兰产品经省级以上质量监督检查合格率一直为100%。企业先后通过了ISO9001:2008质量体系认证和国家“3C”强制认证、“中国环境标志产品认证”、“欧盟CE认证”、节能产品和环保产品认证，产品由中国人民财产保险股份有限公司承保。浴普公司先后荣获“中国驰名商标”、“中国节能产品”、“环保产品”、“高新技术企业”、“江苏著名商标”、“江苏名牌”等荣誉称号，获评“江苏省质量信誉先进单位”、“江苏省民营科技企业”、“江苏省高新技术产品”，2012年更是凭借稳定的产品质量和卓越的市场表现成功中标节能产品惠民工程。热忱欢迎你来考察加盟!浴普索兰是
您代理首选品牌。
| ◆ 产品展示 / Products |
|
|
|
|
|
| ◆ 公司新闻 |
|
|
|
<%=News("0,")%>
| |
|
<%
function WebMenu(ParentID,i,level)
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from Qianbo_ProductSort where ViewFlag and ParentID="&ParentID&" order by ID asc"
rs.open sql,conn,1,1
if conn.execute("select ID from Qianbo_ProductSort Where ViewFlag and ParentID=0").eof then
response.write "暂无相关信息"
end if
do while not rs.eof
If ISHTML = 1 Then
AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
Else
AutoLink = "ProductList.asp?SortID="&rs("ID")&""
End If
response.write ""&rs("SortName")&""
i=i+1
if i0 order by id desc"
rs.open sql,conn,1,1
if rs.eof then
Response.Write " "&VbCrLf
Response.Write " | 暂无相关信息 | "&VbCrLf
Response.Write " "&VbCrLf
else
do while not rs.eof
If ISHTML = 1 Then
AutoLink = ""&OtherName&""&Separated&""&rs("ID")&"."&HTMLName&""
Else
AutoLink = "OtherView.asp?ID="&rs("ID")&""
End If
Response.Write " "&VbCrLf
Response.Write " ![]() "&StrLeft(rs("OthersName"),42)&" | "&VbCrLf
Response.Write " "&VbCrLf
rs.movenext
loop
end if
rs.close
set rs=nothing
end Function
function News(SortPath)
dim rs,sql,NewsName,NewFlag
set rs = server.createobject("adodb.recordset")
sql="select top 9 * from Qianbo_News where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
rs.open sql,conn,1,1
if rs.eof then
Response.Write " "&VbCrLf
Response.Write " | 暂无相关信息 | "&VbCrLf
Response.Write " "&VbCrLf
else
do while not rs.eof
if now()-rs("AddTime")<=2 then
NewsName=StrLeft(rs("NewsName"),42)
NewFlag=" ![]() "
else
NewsName=StrLeft(rs("NewsName"),46)
NewFlag=""
end If
If ISHTML = 1 Then
AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
Else
AutoLink = "NewsView.asp?ID="&rs("id")&""
End If
Response.Write " "&VbCrLf
Response.Write " "&VbCrLf
Response.Write " "&VbCrLf
Response.Write " ![]() "&NewsName&""&NewFlag&" | "&VbCrLf
Response.Write " ![]() "&FormatDate(rs("Addtime"),14)&" | "&VbCrLf
Response.Write " "&VbCrLf
Response.Write " | "&VbCrLf
Response.Write " "&VbCrLf
rs.movenext
loop
end if
rs.close
set rs=nothing
end Function
Function Products(SortPath,trs,tds)
dim rs,sql,tr,td,ProductName,SmallPicPath
set rs = server.createobject("adodb.recordset")
sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlag order by id desc"
'sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlag and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
'sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlag and NewFlag order by id desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "暂无相关信息"
else
Response.Write ""&VbCrLf
for tr=1 to trs
Response.Write " "&VbCrLf
for td=1 to tds
if StrLen(rs("ProductName"))<=18 then
ProductName=rs("ProductName")
else
ProductName=StrLeft(rs("ProductName"),16)
end If
If ISHTML = 1 Then
AutoLink = ""&ProName&""&Separated&""&rs("ID")&"."&HTMLName&""
Else
AutoLink = "ProductView.asp?ID="&rs("id")&""
End If
SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
Response.Write " "&VbCrLf
Response.Write " "&VbCrLf
Response.Write " ![]() | "&VbCrLf
Response.Write " "&VbCrLf
Response.Write " "&VbCrLf
Response.Write " | "&ProductName&" | "&VbCrLf
Response.Write " "&VbCrLf
Response.Write " | "&VbCrLf
Response.Write " | "&VbCrLf
rs.movenext
if rs.eof then exit for
next
Response.Write " "&VbCrLf
if rs.eof then exit for
next
Response.Write " "&VbCrLf
end if
rs.close
set rs=nothing
End Function
Function FriendLinks(trs,tds)
dim rs,sql,tr,td,ProductName,SmallPicPath
set rs = server.createobject("adodb.recordset")
sql="select top "&trs*tds&" * from Qianbo_FriendLink where ViewFlag order by ID desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "暂无相关信息"
else
Response.Write ""&VbCrLf
for tr=1 to trs
Response.Write " "&VbCrLf
for td=1 to tds
if StrLen(rs("LinkFace"))<=18 then
LinkFace=rs("LinkFace")
else
LinkFace=StrLeft(rs("LinkFace"),16)
end if
Response.Write " "&VbCrLf
Response.Write " "&VbCrLf
Response.Write " "
If rs("LinkType") = 0 Then
Response.Write ""&LinkFace&""
Else
Response.Write "![]() "
End If
Response.Write " | "&VbCrLf
Response.Write " "&VbCrLf
Response.Write " | "&VbCrLf
Response.Write " | "&VbCrLf
rs.movenext
if rs.eof then exit for
next
Response.Write " "&VbCrLf
if rs.eof then exit for
next
Response.Write " "&VbCrLf
end if
rs.close
set rs=nothing
End Function
%> |
