<%@ LANGUAGE="VBScript.Encode" CODEPAGE="936" %> <%function HTMLEncode(fString) if not isnull(fString) then fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") 'fString = Replace(fString, CHR(32), " ") 'fString = Replace(fString, CHR(9), " ") fString = Replace(fString, CHR(34), """) fString = Replace(fString, CHR(39), "'") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10), "
    ") HTMLEncode = fString end if end function function UBBCode(strContent) strContent = HTMLEncode(strContent) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\[IMG\])(.[^\[]*)(\[\/IMG\])" strContent=re.Replace(strContent,"按此在新窗口浏览图片screen.width-580)this.width=screen.width-580"">") re.Pattern="(\[URL\])(http:\/\/.[^\]]*)(\[\/URL\])" strContent= re.Replace(strContent,"$2") re.Pattern="(\[URL\])(.[^\]]*)(\[\/URL\])" strContent= re.Replace(strContent,"$2") re.Pattern="(\[URL=(http:\/\/.[^\]]*)\])(.[^\]]*)(\[\/URL\])" strContent= re.Replace(strContent,"$3") re.Pattern="(\[URL=(.[^\]]*)\])(.[^\]]*)(\[\/URL\])" strContent= re.Replace(strContent,"$3") re.Pattern="(\[EMAIL\])(.[^\[]*)(\[\/EMAIL\])" strContent= re.Replace(strContent,"$2") re.Pattern="(\[EMAIL=(.[^\]]*)\])(.[^\[]*)(\[\/EMAIL\])" strContent= re.Replace(strContent,"$3") re.Pattern="([^(=)])((\w)+[@]{1}((\w)+[.]){1,3}(\w)+)" strContent= re.Replace(strContent,"$2") re.Pattern = "^(http://[A-Za-z0-9\./,!:=\?%\-&_~`@'+]+)" strContent = re.Replace(strContent,"$1") re.Pattern = "(http://[A-Za-z0-9\./,!:=\?%\-&_~`@'+]+)$" strContent = re.Replace(strContent,"$1") re.Pattern = "[^>=""](http://[A-Za-z0-9\.\/,!:=\?%\-&_~`@'+]+)" strContent = re.Replace(strContent,"$1") re.Pattern="(\[color=(.[^\[]*)\])(.[^\[]*)(\[\/color\])" strContent=re.Replace(strContent,"$3") re.Pattern="(\[face=(.[^\[]*)\])(.[^\[]*)(\[\/face\])" strContent=re.Replace(strContent,"$3") re.Pattern="(\[align=(.[^\[]*)\])(.*)(\[\/align\])" strContent=re.Replace(strContent,"
$3
") re.Pattern="(\[move\])(.*)(\[\/move\])" strContent=re.Replace(strContent,"$2") re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/GLOW]" strContent=re.Replace(strContent,"$4
") re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/SHADOW]" strContent=re.Replace(strContent,"$4
") re.Pattern="(\[code\])(.[^\[]*)(\[\/code\])" strContent=re.Replace(strContent,"
以下内容为程序代码:
$2
") re.Pattern="(\[QUOTE\])(.*)(\[\/QUOTE\])" strContent=re.Replace(strContent,"
$2

") re.Pattern="(\[FLASH\])(.[^\[]*)(\[\/FLASH\])" strContent= re.Replace(strContent,"$2") re.Pattern="\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/DIR]" strContent=re.Replace(strContent,"") re.Pattern="\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]" strContent=re.Replace(strContent,"") re.Pattern="\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/MP]" strContent=re.Replace(strContent,"") re.Pattern="\[RM=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/RM]" strContent=re.Replace(strContent,"
") re.Pattern = "^(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"$1") re.Pattern = "(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$" strContent = re.Replace(strContent,"$1") re.Pattern = "[^>=""](ftp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"$1") re.Pattern = "^(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"$1") re.Pattern = "(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$" strContent = re.Replace(strContent,"$1") re.Pattern = "[^>=""](rtsp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"$1") re.Pattern = "^(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"$1") re.Pattern = "(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$" strContent = re.Replace(strContent,"$1") re.Pattern = "[^>=""](mms://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"$1") re.Pattern="(\[i\])(.[^\[]*)(\[\/i\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[u\])(.[^\[]*)(\[\/u\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[b\])(.[^\[]*)(\[\/b\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[fly\])(.*)(\[\/fly\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[size=1\])(.[^\[]*)(\[\/size\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[size=2\])(.[^\[]*)(\[\/size\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[size=3\])(.[^\[]*)(\[\/size\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[size=4\])(.[^\[]*)(\[\/size\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[center\])(.[^\[]*)(\[\/center\])" strContent=re.Replace(strContent,"
$2
") set re=Nothing UBBCode=strContent end function dim id,rs,admin,email,webname,weburl,xtname,softname,powerby,tboerweb,tboerurl,linkurl,bgcolor,bycolor,btcolor,txcolor,txtcolor,txtsize,hrcolor,sql,title,placard,hits,addtime id=request.querystring("id") if id="" then response.write("") response.end end if Set rs = Server.CreateObject("ADODB.Recordset") rs.open "select * from admin",conn,1,1 admin=rs("name") email=rs("email") webname=rs("webname") weburl=rs("weburl") xtname=rs("xtname") softname=rs("softname") powerby=rs("powerby") tboerweb=rs("tboerweb") tboerurl=rs("tboerurl") bgcolor=rs("bgcolor") bycolor=rs("bycolor") btcolor=rs("btcolor") txcolor=rs("txcolor") txtcolor=rs("txtcolor") txtsize=rs("txtsize") hrcolor=rs("hrcolor") rs.close:set rs=nothing conn.Execute"UPDATE data SET hits=hits+1 WHERE id="&id sql="SELECT name,placard,hits,addtime,linkurl FROM data WHERE id="&id Set rs=Conn.Execute(sql) if rs(4)<>"null" then linkurl=rs(4) rs.close:set rs=nothing call dbclose() response.redirect linkurl response.end end if title=rs(0) placard=rs(1) hits=rs(2) addtime=rs(3) rs.close:set rs=nothing call dbclose()%> 首迈通信成功推出支持双IP地址的三网合一ONU新产品

首迈通信成功推出支持双IP地址的三网合一ONU新产品

  发布日期:[2008-08-21]

   近日,首迈通信根据市场需求,成功推出支持双IP地址的三网合一ONU新产品。该产品支持的双IP地址分别用于数据业务和VOIP业务的接入和管理,使提供数据业务和VOIP业务的不同运营商可以同时向客户提供服务。该产品的推出进一步丰富了首迈通信ONU产品线。目前新产品样品已送客户评估测试。
          关闭窗口】        
    深圳市首迈通信技术有限公司版权所有 2004 Copyright© ShenZhen First Mile Communications Ltd.