<% 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日,王旭东部长在全国信息产业工作电视电话会议上强调,全行业要认真学习、深刻领会中央一系列决策的重要意义,把思想认识统一到中央的决策和部署上来,在信息产业发展、改革、监管工作的实践中,认真加以贯彻落实。他说,当前信息产业发展环境总体上是好的,同时也出现了一些新情况、新问题、新特点,我们要立足于国际国内大环境,加强对形势的研究、分析和把握,提高指导行业发展的能力和水平。

  第一,信息技术发展方兴未艾,产业发展的机遇与挑战并存。当前,信息技术更新速度明显加快,孕育新的重大变革,集成电路技术已进入纳米级制造和片上系统时代,计算机技术体系结构和软件技术将出现重大变革,音视频技术继续向数字化、高集成化、多功能化方向发展。全球电信业转型步伐加快,技术业务创新更趋活跃,“三网融合”进程加速,电信技术业务移动化、宽带化、IP化及多媒体化的趋势日益明显,第三代移动通信、宽带接入、下一代互联网已广泛商用。技术之间的融合、技术与市场紧密结合,已成为产业发展的驱动力量。这就对我们判断形势、把握方向、制订 政策提出了更高的要求。如果决策正确,就可以实现技术上的跨越与赶超,否则就会出现失误,就会走弯路,影响行业的持续平稳发展。

  第二,生产要素全球配置的特点日益突出,我国信息产业国际化程度越来越高。随着经济全球化的快速发展,我国信息产业与全球产业发展之间的相互联系越来越紧密,出现了一些新的情况,如核心技术的竞争日趋白热化,专利、标准和品牌成为各国夺取竞争优势的制高点;跨国公司的产业转移、跨国投资和并购活动往往影响到全球;经济全球化有利于产品出口和企业“走出去”,但针对我国产业的贸易摩擦和知识产权纠纷也在增多;电信技术、业务创新和行业转型成为新的潮流,国外电信公司纷纷进行战略调整和企业重组,对国际市场的争夺加剧;随着WTO后过渡期的结束,我国电信业务市场将进一步扩大开放,市场竞争将更趋激烈,等等。要充分认识国际化发展的影响,要看到国外技术、产业的发展变化,往往会对我们的发展产生直接的影响,而我们的一些政策和举措,也往往会引起国外的关注。这就要求我们必须以全球的眼光来思考和谋划,统筹国内发展和对外开放,充分利用两个市场、两种资源,增强在开放条件下促进发展的能力。

  第三,国家一系列发展战略和政策的实施,要求信息产业充分发挥在国民经济全局中的重要作用。中央实施促进经济社会发展的一系列战略举措,各行各业加快推进信息化建设对信息产业提供服务支撑的方式、手段和能力提出了更高的要求。可以预见,在整个“十一五”乃至更长的时间里,信息产业的发展空间很大,将继续保持快速平稳的增长。目前,我国经济粗放型增长的问题还比较突出,要积极利用信息技术改造和提升传统产业,走新型工业化道路,促进节能降耗和污染减排。同时,国民经济发展全局,要求信息产业必须加快自身增长方式的转变,推进电信强国、电子强国建设,实现又好又快发展。

  第四,构建社会主义和谐社会,要求我们切实维护好最广大人民群众的根本利益。通信服务、信息产品的渗透性强、覆盖面广,关系到千家万户和社会的方方面面,与人民群众的切身利益息息相关。这就要求我们的行业发展必须与和谐社会的建设相适应,更加注重城乡之间、区域之间的协调发展,更加注重提高产品和服务质量,更加注重解决服务热点、难点问题。当前,服务工作出现了一些新的特点,广大消费者不仅要求享受优质、高效的服务,而且依法维权的意识明显增强,要求提高服务、资费的透明度,要求有充分的知情权;对服务中出现的问题,要求有畅通的申诉、反馈渠道,能够及时解决问题。这就要求我们进一步转变思想观念,改进工作方式方法,真正解决好人民群众最关心、最直接、最现实的利益问题,实现和谐发展。

  第五,要清醒地认识到当前行业发展中存在的矛盾和问题。主要有以下几个方面。一是核心基础产业薄弱,出口产品附加价值低,企业综合竞争力不强,产业结构不合理的矛盾仍然十分突出。二是软件产业规模偏小,软件硬件比例失调,关键技术和高端产品缺乏。三是核心技术受制于人,自主创新能力亟待提高,科技投入不足,鼓励创新的配套政策还不完善,管理体制和机制还不能满足自主创新的要求。四是运营业技术业务创新与发达国家相比有较大差距,非话音业务比重较低,农村通信发展与新农村建设的要求还不相适应,综合竞争力有待增强。五是电信市场竞争结构明显失衡,通信法制建设相对滞后,监管能力建设有待进一步加强。六是通信服务质量虽然有了较大改善,但热点问题还依然存在,特别是监管工作到底应该代表谁的利益、企业到底靠什么发展的问题还没有真正从认识上解决好,监管为民、诚信服务的理念还没有真正树立起来。对于这些矛盾和问题,我们要高度重视,认真加以解决。

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

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