<% 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
运营商与服务商合作拓展新空间

 

  以宽带移动通信、三网融合为代表的信息技术飞速发展,信息时代的到来必将引爆一场信息革命,彻底改变人们的生活、学习和工作方式。在这个全新的信息社会中,信息技术的落地最终依靠丰富多彩的信息服务来实现,即人类对于信息社会的全新感知基本上全部来源于信息服务,这就为正处于战略转型期的传统电信运营商提供了发展的驱动力和契机:作为产业价值链的组织者和主导者,广泛携手各行各业的信息服务提供商,最终实现向综合信息服务提供商的转变。近年来,经过一系列的探索和实践,合作双方逐渐达成了共识,即信息服务的完美提供,需要电信运营商与信息服务提供商之间的合作由之前的松散型、阶段型、单个型演变成今天的战略化、品牌化和规模化。可以预见,深化务实推进必将成为今后电信运营商与信息服务提供商之间的合作呈现出的重要特征。

  多方发力助推规模化

  为了实现信息社会这一人类共同追求的目标,电信运营商必须与来自各行各业的信息服务提供商建立紧密的战略同盟关系,战略化、品牌化、规模化相应成为双方合作的目标。一方面,电信运营商必须充分发挥积极主动性,发挥网络优势和服务优势,在战略同盟中发挥主导作用,为战略同盟的构建而承担更多的责任;另一方面,信息服务提供商也必须切实认识到自身的发展必须融入信息化大潮之中,通过与电信运营商的战略合作实现可持续健康发展并推动信息化的进程。然而,合作目标的实现,不仅需要电信运营商和信息服务提供商各自承担应尽的责任,更需要涉及产业发展的多方力量,尤其是政府的推动,从而营造出产业发展的良好环境。

  政府的政策支持、引导和管理,为整个信息服务产业的持续、健康发展创造良好的环境。在信息服务产业中,除了电信运营商和信息服务提供商两大合作的主体之外,还有很多外围的配套和组成部分,如应用/内容提供商、系统集成商以及软件开发商,从而构成一个信息服务提供的“群落”。在这样一个复杂的群落中,虽然电信运营商有责任、有义务承担起组织者和主导者的责任,但整个信息服务产业组成的复杂性和广泛性,要求政府站在更高的高度进行必要的政策引导和市场规范。

  在多方合力构建的良好发展环境中,电信运营商和信息服务提供商之间的合作必须立足于战略的高度,实现品牌化和规模化运作。在品牌层面,电信运营商除了需要对各种增值业务品牌进行整合,从而带给用户完美统一的信息服务使用体验(如中国电信推出的“我的e家”)之外,还需要通过对与增值服务提供商之间合作的品牌化运作,实现综合信息服务的规范性,从而增强用户对于信息服务的信赖度。在规模层面,为了提供综合的信息服务,电信运营商需要与某一类信息服务提供商或者某一行业的信息服务商之间展开规模化的合作,从而提升信息服务内容的丰富性和完备性。例如,为了提供IPTV、手机电视等新业务,运营商与品牌服务提供商之间的合作在规模上不断实现突破。截至去年底,黑龙江网通IPTV用户数突破10万大关,上海电信IPTV用户数突破6万。

  合作模式走向多样化

  电信运营商与信息服务提供商之间合作的战略化、品牌化和规模化目标,涉足行业和领域的丰富性,具体业务和应用的多样性,决定了双方合作模式的多样化。

  从目前来看,电信运营商与信息服务提供商之间的合作模式主要有开放选择型、构建利益共同体型和亲自介入型三种。展望2007年,这三种合作模式将被数量更多的电信运营商按照自身的业务发展需求而分别采用,并将在广泛应用中得到进一步的深化。当然,在双方合作深化务实的进程中,更多更新的合作模式将会涌现。

  开放选择型的合作模式,实际上就是一种双向选择,电信运营商和SP/CP之间的合作比较自由,共同利益主要体现为分成所得。电信运营商选择那些在专业领域拥有优势的SP/CP作为合作伙伴。信息服务提供商则将合作的目光投向那些富有市场竞争力和盈利能力、利益分成更为丰厚等优势的电信运营商。

  构建利益共同体型这一合作模式则是双方强化合作的产物。这是因为,合作的稳固程度,取决于合作双方的共同利益的多少。因此,为了提高电信运营商和SP/CP合作的稳固性和持久性,就必须增加共同利益这一筹码,从而充分调动合作方的热情和积极性,实现共赢和利益最大化,同时形成双方稳固的合作关系。

  亲自介入型,是一种新兴的合作模式,是电信运营商针对自身的业务发展需求通过收购或者新组建等方式自主打造信息服务提供商的一种模式,表明电信运营商开始主动进入SP、CP产业。例如,韩国SK电讯已涉足影视制作业,把拥有全智贤、郑宇成等韩国当红明星的I-HQ电影公司收归旗下。

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

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