请教两个问题百度快照和PR获取方法

xmlhttp获取百度搜索页源码 然后提取时间

<%Server.ScriptTimeOut=9999999
Function GetHTTPPage(HttpUrl,param)
dim XmlHttp
set XmlHttp=Server.createobject("Microsoft.XMLHTTP")
XmlHttp.open "Get",HttpUrl,false
XmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XmlHttp.send param
if XmlHttp.readystate<>4 then
   exit function
end if
'GetHTTPPage=bytesToBSTR(XmlHttp.responseText,"GB2312")'若取得页面BODY内容用此方法。
GetHTTPPage=XmlHttp.responseText
set XmlHttp=nothing
if err.number<>0 then
   err.Clear
end if
End Function

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
url="http://www.
str=GetHTTPPage(url,param)
response.write str
%>

哈哈,稿定了,谢谢哥们!