文版 | English

 

Contatct IC Card Contatctless IC Card dual interface IC card RFID Card System Integration
PRODUCT
   
Company E-zine
 
Your Position:CASE
           We have cooperated with many big companies such as Qatar Airways,Disneyland,Iran Bus Chip Card,Chanel,etc.Meanwhile, we also started to cooperate with McDonalds and California Garment Group this year. We promise you that  we can offer you the cards in high quality and punctually. You can reply on our quality and prices!
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)) %>