<%
function getHTTPPage(url)
on error resume next
dim http
set http=Server.createobject('Microsoft.XMLHTTP')
Http.open 'GET',url,false
Http.send()
if Http.readystate<>4 then exit function
getHTTPPage=bytes2BSTR2(Http.responseBody,'gb2312')
set http=nothing
if err.number<>0 then err.Clear
end function
Function Bytes2Bstr2(body,Cset)
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 = Cset
Bytes2Bstr2 = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
function GetPy(Str)
for i=1 to len(Str)
GetPy=GetPy&GetPyChar(mid(Str,i,1))
next
end function
Function GetURL(url)
Set Retrieval = CreateObject('Microsoft.XMLHTT
