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

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

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

这个页面需要使用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然后测试下就会明白了

但是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  

顶起来