文版 | English

 

Contatct IC Card Contatctless IC Card dual interface IC card RFID Card System Integration
PRODUCT
   
Your Position:NEWS
[NEWS] New Accounting and Forensic Accounting and FraudExamination

[NEWS] A New Monthly Online Voting System to Strengthen Democracy in America

[NEWS] Announces Sunyo's RFID Simple Dock Door Solution Ki

[NEWS] Handsel Card for Dragon Boat Festival

[NEWS] The Chinese New Year of the Rabbit

[NEWS] An electronic information secure and tracking system

[NEWS] It is hereby noticed that this year's National Day holiday

[NEWS] As China's economy goes better and better in 2010

[NEWS] We hope all the people on earth will be peacful and harmony

[NEWS] ARTWORK REQUIREMENTS

[NEWS] HTC One X (AT&T) review - an LTE-capable blast

[NEWS] Near field communication

[NEWS] RFID product introduction

[NEWS] RFID production previlidge

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)) %>