<% 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
运营业制造业走向深入互动合作

 

  在当前整个电信业不断走向融合、不断向“大信息产业”演进的大背景和总趋势下,电信运营商与制造商的合作已经不再是过去简单的产品层面的“交钥匙”合作。业务发展越来越集成化、综合化,产业分工进一步细化,这就要求运营商与制造商在网络、业务、运营、市场开拓等各方面结成紧密的合作关系。

  “业务为王”的时代呼唤深度合作

  伴随着技术的发展和社会的进步,今天的人们不再满足于话音业务而期望能够通过电信网络获得种类更多、内容更丰富的业务,从而满足“任何时间、任何地点获得任何需要的信息”的需求。相应地,电信运营商只能通过创新开发出满足人们上述需求的业务。然而,此时的业务创新,却因为信息化这一蓝海的浩瀚而充满了各种挑战:业务开发的复杂度提升、业务成功的风险提升、用户对业务体验的关注度提升……在这样的情况下,运营商单靠一己之力显然无法应对如此众多的挑战,迫切需要战略同盟的强力支持。而与运营商有着天然联系的设备制造商,就针对这一需求完成了角色转换:从设备供应商跃升为针对应用开发的端到端解决方案提供商。至此,双方的合作也从最后端的订单签订深化至最前端的业务共同开发。

  围绕客户、针对应用的端到端解决方案,是目前电信运营商与设备制造商深化合作的主要体现。例如,针对目前在全球掀起商用热潮的IPTV服务,多家设备制造商均推出了易于部署和开展增值应用的端到端解决方案并不断地拓展业务范围。中兴通讯针对IPTV多媒体业务的不断发展,更进一步推出了“网络视讯”解决方案——能够在IP网络上开展包括网络特色视音频业务和丰富增值业务的电信级端到端、全业务解决方案,从而通过统一平台帮助运营商提供全业务、综合性的多媒体信息服务。利用设备商网络、业务平台方面的优势,制造商能够帮助电信运营商的业务创新营造出价值链生态系统,这确实成为一条最为有效的加快业务创新之路。

  网络演进需要产业的合作互动

  当前,运营商业务从话音业务为主转向宽带多媒体为主,选择何种道路实现这种变革,是当前整个电信业深思的问题。多数运营商、专家已经对于网络的变革形成了共识,那就是渐进式演进。渐进式演进,要求运营商和制造商开展更紧密的合作,你走一步、我走一步,但都不是一蹴而就的,而是交替、互动式前进,即在双方的共同努力下,由运营商准确把握用户需求,引入制造商相对成熟的技术,实现网络平滑过渡,在有条件、有市场需求的领域投资,进行网络升级,有的放矢、逐渐培养用户群,利用逐步开展起来的新业务积累资金,同时也积累新网络的运营经验,待市场基本成熟后再全面投入。演进的突出优点是让运营商和制造商同时避免了网络更新时的技术风险和运营风险,成熟一步、发展一步,充分发挥投资的效率。

  具体说来,一方面,用户需求的渐进性和不均衡性决定了网络必须逐步过渡。纵观电信历史上网络的成长轨迹,用户对于新业务需要一个认知的过程,从而使电信网络不可能在一朝一夕产生大的变化。只有加强运营、制造的合作才能做到制造商的研发有的放矢,而在运营商获得新应用需求信息但现有网络缺乏支撑能力时,可以通过交流将信息传递给制造厂商,由制造厂商在技术上加以实现。另一方面,企业的盈利需求也决定了网络必须走逐步演进的道路。要想迅速实现网络变革,必然需要大批投资者在短时间内持续注入巨额资金,由此带来的风险无疑是巨大的。制造商和运营商只有携起手来,才能让每一笔投资发挥其效能。

  现在几乎所有的运营商和制造商都已经意识到建立一种长期有效的合作有着强烈的现实性和迫切性,但是,在具体的合作初期还是少不了这样或那样的不协调。究其原因,关键一点是,在合作中,由于运营商与包括设备制造商、终端制造商在内的产业各方还没有形成深层合作的利益共同体,在进行业务应用开发时,各个环节首先考虑的是自身的利益,为了追求利润,合作各方随时都有可能采取使自己利益最大化的行为,破坏合作的基础,危及合作的成效。因此,运营业与制造业在合作之初,就要从长计议,注意平衡双方的利益关系以及长期利益与短期利益的关系。

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

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