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

liuyangxuan 2008-06-25 03:04:32
http://www.seotools.jp/002_rankcheck/?url=http://www.seotools.jp/&key1=SEO&key2=&key3=

本人在写小偷程序,用XMLHTTP组件,但上面的这个地址只能抓到导入页面那个内容,请问如何抓取页面真正的详细内容呢???
...全文
105 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
liuyangxuan 2008-06-25
  • 打赏
  • 举报
回复
顶起来
liuyangxuan 2008-06-25
  • 打赏
  • 举报
回复
但是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
TakiCN 2008-06-25
  • 打赏
  • 举报
回复
这个页面需要使用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 2008-06-25
  • 打赏
  • 举报
回复
到页面找关键字?没明白什么意思?
mastermanager 2008-06-25
  • 打赏
  • 举报
回复
在页面找关键字,或到baidu搜小偷程序
就可以了
liuyangxuan 2008-06-25
  • 打赏
  • 举报
回复
本人分数有线,如果帮助解决,稍后继续送分。

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧