<%@ 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()%> 首迈通信产品大批量出口土耳其、马其顿、阿尔巴尼亚、波兰、德国和澳大利亚

首迈通信产品大批量出口土耳其、马其顿、阿尔巴尼亚、波兰、德国和澳大利亚

  发布日期:[2007-12-12]

    最近,首迈通信接连获得土耳其、马其顿和澳大利亚代理商和阿尔巴尼亚、波兰、德国客户的大批量订单,客户主要采购首迈通信三网合一产品,包括OnAccess2224系列三网合一交换机、OnAccessH100x OnAccess40x系列三网合一光网络单元,设备主要应用于 FTTH项目。

    截止到目前为止,首迈通信产品已成功出口至26个国家,其中包括俄罗斯、保加利亚、美国、芬兰、荷兰、丹麦、乌克兰、马其顿、土耳其、波兰、挪威、瑞典、葡萄牙、德国、斯洛文泥亚、新加坡、马来西亚、罗马尼亚、立陶宛、亚美尼亚、澳大利亚、阿尔巴尼亚和匈牙利等。

          关闭窗口】        
    深圳市首迈通信技术有限公司版权所有 2004 Copyright© ShenZhen First Mile Communications Ltd.