<% 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
王部长:信息产业实现“十一五”良好开局

 

  12月28日,王旭东部长在全国信息产业工作报告中,全面总结了2006年的工作。他指出,2006年,全国信息产业部门在党中央、国务院的正确领导下,以科学发展观统揽全局,着力推进结构调整、自主创新和职能转变,全行业持续快速协调健康发展,实现了“十一五”良好开局。预计,2006年信息产业实现增加值1.52万亿元,占GDP的比重达到7.5%。

  通信业转型取得积极成效。全行业树立信息服务大行业观念,面向信息化大市场,积极培育新的业务增长点,整体服务水平明显提高。预计,通信业务总量完成1.52万亿元,比上年增长24.6%;业务收入完成7050亿元,增长10.6%;电信资费整体水平下降11.47%。固定资产投资完成2300亿元。固定电话、移动电话用户分别新增1960万户和6660万户,总数达到8.3亿户,普及率分别达到28.3%和35.2%。互联网上网人数已达1.32亿,宽带接入用户达5200万户。非话音业务收入增长34.2%,比重由上年的22%提高到26%。TD-SCDMA规模网络技术应用试验取得阶段性成果。全国通电话行政村比重达到98.85%,24个省份实现了全部行政村通电话。

  电子信息产业继续保持平稳较快发展。预计全行业实现销售收入4.75万亿元,增长24%,其中软件业4800亿元,增长23%。实现利税2200亿元,增长12%。产品出口3420亿美元,增长30%,占全国外贸出口总额的36%。骨干企业综合竞争力进一步提高,销售收入超过200亿元的企业有10家,其中超过1000亿元两家。产业结构优化升级步伐加快,软件外包发展迅速,集成电路设计能力进一步提高,平板显示器件等新的增长点初步形成,通信产品、计算机、新一代消费电子对产业发展的拉动作用突出。国家电子信息产业基地和产业园建设稳步推进,产业集聚和带动作用日益显现。军工电子重点科研生产任务按计划完成,军民结合、民技军用工作取得新进展,行业管理得到改进和加强。

  自主创新能力不断提高。组织召开了全国信息产业科技创新会议,发布了信息产业科技发展“十一五”规划和2020年中长期规划纲要,启动新一代宽带无线移动通信等重大科技专项的实施方案的编制工作。建设了一批软件与集成电路公共服务平台,产业联盟对科研开发和成果产业化的推动作用有效发挥。集成电路、软件、数字电视、数字集群、光通信、信息安全等领域涌现出一批具有自主知识产权的技术和产品。运营企业建立研发机构、加大研发投入,在完善创新机制方面取得新的成效。标准和知识产权工作取得新成果,全年共发布行业标准284项,申报并获批准国家标准49项。

  行业管理和市场监管工作进一步加强。对行业发展的规划指导力度加大,组织完成了信息产业“十一五”行业规划、专项规划、职能规划和区域规划的编制工作。各级电信监管部门按照“以人为本、监管为民”的理念和社会利益最大化的要求,从维护广大消费者合法权益出发,加大工作力度,创新管理方式,扎实开展“畅通网络、诚信服务”及“阳光绿色网络工程”等活动,在互联互通、网络与信息安全管理等方面取得了明显成效。针对用户反映强烈的移动信息服务、垃圾邮件等热点问题进行了专项整治和规范。稳步推进电信资费管理方式改革,引导企业降低部分地区过高的移动电话资费和区间通话费,受到社会各方面和用户的欢迎。建设项目管理和质量监督力度加大,通信建设市场秩序好转。应急通信和党政专用通信工作得到加强。修订发布了频率划分规定,加强了台站管理,无线电管理整体水平进一步提高。会同有关部门开展了软件正版化、移动电话机市场秩序专项整治,加大了卫星广播电视接收设备、税控收款机等产品的管理力度,整顿和规范电子信息产品市场取得积极成效。安全生产监督管理工作加强。

  信息化推进工作深入开展。全行业认真贯彻落实国家信息化发展战略,配合有关部门积极推进各项信息化重大工程建设,电子政务、电子商务及企业、城市信息化推进工作力度加大。认真贯彻落实电子签名法,完善了电子认证服务工作,网络信任体系建设稳步推进。信息技术应用促进条例研究制订工作启动,组织实施了信息技术推广应用倍增计划。研究提出了信息产业参与社会主义新农村建设的工作意见,农村信息化综合信息服务试点取得初步成效。信息系统工程监理得到加强。配合有关部门推动全国农村党员干部现代远程教育试点工作取得新进展。

  对外交流与合作成效明显。广泛开展了对外经济技术合作,利用外资的质量和水平有了新的提高,企业“走出去”的领域和范围逐步扩大。积极开展贸易摩擦应对工作。推动国家对部分电子产品出口退税率进行了调整。做好加入WTO后过渡期各项工作,参与了我国对有关国家和地区贸易谈判及自由贸易区有关谈判。两岸信息产业合作进一步加强,积极推进CEPA的落实及内地与港澳信息产业合作。我国连任国际电联理事国,我国推荐的国际电联副秘书长人选成功当选。在有关各方的共同努力下,2006年世界电信展在香港成功举办。

  转变政府职能、依法行政和队伍建设取得新进展。认真贯彻中央有关要求和部署,按照“退后一步、站高一步”的思路,全面履行政府各项职能。电信法起草及邮政法、无线电管理条例修订工作取得新进展,电子信息产品污染控制管理办法等部门规章出台。启动了软件与集成电路产业发展条例研究制订工作。确定了由信息产业部实施的行政许可项目的条件、期限和程序,积极推进通信行政执法责任制。加强政策制订、信息发布及政务公开工作。邮政体制改革稳步实施。班子、队伍建设及人才培训、干部交流工作力度加大。深入开展治理商业贿赂专项工作,审计监督和财务管理得到加强,党风廉政建设和反腐败工作稳步推进。老干部、机关后勤工作取得新成绩。

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

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