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

求解,以上代码不能实现,请帮我改改.或提供更了的方案.分数在结帖时另加100,非常感谢.

二位高人,那怎么才能进去?

这个问题，首先考虑对方登陆时候是否有验证码的判断，其次考虑对方是采用post 模式还是get模式接受参数的。
搞清这2个问题，你就可以跟绝对的url路径带上参数就可以进入！如果验证嘛是由一张图片方式展现出来的。你直接把图片引用过来，如果验证码是有多个图片构成。这个我就还没有实现过！
建议不要使用 Msxml2.XMLHTTP 这个是将其后台打开后远程读取完收据关闭！既然关闭了。登陆那边系统的Session既不存在！

这样都能登陆，网站还有何安全性可言？ 对方肯定有来路判断等手段来阻止你。

你好！ 检查session啊 当在登录页面成功 给session赋值 进入default页面 这个页面有个检查session的 不正确的话 弹回上页 有详细问题找我QQ1227812201 我的回答你还满意吗~~