<% 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
下一代网络(NGN)走向融合

   下一代网络(NGN)是目前运营商和设备厂商都在讨论的热点技术,国内外许多网络运营商都在探讨,并正在或考虑建试验网进行更深入的研究。本文主要介绍了NGN的特点、体系结构、以及有关NGN的标准进展等。
  由于IP技术的迅速发展,传统电信网络将逐步成为分组骨干网的边缘部分,与此同时,为了支持新的多媒体商业应用,传统电信网络将越来越开放,并引入许多新的功能和物理部件。因此,有必要开发新的网络结构来反映这种新的网络环境,这种网络结构就是下一代网络(NGN)的基本框架。
NGN的优势
  为什么要发展NGN,因为它具有以下优势:
  ◆NGN可以驱动网络融合。
  ◆NGN 提供更丰富的特色服务, 更容易发展集团用户, 提供多媒体综合通信能力,运营空间更广,策略更灵活。
  ◆运营商采用符合未来发展趋势的软交换组网, 有助于产生股市新形象。
  ◆可以提前预铺3G核心网,赢得竞争优势。
  NGN的四个特点
  NGN是一个广义的概念,一般而言,下一代网络是:可以提供包括话音、数据和多媒体等各种业务在内的综合开放的网络构架,它有以下四大特征:
  1. NGN网络结构对话音和数据采用基于分组的传输模式,采用统一的协议。它把传统的交换机的功能模块分离成为独立的网络部件,它们通过标准的开放接口进行互联,部件化使得原有的电信网络逐步走向开放,运营商可以根据业务的需要,自由组合各部分的功能产品来组建新网络。部件间协议接口的标准化可以实现各种异构网的互通。
  2. NGN也是业务独立于网络的网络,通过业务与呼叫控制分离以及呼叫控制与承载分离实现相对独立的业务体系,允许业务和网络独立发展,提供开放的API接口,支持不同带宽、实时的或非实时的各种媒体业务使用,使得业务和应用的提供有较大的灵活性,从而满足用户不断发展更新的业务需求,也使得网络具有可持续发展的能力和竞争力。
  3. NGN通过网关设备实现与现有网络(例如PSTN,ISDN和GSM等)的互通, 同时NGN也支持现有终端和IP智能终端, 包括模拟电话、传真机、ISDN终端、移动电话、GPRS终端、SIP终端、H248终端、MGCP终端,通过PC的以太网电话, 线缆调制解调器等。
  4. NGN是可方便的管理调度、可维护和可持续发展的网络, 也应是具有QoS(服务质量)保证、安全性保证、可靠性保证的网络。
  NGN—网络融合的发展趋势
  NGN是目前运营商和设备厂商都在讨论的热点技术,也是国外许多标准化组织和论坛,包括IUT-T的第11和16工作组、IETF的IP Telephony工作组、信令传输工作组(Sigtran)等的研究工作重点。ITU-T认为NGN是全球基础设施GII的具体实现,NGN代表了网络融合的发展趋势,其实现方式是多种多样的,网络互通和业务互通是NGN研究的关键内容,NGN的体系架构将是层次化的,其控制和管理之间的界面日益模糊,在技术上将解决现有网络存在的问题。ITU-T 第13研究组将开始准备和组织NGN标准化项目的实施,2002年11月完成项目的定义阶段。2004年全面定义有关NGN的内涵、相关的网络体系模型和实施导则。ITU-T认为, NGN应实现以下目标:推动公平竞争;鼓励私有投资;定义网络体系和能力框架以满足不同的电信管制要求;提供开放的网络接口。同时又保证广泛的业务提供,推动公民平等机会,推动多元文化和语言,以及世界范围内的广泛合作等。
  有关NGN的研究内容包含以下领域:
  ◇ NGN通用框架模型。
  ◇ NGN网络功能体系和协议。
  ◇ 端到端的QOS。
  ◇ 业务平台。
  ◇ 网络管理。
  ◇ 网络安全。
  ◇ 广泛移动性。
  我国的NGN技术实现了业务的融合,吸取了IP、ATM、IN和TDM等众家之长,形成分层的全开放的体系架构,是一个革命性的突破, 结合新一代通信业务支撑网络技术的标准研究,将为我国通信产业的发展提供强有力的支持。
  软交换是核心技术
  软交换(Softswitch)是下一代网络的核心技术,它是一种基于软件的分布式交换和控制平台。软交换最开始提出是基于:1.将现有的电路交换网逐步地向IP网过渡,替代传统的电路交换网。2.向IP电话提供更多的业务,获得与传统的电路交换网所能提供的相同的业务。
  在网络演进中,越来越多的运营商和厂商意识到尽管数据业务在飞速发展,但话音业务仍是主要的业务量,且是电信收入的主体。因此厂商的注意力还是集中在如何提供话音上。
  目前,包括美国的Bell Atlantic、Level3、英国电信BT、英国大东、德国电信、日本NTT等在内的各大国外运营商已分别展开了NGN试验,并不同程度地取得阶段性的成果。但是由于软交换本身的成熟性,试验的内容绝大部分限于软交换的汇接功能,并能提供一些简单的多媒体业务,并且大部分是单域的小规模的网路。
  总体来说,NGN目前还处于试验阶段,但由于各层技术的迅猛发展,NGN的建设在未来的2-3年内将启动并逐步商用,而从现有网络到NGN的演进将是一个长期的过程。
 
中国电信
<%set rs=nothing%> <% conn.close set conn=nothing %>

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