asp中关于模拟登录问题求解

function PosstHttpPage(refererUrl,PostUrl,PostData)

Dim XmlHttp,RetStr
Set xmlHttp=CreateObject("Msxml2.XMLHTTP")
xmlHttp.Open "POST",PostUrl,False
xmlHttp.setRequestHeader "Content-Length",Len(PostData)
xmlHttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
xmlHttp.setRequestHeader "referer",refererUrl
xmlHttp.Send PostData

if Err.Number<>0 then
set xmlHttp=Nothing
PostHttpPage="$False$"
Exit Function
end if
PostHttpPage=bytesToStr(xmlHttp.responseBody,"UTF-8")
Set xmlHttp=Nothing
End Fuciton

Function BytesToStr(strBody,CodeBase)
dim Obj
set Obj=Server.CreateObject("Adodb.Stream")
obj.Type=1
obj.Mode=3
obj.Open
obj.Write strBody
obj.Position=0
obj.Type=2
obj.Charset=CodeBase
BytesToStr=obj.ReadText
obj.Close
set obj=nothing
End Function

PostHttpPage "http://10.146.2.110","http://10.146.2.110/default.asp","UserName=test&Pwd=test"
response.write "http://10.146.2.110","http://10.146.2.110/default.asp","UserName=test&Pwd=test"


'''''"http://10.146.2.110" 为登录的页面
''''''http://10.146.2.110/default.asp 为要登录进后显示的页面
现http://10.146.2.110页面中有输入UserName和pwd的通过from 的post 激发action=default.asp来进入default.asp
请问高手们怎么在一个ASP系统的节点中,点击后可以免登录进另一个ASP的系统,即进default.asp



求解,以上代码不能实现,请帮我改改.或提供更了的方案.由于分数不多,新手....请见谅,非常感谢.

那你应该先提交请求给登陆的页面吧
也就是那个 "http://10.146.2.110" 为登录的页面
你请求那张页面后，根据他的返回信息来判断啊
你如果是验证失败的结果，如那张页面输出 "<script>alert('登陆失败之类的')</script>"
那就说明登陆失败了，如果返回其它消息，如一张登陆页面的html，那就说明登陆成功了
可以 Response.redirect "http://10.146.2.110/default.asp"

VBScript code

str = PostHttpPage "http://10.146.2.110","http://10.146.2.110/default.asp","UserName=test&Pwd=test"

这个str应该就是验证登陆的结果吧