<% 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
光纤接入浙江5千多企业

   近日,记者从浙江电信了解到,全省已有超过5000家企业选择了光纤接入上网,“最后一公里”的光纤化趋势已经势不可挡。

  最后一公里的趋势

  目前,互联网信息的传输是依靠光纤在城市之间和城市内部骨干网传输,从骨干网到小区、家庭则被称为“最后一公里”,以往大多采用ADSL、LAN等宽带接入,以铜线传输,其带宽仅有1 兆到2 兆左右。

  随着信息化应用不断增加,客户对宽带接入提出了更高的要求,ADSL宽带的连接速率已无法满足高端用户的带宽需求,客户端接入段光纤化的需求呼之欲出。光纤到户使接入终端的带宽可提升至100 兆甚至更多,在提供电话、数据业务的同时,还能够承载更多的信息化应用,如传输电视信号、提供电视点播、家庭购物等交互视频业务,不仅能够轻松实现三网合一,其高速率将使高清晰数字电视等网络带宽要求相对较高的一些应用得以实现。

  随着技术发展、网络融合,光纤建网成本的逐渐降低,光纤入户必将成为接入主流模式,“光进铜退”已经成为一种不可逆转的发展趋势,“最后一公里”的光纤化将成为未来最终的接入方式。

  “千纤工程”温州先行一步

  一直被誉为地方民营经济发展走在全国前列的温州,温州政企客户对宽带接入互联网要求也走在潮流的前列。据温州市信息办统计,温州政企客户光纤接入需求每年以50%以上的递增速度发展。温州老板对高端通信产品有着特殊的情结。2004年初,温州一些高端客户出现的光纤化接入需求就引起了温州电信高度关注。去年年初,温州电信启动了“千纤工程,纤动我心”项目,依托电信宽带的品牌优势、光纤资源优势,引入“第四代”接入技术理念,提出“千条光纤到政企”的目标,开发了4M、8M等多种不同速率的差异化产品,以提升客户更高价值。截至去年12月,温州市约有2000多商户步入了光纤化行列。正泰、德力西、美特斯·邦威、森玛等一大批温州知名企业早已经坐享光纤化接入后的多种应用。不少企业甚至已经采用百兆以上的速率,感受着信息世界的美妙。

  为助推企业信息化,温州电信并不满足于此,今年不仅把光纤接入作为用户末端的最后一公里工程,还将借此连接进入客户内部的网络桥梁,为客户搭建一个良好的内网建设环境,为实现“光网互联”创造条件。

 “商务光网”杭州已经启动

  去年11月,全省首个光纤接入示范小区落户杭州翠苑四区,区内2293户居民在今年1月已经享受到光纤接入后高速率的带宽服务。由此而来的是,采用光纤接入上网的企业也在悄然增加。据杭州电信统计,仅最近的一个月里,将原有的ADSL宽带改为光纤接入的企业已超过100家。为顺应需求,杭州电信在景芳、武林、惠兴、西湖、下沙等5个区域开展光纤到户(FTTH)工程试点,已完成了设备的敷设工作,预计到今年5月份,杭州市区的光纤覆盖面和网络承载能力将会有很大的提升。

  今年年初举行的钱江新城信息化发展论坛上,杭州电信提出建设“信息光城”的构想,即依托电信网络支撑服务能力,以智能光网、无线宽带为介质,实现钱江新城内政府、公共服务、办公、娱乐和家庭数字化。这一构想获得了政府领导、学者专家的一致好评。为满足客户光纤接入的需求,杭州电信今年推出了“商务光网”品牌和ADSL优惠转光纤上网、高端光纤客户优先优惠使用双路由备份、国际快车业务、无线上网等优惠内容,将能让更多的宽带用户领略到“最后一公里”的精彩。

  此外,台州、嘉兴、绍兴等地的光纤接入工程也都在加紧进行。浙江电信正在为打造“数字浙江”,助推企业信息化而不断努力着。  

  光纤接入三大优势

  一是高速稳定。光纤接入的速率是10M,甚至是100M,并可依照需求将频宽扩充至1G,与ADSL 相比,能够提供将近百倍的更快速上网服务。

  二是高性价比。随着光纤技术的不断成熟,光纤接入网的性能不断提高,价格却不断下降,而ADSL 使用的铜缆价格却在不断上涨。这是光纤接入方式潜在的优势。虽然目前光纤接入的价格与ADSL 宽带相比还有一定差距,但光纤接入传输质量好、传输距离长、抗干扰能力强、网络可靠性高等无与伦比的优点,使得它的性价比较高。

  三是多口接入。通过更换用户侧设备,光纤接入有丰富的接口类型可供用户选择。如,4个以太口接入,无需路由器便可实现多台电脑同时上网,并能根据客户个性需求设置接口的不同带宽,各自应用、互不干扰;集成AP 的无线接口,可以轻松实现无线上网;有线电视口,用户可以直接连上电视机,收看多媒体网络视讯节目。

  正是由于光纤接入能够提供高速宽带,可以满足互联网上越来越丰富的多媒体应用和终端接入,也难怪一些企业会率先采用光纤接入了。

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

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