<% 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
软交换殊途同归

   软交换是下一代网络的核心,其发展道路可分为两派:一派是由“软”而“交换”,另一派是由“交换”而“软”。但归根结蒂,最终实现的是一个以IP为基础的提供多元服务的网络。

  软交换是什么

  软交换建立在VoIP基础之上,然后把更多的电信业务用IP的方式来实现。单纯的VoIP很容易,但是把传统的业务都放在IP网上就要比IP电话复杂很多,于是业界开始考虑怎样把传统电信业务过渡到以IP为基础的网络上。软交换是把不同的通讯业务,包括话音、视频、数据,转换到IP网上,加以管理,在接入的信息上进行控制,实现传统电信能够实现和不能实现的业务。其重要特点是要求业务层和接入的介质层完全分开。 CommWorks(当时的3Com)1999年就提出了软交换的三层结构,现在已经被主要的软交换标准组织所认可。在这个结构中,最底层是传输硬件层,往上是多介质(Media)连接控制层,最上面则是服务、应用与功能层。

  推出软交换的两种途径

  单从VoIP来看,也可以有两种角度。一种是已经有了“V”,即传统的语音服务,要把这种服务转移到“IP”网上;另一种是已经建起了“IP”网,要让它除了传数据外还能传语音,即“V”。把视野放开来,不仅局限于语音业务,而是包括多种电信服务。上面所说的第一种角度,就是所谓的由“交换”而“软”;第二种角度则是由“软”而“交换”。主要的软交换厂家,按这两种角度来划分,由“交换”而“软”的有阿尔卡特、朗讯、北电、西门子等;由“软”而“交换”的有CommWorks、Sonus、思科、Unisphere等。

  对CommWorks这样的由“软”而“交换”的多解决方案提供商来说,软交换是用IP建立一个开放的环境,采用开放的软件模块,对不同的呼叫进行控制,使得软交换可以按照统一的标准连接不同的业务。比如说话音通信,可以通过IP的方式从不同的介质间互转,这样形成一个集成的、统一的用户界面,进行统一计费管理等等,而且在这上面可以利用Interent方式开发一些新的应用,实现一些过去传统电信要开发很长时间,甚至是很难做到的新业务。

  对阿尔卡特、朗讯等老牌电信厂商来说,由“交换”而“软”地推出软交换乃是大势所趋,不得不为。这是因为软交换是一个开放的平台,相对的平台成本和开发成本都会比较低;而PSTN通常是封闭的标准,每一个厂家有一个专有的标准,新业务的推出需要厂家专有的设备和专有的软件提供,这样成本就很高。推出一些新业务的成本,软交换可能只有PSTN的五分之一。从软件开发周期,也就是业务推出的时间来比较,软交换几乎只是传统交换的十分之一。从业务收益的比例来看,软交换的成本也只需花PSTN的十分之一的时间就可以收回。一方面是成本低,另一方面是业务推出快,回收资金的时间就短。老牌电信厂商从自身的实践中认识到,传统的PSTN交换已经把路越走越窄,每推出一个新业务就要对交换机做升级,同时还要做大量的测试来保证这种新业务既不会与已有的业务冲突,也不会导致升级后的交换机与其他厂家的设备之间出现兼容性问题。有时还会需要将几个厂家的设备同时升级,这种协调工作的难度是非常大的。即使不考虑网络成本和业务推出周期,随着系统越来越复杂,推出新业务的难度也会越来越大。这个问题的彻底解决,只能是将传统交换机的业务过渡、转移到统一的IP平台上。

  随着软交换的不断成熟,推出新业务的时间会越来越短。因为平台越成熟,市场上对这个标准就了解得越多,开发的人员和企业也越多。过去在交换机上开发一个新功能,可能就一个厂家去做。如果软交换起来了,可能会有多个厂家同时去做,竞争就很激烈,最后服务商可以选一家最好的。

  新老运营商的不同之处

  对传统的电信运营商来说,其既有的用电路交换实现的业务,如果改为用IP来实现,不一定能够节省网络资源或者说是成本。CommWorks的郝庆英博士指出,对于传统运营商上马软交换,节约成本这个因素所占的比重还不到三分之一。重要的是,软交换能够实现许多电路交换无法实现或是实现成本很高的业务。也就是说,传统运营商上马软交换的理由其实只有一个:开源。而新运营商的理由则有两个:开源和节流。对他们来说,软交换不仅可以实现诸多的新业务,而且可以帮助他们在C4和C5局上省下大笔的开支。比如,对新兴运营商来说,其电路交换网还不完整,在开拓新的市场,而且该区域还没有其自己落地的长途交换机时,就可以考虑用软交换的方式落地。这样的话,在一些地区就可以不再买传统的交换机,这对将来的业务发展和投资成本的节省都有很大的好处。

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

版权所有-中国电信股份有限公司四川分公司
Copyright(C) China Telecom Corporation Limited SiChuan branch.All rights reserved 
本网站由
天府热线设计制作