<% 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
全光波长转换:下一个挑战

   快速的波长可变全光波长转换器迎合了人们在下一代WDM网络中对光交叉连接产品的需求。

  用于DWDM通讯的光交叉连接器在目前应用的光转换技术的基础上正在发展。当这些交叉连接器集成了波长转换功能后,将更能发挥出DWDM光网络的全部潜能。全光波长转换是继光交换技术以后电信产业面临的下一个主要的技术挑战。有几种方案目前正在考虑中,其中最有前景的是在周期性极化晶体铌酸锂中使用的混频技术。

  WDM光通信最初用于增加通信网络容量以满足互联网用户不断增长的需求,为了进一步增加容量,沿传输链的光-电-光转换需要进一步减少,因而推动了全光网的发展。既然是波长通道而不是电子编码报头沿着通信网络进行必要的交换和路由,所以WDM成为这种发展的中心。

  通过有效地使用波长通道,交换和路由功能在运行时可以不用对光信号进行转换,并且是协议透明的。有些建议认为可以通过使用具有固定波长通道的无源光器件来解决这一问题,然而无源光网络(PON)缺乏灵活性,并且不能尽可能有效地利用光带宽,特别是对靠近终端用户的外围网络来说。

  图1.目前所用的光交换机以毫秒的响应时间建立了一条止于全光构置,重构和保护通信网络功能的通道。

  当不同地点的发射机向同一目的地以同一波长发送信号时,在很多节点的多个波长上的交换信号会发生冲突。直接的解决方法是将光通道转移至其他波长,随着对复杂光网络的多重光通道进行管理的需求增加,人们对波长转换的兴趣也不断增长。波长转换器是在某一波长上接收输入光信号,而在另一不同的波长上将其复制出来。理论上讲,转换是全光的,不消耗多少功率,也不改变信号本身,并且输出是可调的。实际上一个全光交叉连接器同时结合了光交换和波长转换功能。

  光交叉连接技术路径图(参见图1)表明目前适用的反应时间达毫秒的光交换形成了一条途径导引全光的重构、恢复和保护。这些功能很适用并由此激起许多人的兴趣,为达到这些目的,在不远的将来,可变光分插复用器(OADMS)和光交叉连接器将很快被采用。目前正在发展的光交叉连接器应该要有一通用的功能--集成功能。“集成”有多种含义,比如说小型化,内装元件以及多功能属性。因为可升级性、功耗问题和使用空间的原因,器件应保持小巧,而为了减少成本又应该适合于自动化生产过程。

  如果一个元件制作以单一基础开始,不断用多重连续的处理来构造特性,那么自动化生产过程就很容易实现了。

  集成功能也能做到在同一基底上增加不同光学功能,如结合光交换和波长转换功能。这种集成的光交叉连接器应该建立在波导构造的基础上,因为即使是在震动、抖动或其他环境的影响下,波导交叉连接器件也可以稳定地提供交换和波长转换元件使用的光通道,以及输入输出端口。

  集成功能的增加会最终使光子芯片的可用性变得同目前使用的电子芯片一样普遍。当前这种光子芯片最有前途的发展方向是光带隙结构元件的发展。

全光转换器

  目前全光波长转换器的选择有好几种。比如激光转换器在一条波长上引入强信号,然后转换到在另一波长上的连续波单频激光。输入光引起增益饱和,从而在产生的激光波长上消减光能。这种办法有一些重要的不足:以激光波长输出的信号是原始输入信号的反转,要求输入功率大于0 dBm,并且内部激光的共振将转换速度限制在约10 Gbits/每秒。

  波长转换器的另一种被称为光控制放大器,这时相对较弱的光输入信号对半导体光放大器中输出的第二个波长进行调制。只要改变第二波长的连续波光源即可以改变输出信号。这种方法有不同的实施方式,其中最有前景的是采用输入信号来调制第二输出波长的相位,而不是它的强度。然后再采用干涉步骤将相位调制转换成强度调制。由于需要一个光学相位干涉仪,因此这种方法很难构成一个灵活的器件。 

  最有发展前途的方法是使用非线性转换器。这种波长转换器是基于相干非线性过程,即两个或多个波长相互作用而产生新的波长。“差频混频转换器”产生的输出信号为泵浦光和输入信号的差频。

  这种方法的成功主要依赖于所选材料的非线性特性。有些方法采用的是长光纤和其他半导体放大器。然而,最有说服力的结论来自于一种因其非线性特性而为人们熟知的光学材料,即铌酸锂 (LiNbO3)。这种材料提供了很好的响应时间和信噪比。

差频混频

  图2所示的是基于铌酸锂基底的差频混频波长转换器示意图。

  第一个信号是入射光,在器件内以某一波长或频率(λ1)传播。第二个信号是由入射信号而产生的,并以第二个频率或波长(λ2)在器件内以与该入射信号平行的方向传播。由于使用了大的二阶极化率(χ2)的材料如铌酸锂晶体,从而保证了频率的生成。泵浦光、入射信号和产生的信号之间的相位匹配是由沿着入射光方向的材料的周期性极化作用而得到保证的。

  局部材料持久的极化效应通常是由于在材料表面施加了高压而产生的,高电压的使用使得高介电材料的光学特性可以持久地发生改变。在铌酸锂晶体中这样的周期性变化通常被称为周期极化铌酸锂(PPLN)。有很多不同的方法可以制造PPLN。PPLN的相位匹配特性在很宽的光学带宽上都是有效的,这样当使用可调激光源泵浦时,可以实现可变波长的转换。

  图3、用铌酸锂制成的波长选择快速光交换示意图。表明光交换和波长转换功能集成在同一元件里。

  基于PPLN差频混频的波长转换表明转换效率大于40%(4-dB的转换损耗),并且随着刻在铌酸锂晶体上的channel光波导的应用,该数值仍在继续改进。Channel 波导是通过质子交换腐蚀法刻在铌酸锂晶体上的。这样的波导保证了三个互相作用的信号间有足够的重叠,并且具有高功率密度,这也是任何非线性效应的一个关键因素。波导的采用同时也改善了光纤尾纤的耦合效率。

  图2所示意的结构适用于极化模色散的最小化。

  图4.是运用可调光分插复用器的长距离WDM光通信网络示意图。

  除了具有多可调性OADM功能,光交叉连接器应该有某种波长转换功能,允许所有由WDM光通信系统提供的功能具有可行性。

   光交叉连接器除了具有多重可调OADM功能,还必须具备波长转换功能,这样才能充分利用WDM光通讯系统提供的容量。因此,全光交换和波长转换功能都必须是光交叉连接的功能之一。

  铌酸锂利用其电光特性也提供了在单片平面波导结构上构建一快速波长可选的光交换器的可能性,如果一个波长可选的快速光交换器是由铌酸锂制成的,那就很容易理解光交换和波长转换功能是怎样集成在单一器件里(如图3)。图4所示是光交叉连接是怎样被用在长途WDM光通讯网络上的。

从长距离网络到接入网

  波长可调全光波长转换器将会在下一代高速WDM网络中满足对光交叉连接的需要。这些元件将不只是用在长途网络系统中,如果设计合理的话,还将证明在城域网甚至接入网中都是十分有效的。

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

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