<% 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