Posthttppage using ASP is the code to simulate the login Effect

'================================================ ==============
'Function name: posthttppage
'Usage: Logon
'================================================ ==============
Function posthttppage (refererurl, posturl, postdata)
Dim XMLHTTP
Dim 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 = bytestobstr (XMLHTTP. responsebody, "gb2312 ")
Set XMLHTTP = nothing
End Function