asp xmlhttp 问题

<%
Session.Timeout=30
dim bodystr,zh,mi

zh="langhko"'设置帐号
mi="langhko"'设置密码

'登录
bodystr=getHTTP("http://www2.baidu.com/user/user.php","entered_login="&zh&"&entered_password="&mi&"&entered_imagecode=ra9x&x=44&y=11")
'取回登录后的user.php
bodystr=getHTTP("http://www2.baidu.com/user/user.php","")

'还要打开其它的页面就在这里加
response.write server.htmlencode(bodystr)

Function getHTTP(url,sendStr)
'on error resume next
set Http=server.createobject("Msxml2.ServerXMLHTTP")
Http.setTimeouts 5000,5000,20000,20000

if len(sendStr) > 5 then
Http.open "POST",url,false
Http.setRequestHea