关于xmlhttp的问题 //高手请进，决对高难性有挑战的问题。

[liuyangxuan]

http://www.seotools.jp/002_rankcheck/?url=http://www.seotools.jp/&key1=SEO&key2=&key3=

本人在写小偷程序，用XMLHTTP组件，但上面的这个地址只能抓到导入页面那个内容，请问如何抓取页面真正的详细内容呢？？？

[liuyangxuan]

本人分数有线，如果帮助解决，稍后继续送分。

[mastermanager]

在页面找关键字，或到baidu搜小偷程序
就可以了

[liuyangxuan]

到页面找关键字？没明白什么意思？

[TakiCN]

这个页面需要使用post方式求情,你用xmlhttp的post方式
你可以参考我下面的post内容
<form name=frm_update action="http://www.seotools.jp/002_rankcheck/?

url=http://www.seotools.jp/&key1=SEO&key2=&key3=" method="post"><input name="update" type=hidden value="y2"><input

type=submit name="submit" value="submit"></form>

你把这个保存为html然后测试下就会明白了

[liuyangxuan]

但是POST还是不好使。
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "Post",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 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

Dim Url,Html
Url="http://www.seotools.jp/002_rankcheck/?url=http://www.seotools.jp/&key1=SEO&key2=&key3=&update=y2"
Html = getHTTPPage(Url)
Response.write Html

[liuyangxuan]

顶起来