<% 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
PON技术:大规模应用尚需时日

   我国宽带接入网在近两年发展十分迅速,截止到今年6月30日,我国宽带网民数已经达到7700万之众,而且增长势头依然不减。同时,随着电信业务从语音业务向数据业务的战略转移,加快发展宽带业务已成为运营商未来业务发展的战略性选择。

  近年来,随着光纤在长途网、城域网乃至接入网主干段的大量应用,作为光纤接入最有发展前景的宽带PON技术,正面临前所未有的机遇。这里所说的宽带PON技术,是指基于以太网技术的EPON技术和具有吉比特传送能力的GPON技术。曾经风云一时的APON由于技术复杂、设备价格高,加之ATM网络在市场的萎缩,很难在将来的光纤接入市场中占有一席之地。

  技术各有千秋

  EPON/GEPON目前EPON技术较为成熟,在国内外已有较多的厂商推出了EPON解决方案,并在国内开展试验和获得应用。而GPON技术的成熟度相对低一些,PON技术虽然是运营商所期盼的能高效综合各种业务的光纤接入技术,但其价格问题仍是运营商对这项技术有所考虑的关键要素。

  从EPON/GEPON的结构上看,其关键优点是极大地简化了传统的多层重叠网结构,主要有以下几个特点:

  ——消除了ATM和SDH层,从而降低了初始成本和运行成本;

  ——下行业务速率高达1Gbit/s,允许支持更多用户,每一用户的带宽可以更高,并能提供视频业务能力和较好的QoS;

  ——硬件简单,无须室外电子设备,使安装部署工作得以简化;

  ——可以大量采用以太网技术成熟的芯片,实现较简单,成本低;

  ——改进了电路的灵活指配和业务的提供与重配置能力。

  EPON/GEPON的主要缺点是效率低和难以支持以太网以外的业务。前者是由于采用8B/10B的线路编码,引入20%的带宽损失,再加上其他开销,可用负荷仅50%左右,而APON和GPON都采用NRZ扰码为线路码,没有带宽损失。再加上承载层效率、传输汇聚层效率、业务适配效率等原因,使EPON/GEPON总的传输效率很低,大约仅为GPON的一半。

  GPON从技术角度看,GPON是BPON的继承和发展。GPON继承了BPON的很多基本特点,例如两者都使用同样的OLT核心技术,使用同样的物理光纤设施和光功率预算等。同时,GPON采用了一些最新的技术成果,除了最重要的GFP封装外,还包括前向纠错等新技术。

  从提供的业务看,GPON不仅可以提供10M/100Mbit/s、1Gbit/s的业务,而且可以提供VLAN业务和语音业务。总的看,GPON不是制造商驱动的技术标准,而是一种运营商驱动的标准,因此具有更周到的运营利益考虑,速率可达2.4Gbit/s;具有通用的映射格式,可适应任何新老业务;具有丰富的OAM&P功能;对各种业务均有很高的传输效率,即便对于TDM业务也能灵活、高效、低开销传送;可以帮助运营商完成从传统TDM语音电路向全IP网络的平滑过渡,其缺点是依然保留了复杂的ATM层功能,成本偏高。

  面临共同挑战

  首先,怎样才能在Ethernet/GFP上有效承载TDM业务并能提供电信级的服务质量,是一个问题;其次,由于GPON和EPON/GEPON是点对多点的星形或树形网络,要通过一个1+1并经过不同路由的光网络来实现电信级的保护恢复要求,网络成本将非常高;再次,目前GPON和EPON/GEPON设备成本主要受限于突发光发送/接收模块以及核心的控制模块/芯片,这些模块要么是技术不成熟无法商用,要么是价格昂贵还难以适应市场需要;最后,GPON和EPON/GEPON的一次性投入成本较高,不太适合逐步投资扩容的传统电信建设模式,仅适合完全新建或改建的密集用户区域。

  大规模应用还有待时日

  EPON/GPON光纤接入技术将有一定的发展,但完全实现FTTH还需要相当长的一段时间。随着EPON技术发展成熟、设备价格的下降,EPON技术在高档住宅小区和商用大厦将有一定的应用。GPON技术的成熟度相对不高,虽然GPON推出的初衷是支持各种业务的综合接入,但随着整个网络和业务的IP化,GPON技术优势越来越不明显,而且其价格问题和技术成熟性一直让运营商对这项技术感到困惑。虽然EPON/GPON光纤接入将有一定的发展,但其高成本、业务需求与定位、光缆布放、对维护人员的高要求等因素将减缓FTTH的进程,特别是光器件、光纤、光接续等技术和成本能否快速降低,在很大程度上决定了光接入技术的发展。

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

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