<% 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
张继平:打造和谐的企业生态链

   中国电信集团公司副总经理张继平在论坛讲话时指出,自提出转型战略以来,中国电信积极探索内部机制转变、信息服务市场开发以及商业模式的创新,转型成效明显。加强价值链合作、实现产业共赢,是中国电信转型的重要举措之一。

 

  中国电信转型的一个关键环节是怎样建立以客户为中心,通过价值链的合作,提供捆绑、融合服务的商业模式,从而实现中国电信向综合信息服务提供商的转变。“以客户为中心”我们已经强调很多年了,但是要真正做到却不容易。价值链的合作我们也一直在为之努力的,但过去总是将自己和上下游价值链的界限分得太清楚,把自己在价值链的作用估计得太高。如何真正建立平等、合作、共赢的理念?怎样把自己和产业链捆绑在一起?怎样为客户提供融合服务?这些都是转型的关键因素。首先,中国电信希望把基础网络价值链继续经营好,这是企业的传统优势。其次,还有两方面内容要加强,一是包括服务中小企业在内的信息技术服务业务(ICT),二是聚合互联网的应用。中国电信要发挥自己在基础网络上的优势,把ICT、互联网和电信基础业务捆绑、融合起来,为客户提供更多更好的服务,包括话音、宽带接入、视频内容三重打包服务(Triple-play)。

  在战略转型过程中,中国电信特别注重和产业链的合作。由过去的电信业务接入商转向信息服务提供商,不可避免地要往价值链的两端延伸或者加深合作,这种合作将是一个全新的模式。因此,当前我们需要赋予价值链合作新的概念、新的内容和新的形式。中国电信希望建立一个真正共赢的模式,成立一个开放的、标准的工作平台,通过价值链的合作,为用户提供融合的、综合的服务,促进产业的和谐发展。第一,中国电信在价值链合作中坚持共赢的策略,合理分配上下游利益,共同努力把价值做大。第二,中国电信希望同价值链中的合作者共同成长,在老企业基础上做好更新,希望新的合作伙伴能够更深入地理解中国电信的需求。第三,坚持诚信原则,说到做到。

  在价值链合作中,中国电信有两个合作策略:一是以业务合作为主。最近,中国电信和思科、IBM、HP等设备厂商签订了一系列合作协议,过去就是厂商卖设备给中国电信,现在中国电信做系统集成应用,希望替设备制造商卖设备,做他们的代理。今年,中国电信陆续和华为、中兴等上游设备厂商签署了一系列新的战略合作协议。随着中国电信向信息服务业的拓展,价值链的合作将出现更多新的内容。二是加强沟通、加强理解。除了这两个策略外,如果条件成熟,中国电信不排除开展一些资本类合作。“商务领航”是中国电信新推出来的一个品牌。它将单一的价值链合作模式丰富为组合模式,集成价值链的上下游,把价值链捆绑起来,为政企客户提供综合信息服务,其中就包含了价值链合作的新形式、新深度和新内容。如设备提供商提供设备,应用服务商提供内容,由中国电信把这些捆绑起来,纳入到商务领航品牌中,最终提供给政、企客户,以合作分成的形式进行利益分享。另外中国电信还提供了一些服务外包,其中有双重含义:一是给政、企客户提供外包,二是厂商给中国电信提供外包。两者结合,为客户提供一揽子的解决方案。目前,商务领航里的业务已接近几十种,用户完全可以进行业务订制,要什么选什么。这就为客户提供完整的、高效的优质解决方案,达到了价值链的繁荣共赢。同时,中国电信在系统集成类业务方面还开发了三类合作伙伴:一种是战略合作伙伴,组成战略联盟,进行资源整合,给政、企客户提供服务。二是资源合作伙伴,如跟有软件资源的厂家合作,跟有信息资源的厂家合作,通过资源置换的手段进行利益分享。同时还包括政府资源,如信息化专业推进机构等。第三是交易合作伙伴,如业务代理和项目分包等,通过一站式完全解决方案进行合作。

  第二个实践是“号码百事通”。号码百事通主要整合信息资源,通过最容易获取信息的手段——电话,为广大客户提供服务。在上游,中国电信集结社会服务和各类商家信息,满足了企业信息发布需要;在下游,把这些信息进行整合提供给公众用户,满足了他们衣食住行信息获取的需要,实现了共赢。目前,中国电信“号码百事通”的访问量在以超过100%的速度增长。在今年广东惠州的洪灾中,号码百事通就发挥了重要作用,为老百姓及时提供了天气预报、生活用品购买等信息。

  第三个实践是“互联星空”。通过上游信息价值链的整合和星空联盟的良好运作,中国电信为合作伙伴提供了一个高效的门户和平台,既为合作伙伴提供更为广泛的客户群体,又把合作伙伴的精彩内容快捷地推送向广大用户。目前互联星空合作伙伴已经超过600多家。

  未来产业合作中,中国电信还将秉承共创价值的核心价值观,致力于创建和谐的企业生态链,实现客户价值与企业价值共同成长,促进信息服务大行业繁荣发展,推进社会主义和谐社会建设。

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

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