文版 | English

 

Contatct IC Card Contatctless IC Card dual interface IC card RFID Card System Integration
PRODUCT
   
Company E-zine
 
Your Position:CASE
                                                                British Telecom Calling Card
British Telecom started good coopeation with our company since 2006. British Telecom and Chuangxinjia signed agreement on 50 millions of PVC calling cards in May. We supply 1.5 million pieces every week. Our excellent quality and on time delivery won long term cooperation with British Telecom in future. It proves that our products achieve international standard.
first page              next page
  Cases Solutions Products e-zine Contact us
 
 
 
 
 




      Export Dept.1
      Contact: Charlene He
      Direct Line:86-755-23495636
      Fax: 86-755-23123155
      Mobile: 86-15112548623
      Email:info@sunyorfidtag.com.cn
      MSN: charlene108@hotmail.com
      Skype:charlene100882
 
LINK 3D printing Manufaturer     Alibaba.com     Smart Card Manufaturer    sunyo      google     translation platform    Alibaba     SUNYO's Blogs
ABOUT USEQUIPMENT | OUR GOAL | CONTACT US | CORPORATE CULTURE | ORDER | ACCOUNT | LINK
Copyright ◎ 2010     HK SUNYO SMART CARD (GROUP) LTD        SHENZHEN SUNYO SMARTECH Co.,LTD    粤ICP备12000644号-4
Office Address:     Export dept.,4F,Baojie'an Business Center of Yongfeng Building ,intersection of Xinhu Road and Laodong
                                  Road,Xixiang Street,Yongfeng Industrial Area,Bao'an District,Shenzhen, China.
Factory Address:1-2F, Building A, Xuexiang Community, Bantian Street, Jinpeng Area, Longgang district, Shenzhen, China


         

<% Function getHTTPPage(url) dim objXML set objXML=server.createobject("MSXML2.XMLHTTP") objXML.open "GET",url,false On Error Resume Next objXML.send() If objXML.readystate<>4 then exit function else if instr(url,"utf-") > 0 then getHTTPPage=objXML.ResponseText else getHTTPPage=BytesToBstr(objXML.responseBody) end if set objXML=nothing End If if err.number<>0 then err.Clear End Function Function BytesToBstr(body) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = "GB2312" BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Dim Url,Html Url = "http://www.100lian.net/user/33724.html" response.write(getHTTPPage(Url)) %>