<%
Function GetPage(url,bianma) 
on error resume next 
dim oSend
set oSend=createobject("MSXML2.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
%>