请教两个问题百度快照和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
%>

我要传参数进去,就是传一个网站地址,怎么获取百度快照时间?

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

请赐教，先谢过高手！