'//============================================
'//函数getHTTPPage
'//参数url类型String
'//返回值类型String
'//-------------------------------------------------------------------------------
function getHTTPPage(url)
 dim Http
 set Http=server.createobject("MSXML2.XMLHTTP")
 Http.open "GET",url,false
 Http.send()
 if Http.readystate<>4 then
  exit function
 end if
 getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
 set http=nothing
 if err.number<>0 then err.Clear
end function

'//============================================
'//函数BytesToBstr
'//参数body类型String 原始字串
'//参数Cset类型String 指定编码
'//返回值类型String 目标字串
'//-------------------------------------------------------------------------------
Function BytesToBstr(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
 BytesToBstr = objstream.ReadText
 objstream.Close
 set objstream = nothing
End Function
'//-------------------------------------------------------------------------------
'//.Net中的实现这个操作想对要简单的多了,代码只有1/3左右也许更少!
'//取得网页代码后用正则表达式抽取