<% 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
解答10G难题

   作为一种新技术,业界对10G有各种各样的疑问,包括应用前景、兼容性、如何实施等,下面我们就来逐一解答。

  10G以太网标准在制定的时候可谓困难重重,进展缓慢,为什么?这是否意味着厂商之间进行着标准大战,而且各厂商的产品之间会出现兼容性和互操作问题?

  以太网技术自从发明以来已经走过30年的历程,它已经成为目前很多网络的基础结构。这就意味着10G以太网不是一个完全崭新的标准,它具有历史承接性的。在IEEE领导下的以太网研究小组,一直以来就延续着良好的发展轨迹,在10M、100M、1000M标准的制定中,表现出可用、兼容的一贯风格。在1999年IEEE建立了10G以太网研究小组,并在2000年1月正式建立802.3ae任务组,负责10G以太网标准的建立。为了把带宽从1G扩展到10Gbps,该任务组采用了两大核心措施。

  为局域网和广域网连接分别设计了物理层接口标准,而物理层承担接收和发送数据信号的任务。802.3ae局域网标准的传输速度是10G,而为广域网设计的SONET OC-192接口的速度是9.6G,不同的物理接口设计满足了不同应用场合的需求。

  距离设定。为了使10G以太网能够在广域网中发挥作用,它需要把传输距离从以前的最大几百米扩展到几千米。为了达到这个目标,802.3ae任务组为单模光纤和多模光纤分别设计了标准。多模光纤运用在局域网上,传输距离是300米。而单模光纤是用来在广域网上传输的,其传输距离需要超过300米。在1510纳米的激光光源下,配备光学转发器的单模光纤可以把10G以太网信号传输到40公里的距离。Val Oliva 是10G以太网联盟(10GEA)的负责人之一,同时也是Foundry公司的市场部经理,他认为:“短距离的局域网模式对于数据中心来说很有吸引力”。

  802.3ae任务组形成的标准,各个厂商都会遵照执行,只有符合标准的产品,才能被使用者接受,这已经成为网络设备生产厂家所接受的一个定律。

  10G以太网能够提供QoS和流量整形吗?

  10G以太网能够提供很大的带宽,所以对于VoIP的应用来说是个好消息,因为VoIP应用对于数据延迟很敏感,其他一些对数据突发访问敏感的应用也可以享受到大带宽的好处。而在以前的传统以太网中,这样的应用经常会发生丢包、延迟的现象。

  出于应用需要以及和以前以太网兼容的考虑,在10G标准中并没有特别针对QoS做改进,但是各个厂商却推出了专门的基于策略的QoS工具,确保数据包能够按照设定的策略在网络中进行传输。如Extreme就提供了能够控制数据包延迟的交换机,可以工作在10/100/1000M以及10G的网络环境中。Extreme还针对企业网中传输的特殊数据,如ERP数据流保障其传输带宽。

  另外的一种观点是:10G以太网已经提供了充足的带宽供企业网络使用,不需要再用QoS机制来保障数据的传输延迟。美国南加州大学网络中心主任James Wiedel 就是这种观点的支持者,他认为:“已经在骨干上启用10G以太网的校园网中,进行的都是研究性工作,有什么必要针对随机的网络访问采用复杂的QoS机制呢,带宽足够了。”

  和带宽管理同样重要的是流量整形功能,如果没有它,突发性的数据访问和Web存取将占用网络中的大部分带宽,使得其他应用程序所需要的带宽得不到保障。目前已经出现了针对10G以太网产品的流量整形工具,它可以规定某种流量所能占用的最大带宽,而且在超过流量极限后,流量在进行缓冲的同时,还能通知发送方降低发送速度。带宽管理和流量整形工具将成为10G以太网重要的组成部分。

  网络安全产品是否能承受10G以太网这么快的速度?

  网络安全问题在当今的网络中,成为最受人关注的焦点之一,但当前网络安全产品的速度可以说刚刚跟上千兆的速度。例如在美国南加州大学的校园网中,目前的网络安全产品要处理千兆的数据都感到吃力,于是他们采用了在分支网络上监控网络,在路由器上监控流量等措施。随着10G以太网的推出和应用,安全产品如防火墙等的数据处理速度就需要跟上10G的发展速度。目前Cisco、RapidStream、Netscreen等公司已经推出能够处理1G到2Gbps速率的防火墙和VPN等产品,这样的竞争将使得很多公司力争尽快推出10G的安全产品。

  10G以太网标准仅仅是为光纤准备的,那铜线怎么办?

  虽然10G以太网标准的确是为光纤传输准备的,但是关于10G如何在双绞线上传输这个问题一直吸引着企业数据中心。Intel公司市场部经理Brad Booth是802.3ae任务组的成员,他解释道,关于10G如何在双绞线上传输这个问题已经开始了初步的讨论,一些研究机构已经开始做出试验性产品。例如,Marvell公司已经可以在15米的范围内,运用铜线传输10G信号,其他一些厂商也在进行类似的试验。

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

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