北京航天拓扑高科技有限责任公司

<% function getlengthb(g_str,g_num,g_r) dim g_i,g_s,g_n if lenb(g_str)>g_num then g_s="" g_n=0 for g_i=1 to len(g_str) if asc(mid(g_str,g_i,1))<0 or asc(mid(g_str,g_i,1))>255 then g_n=g_n+2 else g_n=g_n+1 end if if g_n<=g_num then g_s=g_s & mid(g_str,g_i,1) else exit for end if next g_s=g_s & g_r else g_s=g_str end if getlengthb=g_s end function dim newStr,newStr2 set rs=server.CreateObject ("adodb.recordset") sql="select top 13 * from ht_xw where class in (select id from ht_xw_class where keys='yaowen') order by id desc" rs.Open sql,conn,3 str="" for i=1 to 8 if rs.eof then exit for end if newStr=newStr & "

"&getlengthb(realdata(rs("bt")),34,"…")&"" rs.MoveNext if not rs.eof then newStr=newStr & "" newStr=newStr & "" newStr=newStr & "

" end if newStr=newStr & "

" next for i=1 to 5 if rs.eof then exit for end if newStr2=newStr2 & "

"&getlengthb(realdata(rs("bt")),34,"…")&"" rs.MoveNext if not rs.eof then newStr2=newStr2 & "" newStr2=newStr2 & "" newStr2=newStr2 & "

" end if newStr2=newStr2 & "

" next %> 北京航天拓扑高科技有限责任公司

系统领域

监控与数据采集（SCADA）系统

城市燃气输配调度监控与数据采集系统
城市集中供热计算机监控调度系统
城市供水计算机监控调度系统

更多信息

生产过程自动化控制及车间和厂级计算机管理信息网络系统

卷烟厂、打叶复烤厂等工厂生产线自动化控制系统
车间监控管理系统及计算机管理信息网络系统
工厂动力中心监控及管理系统（包括能源管理

更多信息

其它业务

特种、军用高频开关电源产品
电器设备生产、安装、调试等
污水处理监控系统

更多信息

版权所有：北京航天拓扑高科技有限责任公司　电话：010-58080888或0816　传真：58080802或0814　 E-mail：service@aerotop.com.cn