<%
Function GetPage(url,bianma) 
on error resume next 
dim oSend
'set oSend=createobject("MSXML2.XMLHTTP")
set oSend=createobject("Microsoft.XMLHTTP")
oSend.open "GET",url,false 
oSend.send() 
if oSend.readystate<>4 then exit function 
GetPage = BytesToBstr(oSend.responseBody,bianma)
set oSend=nothing
if err.number<>0 then err.Clear  
End Function 

Function GetImg(url) 
on error resume next 
dim oSend
set oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false)
oSend.send() 
if oSend.readystate<>4 then exit function
GetImg = oSend.responseBody
set oSend=nothing
if err.number<>0 then err.Clear
End Function

Function BytesToBstr(body,bianma)
	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 = bianma
	BytesToBstr = objstream.ReadText 
	objstream.Close
	set objstream = nothing
End Function
%>