asp获取网页

Function getHTTPPage(url)

'创建对象

dim objXML
set objXML=server.createobject("MSXML2.serverXMLHTTP")
objXml.SetTimeOuts 20000, 20000, 30000, 30000

'发送请求，网址为url，包含http://

objXML.open "GET",url,false'
objXML.send()
If objXML.readystate<>4 then
getHTTPPage=""
exit function
End If

'处理返回的结果

if objXML.responseText<>"" then

getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
else
getHTTPPage=""
end if

set objXML=nothing
if err.number<>0 then err.Clear
End Function

'转换编码的函数

Function BytesToBstr(ubody,cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write ubody
objstream.Position = 0
objstream.Type = 2
objstream.Charset = cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function