文版 | English

 

Contatct IC Card Contatctless IC Card dual interface IC card RFID Card System Integration
PRODUCT
   
Metal Card
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)) %>