<% 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 %> 北京航天拓扑高科技有限责任公司
     

     

     

     

    系统简介

      "建设新型城市、支持和保障城市的可持续性发展"是当前我国城市经济发展的重要举措之一。加强公用事业工作管理,改革经营机制是实现新型城市的一项重要举措。资源的合理利用,费用的回收与管理是城市公用事业健康发展的重要环节。如今,随着知识经济和信息时代的到来,以及我国加入WTO给国有企业特别是公共事业带来的冲击,公用事业企业应该由传统的单一生产型转变为生产经营型和社会服务型,因此传统的管理方式已不再适用。提高工作效率和管理水平是企业亟待解决的事情。

        城市公用事业营业收费是一项及其繁琐、复杂的工作,而且还需要及时性和准确性,随着城市的发展,城市资源供给的规模不断扩大,传统的营业收费方式已经不能适应目前庞大而复杂的费用管理工作。为了满足当前我国大多数城市资源收费的需要,使公用事业企业能够合理、及时、准确的收费,保证企业的健康快速的发展,海星科技系统集成公司开发出《海星城市公用事业营业计费系统》满足大多数公用事业单位的需要。

     

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