<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 
  <object id="objXmlHttp" progid="MSXML2.ServerXMLHTTP.4.0" runat="server"></object> 
   
  <% session.CodePage=65001 %> 
  <% Response.CharSet="UTF-8" %> 
   
  <% 
  website = request("website") 
  Session("website") = website 
  objXmlHttp.Open "GET" , website , false 
  objXmlHttp.setRequestHeader "Content-type", "text/html; charset=utf-8" 
   
  objXmlHttp.sEnd  
   
  strHTML = objXmlHttp.ResponseBody 
  Function BinaryToString(Binary)  
  	Dim cl1, cl2, cl3, pl1, pl2, pl3  
  	Dim L  
  		cl1 = 1  
  		cl2 = 1  
  		cl3 = 1  
  		L = LenB(Binary)  
  	Do While cl1<=L  
  		pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))  
  		cl1 = cl1 + 1  
  		cl3 = cl3 + 1  
  	If cl3>300 Then  
  		pl2 = pl2 & pl3  
  		pl3 = "" 
  		cl3 = 1  
  		cl2 = cl2 + 1  
  	If cl2>200 Then  
  	pl1 = pl1 & pl2  
  	pl2 = ""  
  	cl2 = 1  
  	End If  
  	End If  
  	Loop  
  	BinaryToString = pl1 & pl2 & pl3  
  End Function 
   
   
  strPage = BinaryToString(strHTML) 
  %>