<% Set conn = Server.CreateObject("ADODB.Connection") conn.ConnectionString ="Provider=SQLOLEDB.1;Password=sctelecomtemp;User ID=sctelecom3;Persist Security Info=True;Initial Catalog=SCtelecom;Data source=localhost;Connect Timeout=15" conn.Open %> <% '我自己写的一些函数 '======================================================================================================== '比较两个字符串Str1和Str2,如果Str1包含Str2返回True,否则返回False Function CompString(Str1,Str2) If Instr(1,Str1,Str2,1) Then CompString=True Else CompString=False End If End Function '======================================================================================================== 'Str 要分解的String 'FirstLinkStr 第一个分解后的字符串的连接字符串前部 'LastLinkStr 最后一个分解后的字符串的连接字符串前部 'LinkStr1 非第一个分解后的字符串的连接字符串前部 'LinkStr2 分解后的字符串的连接字符串后部 '返回一个新的字符串 Function DeleaveString(Str,FirstLinkStr,LinkStr1,LinkStr2,LastLinkStr,Char) TempStr=Str If TempStr<>"" Then If Instr(1,TempStr,Char,1)<1 Then DeleaveString=FirstLinkStr&TempStr&LastLinkStr Else E=Instr(1,TempStr,Char,1) Strtmp=Left(TempStr,E-1) TempStr=Replace(TempStr,"","",E+1,1) DeleaveString=FirstLinkStr&Trim(Strtmp)&LinkStr2 Do While Instr(E,TempStr,Char,1) E=Instr(1,TempStr,Char,1) Strtmp=Left(TempStr,E-1) TempStr=Replace(TempStr,"","",E+1,1) DeleaveString=DeleaveString&LinkStr1&Trim(Strtmp)&LinkStr2 Loop DeleaveString=DeleaveString&LinkStr1&Trim(TempStr)&LastLinkStr End If End If End Function '======================================================================================================== '比较两个字符串,把相同的保留一个,组成一个新的字符串返回 Function CompLinkString(Str1,Str2,Char) TempStr1=Str1 TempStr2=Str2 If TempStr1<>"" Then If TempStr2<>"" Then If Instr(1,TempStr2,Char,1)<1 Then If Instr(1,TempStr1,TempStr2,1)<1 Then TempStr1=TempStr1&Char&TempStr2 End If Else Do While Instr(1,TempStr2,Char,1) E=Instr(1,TempStr2,Char,1) Str=Left(TempStr2,E-1) If Instr(1,TempStr1,Str,1)<1 Then TempStr1=TempStr1&Char&Trim(Str) End If TempStr2=Replace(TempStr2,"","",E+1,1) Loop Str=TempStr2 If Instr(1,TempStr1,Str,1)<1 Then TempStr1=TempStr1&","&Trim(Str) End If End If End If Else TempStr1=TempStr2 End If CompLinkString=TempStr1 End Function '======================================================================================================== '统计字符串中元素个数 Function CountElements(Str,Char) TempStr=Str If TempStr<>"" Then Count=0 If Instr(1,TempStr,Char,1)<1 Then CountElements=1 Else Do While Instr(1,TempStr,Char,1) Count=Count+1 TempStr=Replace(TempStr,Char,"",1,1) Loop CountElements=Count+1 End If Else CountElements=0 End If End Function '======================================================================================================== '取指定位置的字符串 Function GetElement(Str,Char,Num) TempStr=Replace(Str,"","") If TempStr<>"" Then Count=0 If Instr(1,TempStr,Char,1)<1 Then Count=1 Else Do While Instr(1,TempStr,Char,1) Count=Count+1 TempStr=Replace(TempStr,Char,"",1,1) Loop Count=Count+1 End If TempStr=Replace(TempStr,"",Char) If Count>1 Then If Num<1 Then GetElement="" End If If Num=1 Then GetElement=Left(TempStr,Instr(1,TempStr,Char,1)-1) End If If Num=Count Then For i=1 to Num-1 TempStr=Replace(TempStr,"","",Instr(1,TempStr,Char,1)+1,1) Next GetElement=TempStr End If If Num>Count Then GetElement="" End If If Num>1 And NumCountElements(Str,Char) Then GetElements="" Else If Total>=CountElements(Str,Char) Then GetElements=Replace(Str,Char,ChangeChar) Else GetElements="" For i=Start To Total+Start-1 GetElements=GetElements&GetElement(Str,Char,i)&ChangeChar Next GetElements=Left(GetElements,Len(GetElements)-1) End If End If End If End Function '======================================================================================================== '生成“全选”和“清除”按钮 'ForName 表单中Form的名字 'ElementName 表单中元素的名字 'Parameter 为1时只有“全选”按钮,为2时只有“清除”按钮,为3时有“全选”和“清除”按钮 Function ChkButton(FormName,ElementName,Parameter) If Parameter<=1 Or Parameter>=3 Then Response.Write "" Response.Write "" End If If Parameter>=2 Then Response.Write "" Response.Write "" End If End Function '======================================================================================================== '取指定两字符串之间的字符串 Function GetString(Str,FrontStr,BackStr) TempStr=Str If TempStr="" Then GetString="" Else If FrontStr="" Then If BackStr="" Then GetString=Trim(TempStr) Else If Instr(1,TempStr,BackStr,1) Then GetString=Trim(Left(TempStr,Instr(1,TempStr,BackStr,1)-1)) Else GetString="" End If End If Else If Instr(1,TempStr,FrontStr,1) Then If BackStr="" Then GetString=Trim(Mid(TempStr,Instr(TempStr,FrontStr,1)+1,Len(TempStr))) Else TempStr=Replace(TempStr,FrontStr,"",Instr(1,TempStr,FrontStr,1),1) If Instr(1,TempStr,BackStr,1) Then GetString=Trim(Left(TempStr,Instr(1,TempStr,BackStr,1)-1)) Else GetString="" End If End If Else GetString="" End If End If End If End Function '======================================================================================================== '日期和时间 'Parameter<=1 返回日期 'Parameter>1 返回日期和星期 'Parameter2 为2时返回的月、日长度为2 Function WeekDate(LinkString,Parameter,Parameter2) Y=Year(Date()) M=Month(Date()) D=Day(Date()) If Parameter2=2 Then If Len(M)=1 Then M="0"&M End If If Len(D)=1 Then D="0"&D End If End If Select Case WeekDay(Date()) Case 1 Week="星期日" Case 2 Week="星期一" Case 3 Week="星期二" Case 4 Week="星期三" Case 5 Week="星期四" Case 6 Week="星期五" Case 7 Week="星期六" End Select If Parameter="" Or Parameter<=1 Then If LinkString="" Then WeekDate=Y&"年"&M&"月"&D&"日" Else WeekDate=Y&LinkString&M&LinkString&D End If Else If LinkString="" Then WeekDate=Y&"年"&M&"月"&D&"日  "&Week Else WeekDate=Y&LinkString&M&LinkString&D&"  "&Week End If End If End Function '======================================================================================================== '取得明天的日期 'LinkStr 年月日之间的连接字符串 Function Tomorrow(LinkStr) ThisYear=Year(Date()) ThisMonth=Month(Date()) ThisDay=Day(Date()) If LinkStr="" Then LinkStr1="年" LinkStr2="月" LinkStr3="日" Else LinkStr1=LinkStr LinkStr2=LinkStr LinkStr3="" End If Select Case ThisMonth Case 1,3,5,7,8,10,12 If ThisDay+1<=31 Then Tomorrow=ThisYear&LinkStr1&ThisMonth&LinkStr2&ThisDay+1&LinkStr3 Else If ThisMonth=12 Then Tomorrow=ThisYear+1&LinkStr1&"1"&LinkStr2&"1"&LinkStr3 Else Tomorrow=ThisYear&LinkStr1&ThisMonth+1&LinkStr2&"1"&LinkStr3 End If End if Case 2 If ThisYear\4=0 Then If ThisDay+1>29 Then Tomorrow=ThisYear&LinkStr1&"3"&LinkStr2&"1"&LinkStr3 Else Tomorrow=ThisYear&LinkStr1&"2"&LinkStr2&ThisDay+1&LinkStr3 End If Else If ThisDay+1>28 Then Tomorrow=ThisYear&LinkStr1&"3"&LinkStr2&"1"&LinkStr3 Else Tomorrow=ThisYear&LinkStr1&"2"&LinkStr2&ThisDay+1&LinkStr3 End If End If Case 4,6,9,11 If ThisDay+1<=30 Then Tomorrow=ThisYear&LinkStr1&ThisMonth&LinkStr2&ThisDay+1&LinkStr3 Else Tomorrow=ThisYear&LinkStr1&ThisMonth+1&LinkStr2&"1"&LinkStr3 End if End Select End Function '======================================================================================================== Function FormatNum(Number) If Number<0 Then If Instr(1,Cstr(Number),".")=2 Then Number="-0."&Right(Cstr(Number),Len(Cstr(Number))-2) End If Else If Number<1 And Number>0 Then If Instr(1,Cstr(Number),".")=1 Then Number="0"&Cstr(Number) End If Else Number=Number End If End If FormatNum=Number End Function '======================================================================================================== '格式化日期 Function FormatDate(Str,Char,ChangeChar) If Str<>"" Then FormatDate="" For i=1 To CountElements(Str,Char) TmpStr=GetElement(Str,Char,i) If Len(TmpStr)<2 Then TmpStr="0"&TmpStr End If if i - CountElements(Str,Char)=0 then FormatDate=FormatDate&TmpStr else FormatDate=FormatDate&TmpStr&ChangeChar end if Next Else FormatDate="" End If End Function '======================================================================================================== Function IsSelected(Str,Str2,Out) If Str=Str2 Then IsSelected=Out End Function '======================================================================================================== Function NoSpac(Str) If Str="" Then NoSpac=" " Else NoSpac=Str End If End Function '======================================================================================================== '显示文本格式! function Text(strTemp) if strtemp<>"" then MessageText = server.htmlencode(strTemp) MessageText = replace(MessageText,"<","<") MessageText = replace(MessageText,">",">") MessageText = replace(MessageText,""","""") MessageText = replace(MessageText,chr(13),"
") MessageText = replace(MessageText,chr(32)," ") text=Messagetext end if end function '======================================================================================================== '-年-月-日的日期格式 Function DateCH(strTemp) if isdate(strTemp) then YYYY=Year(strTemp) MM=Month(strTemp) DD=Day(strTemp) DateCH=YYYY&"年"&MM&"月"&DD&"日" else DateCH=strTemp end if End Function '======================================================================================================== %> <% ID=trim(request("ID")) if not isnumeric(id) then response.write "您输入了错误的ID号" response.end end if set rs=Server.CreateObject("ADODB.RecordSet") %> 四川省电信有限公司
  首页 关于我们 企业动态 电信业务 网上客服中心 技术前沿 总经理信箱 品牌管理系统 English
2007:电信业将保持平稳发展态势

 

  今年1月份通信行业的统计数据出来后,业内人士和一些专家深感忧虑:1月份电信业务收入与去年同期相比,仅增加6.6%,不但远低于GDP增幅,而且还创下了近年来单月电信业务收入增幅的新低。一些专家认为,照这个趋势发展下去,今年行业增长的数字会很难看,并断言电信业发展的衰退期已经到来。

  果真如此吗?电信业这个被称为国民经济的基础性、支柱性、先导性的朝阳行业会变成夕阳产业吗?记者经过深入调查分析认为,虽然电信业增长趋缓是不可逆转的潮流,而且当前还存在着影响行业发展的深层次矛盾和问题,但像1月份如此低的增幅可能只是一个个案。从全年乃至更长远来看,全行业仍将保持持续平稳发展的势头。这是因为,电信业是一个与经济发展紧密相关的行业,我们不能仅就行业自身看行业的发展,而应该站在国民经济发展全局的高度,分析经济社会发展对行业带来的影响。从外部环境来看,今年电信业发展仍面临着有利的形势:经济持续快速发展,科学发展观的全面落实要求电信业发挥更大作用;信息化建设全面深入推进,一些重要的政策法规年内出台,将为电信业发展提供新的市场空间。从行业自身来看,3G的平稳起步,也将为行业发展注入新的活力。

  科学发展观全面落实:要求电信业发挥更大支撑作用

  今年《政府工作报告》提出的工作基本思路,归纳起来就是要全面落实科学发展观,推进四个“着力”:着力调整经济结构和转变增长方式;着力加强资源节约和环境保护;着力推进改革开放和自主创新;着力促进社会发展和解决民生问题。在报告中,有12处提到通信与信息产业,赋予了信息通信业在全面落实科学发展观中的重要职责。

  在经济发展速度方面,报告提出了在优化结构、提高效益和降低消耗、保护环境的基础上,国内生产总值增长8%的目标。从近几年的发展情况来看,GDP增幅都高于年初预定目标,所以专家认为,今年GDP的实际增幅也将与前几年持平,即保持在10%左右。应该说,这仍是一个高速度。电信业作为国民经济的基础行业,其自身的发展越来越融入经济社会发展之中。经济的高速发展和持续繁荣,人民生活水平的不断提高,必将对电信业务产生持续需求。这是判断电信业发展的大环境、大前提。

  政府工作报告提出以四个“着力”全面落实科学发展观。专家认为,实现这四个“着力”,哪一个也离不开电信业的支撑。调整经济结构和转变增长方式,与加强资源节约和环境保护是一脉相承的,其核心是转变粗放型的经济增长方式,改变依赖高投入、高消耗、高污染发展经济的模式,把经济发展转移到依靠科技进步和提高效益的轨道上来。电信业是一个高科技和服务性的行业,是国家大力鼓励和倡导发展的行业,其自身的快速发展就是经济结构调整的重要组成部分。不仅如此,电信业最大的特点是具有较强的渗透性、辐射性和带动性,可以大幅降低社会交易成本,提高经济运行的质量和效益。因此,电信业对优化结构、提高效益、节能降耗都是有重要促进作用的。作为一个高技术含量的行业,电信业也是自主创新活跃的领域,在建设创新型国家方面承担着重要的职责。我国具有自主知识产权的第三代移动通信标准TD-SCD-MA的提出,就是一个重要证明。而促进社会发展和解决民生问题,一个重要的方面是消除横亘在城乡之间的“数字鸿沟”,改变农民获取信息难的现状。近几年电信部门开展的“村村通电话”工程,在解决“三农”问题、建设社会主义新农村中发挥了重要的推动作用。

  今年经济社会发展的良好环境,将继续为电信业发展带来重要机遇。电信行业只有站在经济社会发展全局的高度,认清自己的责任和使命,在服务好、支撑好经济发展的同时,才能实现自身的持续快速发展。

  信息化全面深入推进:电信业大有用武之地

  今年的政府工作报告提出要“继续推进国民经济和社会信息化”。其实,2007年是我国信息化建设中一个重要的年份。《2006~2010国家信息化发展战略》的深入贯彻和信息化“十一五”专项规划的出台,以及一系列信息化政策法规的实施,将把我国信息化建设推向一个全面深入落实的新阶段。

  据悉,国家将在近期召开全国信息化工作会议,具体部署落实《2006~2010国家信息化发展战略》和信息化“十一五”专项规划。这将是近年来国家召开的一次规格高、规模大的信息化专门会议,各地区、各领域、各部门主管信息化的领导将参加会议。这充分说明了党和国家对信息化建设的高度重视。这次大会将进一步增强全社会的信息化意识,在全国掀起一个信息化建设的新高潮。

  同时,政府主管部门正在全力营造信息化发展的政策环境。今年初,国务院信息化工作办公室与国资委联合发布了《关于加强中央企业信息化工作的指导意见》,提出了中央企业信息化工作的指导思想和基本原则、发展目标和主要任务、措施和要求,其中强调有条件的中央企业要设立由企业领导成员担任的总信息师(CIO)岗位,并明确提出要加强信息化绩效考核,建立健全激励约束机制。专家分析指出,这将使已经先行一步的央企信息化建设走向深入,进一步提高央企的信息化应用水平。如果说政府对大型企业的信息化重在提高的话,对数量众多的中小企业则重在普及。目前有关部门正在起草推进我国中小企业信息化发展的指导意见,预计年内可以发布。这个指导意见将重点提出推动中小企业信息化的政策措施,会提高中小企业利用信息化手段的积极性,加速中小企业信息化的普及率。另外,有关部门也在加紧制订以信息化促进社会主义新农村建设的政策建议等。信息化的政策法规体系正在不断完善。

  电信业是推进信息化建设的基础平台和核心力量,信息化建设全面深入的推进,将为电信业发展开辟广阔的市场空间。随着信息化的全面推进和在重点领域的突破,正致力于面向信息化转型的电信企业将大有用武之地。

  3G发展平稳起步:为行业发展注入新的活力

  今年最令业界感到振奋的亮点,无疑是王旭东部长在全国信息产业工作会议讲话中提出的“确保3G发展平稳起步”。这意味着经过多年的准备和努力之后,人们期待已久的3G,将在今年正式迈出建设的步伐。3G之于电信行业,绝不仅仅只是一个牌照、一项业务那么简单,它承载着行业太多的期待与梦想,将带来行业发展格局的重要变化,为处于发展平稳期的电信业注入新的活力。

  作为对推动3G发展的积极回应,今年春节前后,传出了政府继续扩大TD-SCDMA试验网范围,在全国10个城市加紧进行规模网络技术应用试验的消息。业内专家认为,要满足这10个城市规模网络试验的要求,将需要上百亿元人民币的网络建设投资。这对近几年固定资产投资持续徘徊的电信行业来说,无疑是一剂强心针,它将激活因语音下滑而显得沉闷的电信市场。对电信企业来讲,当前再谈论牌照发放的具体日期已经没有太大的意义,3G已经开始事实上的平稳起步,企业所要做的,就是尽最大努力把TD试验网搞好,完善在规模用户下的网络支撑能力,积累商业运营的经验,为3G的成功打好坚实基础。

  3G的平稳起步,不仅开启了中国下一代移动通信网络的建设,而且将带来整个产业价值链的变化。专家认为,3G与2G最大的不同,在于2G是一个以语音为主的网络,而3G是一个以内容应用服务为主的网络。从国外运营的经验来看,要想使3G获得商业上的成功,运营商不但要建一张完善的网,而且要下大力气开发用户需要的业务应用,提升用户的使用价值。建网并不困难,因为技术已经成熟,只要有资金投入就可很快完成;难的是如何开发移动增值业务,推出像短信、彩铃这样丰富多彩的业务应用。从日韩的成功经验来看,运营商打造一个涵盖制造商、内容服务提供商、终端厂商在内的3G产业链至为关键。3G的运营,实际上是整个产业链的协同作战,甚至还包括与广电、金融等跨行业的合作。因此,运营商要以3G起步为契机,加紧研究移动业务的创新,推动产业链的进一步完善。

  3G的平稳起步,还将带来市场格局的重构。固定与移动电话市场的严重失衡,是目前电信业发展中面临的一个重要问题,影响到整个行业的协调可持续发展。因此,3G还肩负着一个重要的使命,就是借3G牌照发放之机,实现固网运营商的全业务经营,使业务急剧下滑、发展后继乏力的固网企业找到新的增长点,改变市场竞争日益失衡的电信格局。

  因此,虽然2007年电信业发展仍面临不少困难和问题,但只要抓住经济社会发展和信息化推进带来的机遇,把握好3G平稳起步的重要契机,全行业是能够实现又好又快的发展目标的。

 
中国电信
<%set rs=nothing%> <% conn.close set conn=nothing %>

版权所有-四川省电信有限公司 
Copyright(C) SICHUAN TELECOM COMPANY LIMITED. All rights reserved
本网站由
天府热线设计制作