<% 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
万兆城域以太网露锋芒

　　　以太网技术从10兆、百兆到千兆只经历了短短不到十年的时间，现在又酝酿出万兆以太网这个新生儿。由此，以太网技术的发展已经完成了一个数量级的飞跃，新的高速以太网技术标准的形成，使以太网技术已经走出了LAN的狭小空间，并已经完全可以承担WAN和MAN等大规模、长距离网络的建设。另外，MPLS技术的发展和SLA协议的出现，以及快速自愈STP技术的逐渐成熟，使得以太网技术如虎添翼，可以为用户提供不同QoS的网络业务，并保证现有的电信级业务的传输质量，再加上以太网技术本身具有的组网成本低、网络扩容简单等特点，城域以太网技术受到了国内各大电信运营商的青睐。

　　ISP将成为最大的市场

　　由于投资力度相同，万兆以太网要比SONET/SDH有效得多。然而，如果由于数量和技术因素给予万兆以太网很高的价格，它就有望在服务供应商为主要客户的市场推介的最初阶段更加稳步地增长。到2003年，从10Mbps到100Mbps再到1000Mbps这种以太网的增长模式将重复进行，以很快的步伐取代现有的千兆骨干网。

　　在整个市场的数据中心，对万兆以太网的需求将是最大的。图像、CAD/CAM、存储、计算机建模、电话会议以及其他需要较大带宽的应用将通过扩大骨干网干路之间的带宽加以支持。由于MAN服务的不断增长，用万兆以太网将分散的办公室链接在一起的需求将不断增长，将来它很有可能作为骨干取代当前用于扩展带宽的链路集合体(802.1ad)。

　　服务供应商将是另一大领域的需求。PoP(Point of Presence)的通讯点瓶颈问题将通过万兆以太网的应用加以解决，而不用再依赖千兆以太网链路聚合(802.1ad)或无谓的消耗光缆了。而且，万兆以太网还可以用于连接DWDM设备，以便有效地使用资源。

　　新出现的有关SAN的需要也将是一个很重要的领域。要求高可靠性、安全性、以及大带宽、高清晰度视频和集中备份存储设备的数据库服务器将被链接到高速网络上以便共享资源，而千兆和万兆以太网将使之成为可能。

　　MAN服务是全球性问题

　　在海外，城域以太网服务已被公认为主流发展趋势。城域以太网风靡美国和日本的原因在于城域以太网能够以较小的成本获得较大的带宽。对于那些对现有的运营商，以及那些占统治地位的链路租赁公司大失所望的客户来说，城域以太网无疑提供了一个扭转时代潮流的好机会。

　　城域以太网的服务供应商们为共同客户提供了光缆和各种不同的构建方式。他们最大限度地扩大为小企业准备的设备潜力的和服务能力，这些客户以前是由现有的ISP和ASP服务的。

　　目前，GNG网络、Thrunet的MegaMan服务，以及KT和Dacom为降低进入市场阻碍所进行的积极努力正在发挥着有效的作用。因此，电信运营商和ISP有望在今年的下半年开始采用MAN服务。从2003年开始，MAN解决方案将以很快的速度被电信运营商采用。

　　来自“投资速度”的竞争

　　为了使以太网技术在市场站稳脚跟，低价位和有效的服务是关键。“更快、更低价”是所有互联网用户的心愿，这就是为什么很多ISP都弃WAN而投MAN的原因。

　　MAN成为亮点是因为以下原因。首先，城域以太网，即扩展的城市区域概念，取消了路由器和光缆传输设备，仅使用交换设备即可驾御共享的网络资源。此外，它还允许客户实时遥控带宽，维护和维修简单易行。在有限短的距离内，传统的100Mbps传输技术将被超过70公里距离的1Gbps传输技术所取代，从而夺走路由器的传统领域。学校、医院和公司中使用的LAN设备将被那些支持大型互联网服务供应商的设备所替代，贯穿于整个城市的建筑和写字楼之中。

　　上述正在驱动大多数的ISP缩减对现有链路服务的投资，而加大对MAN的投资。他们还谨慎地准备用万兆以太网取代现有的POS的骨干，以确保现有的城域以太网系统与服务运营商的网络进行无缝地连接、升级。万兆以太网并不需要接口设备，它可与DWDM设备相连，大大地增强了链路使用和带宽扩展的效率。
 
中国电信
<%set rs=nothing%> <% conn.close set conn=nothing %>

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