"==========================================================================================================================================================================================================================================
'函数名 ： posthttppage
'作用 ： 登录
"==========================================================================================================================================================================================================================================
FunctionPosttttppage (Refererurl, Posturl, Postdata)
Dimxmlhttp
DiMretstr
Setxmlhttp = createObject ("msxml2.xmlhttp"))
xmlhttp.open "post", posturl, false
Xmlhttp.setRequestheader "Content-Length", Len (Postdata)
xmlhttp.setRequestheader "Content-Typ", "Anwendung/X-WWW-Form-Urlencoded"
xmlhttp.setRequestheader "Referer", Refererurl
xmlhttp.sendpostdata
Ifr.number <> 0Then
Setxmlhttp = nichts
POSTTHTTPPAGE = "$ false $"
Ausgangsfunktion
Endif
Posthttppage = byTestObstr (xmlhttp.Responsebody, "gb2312")
Setxmlhttp = nichts
Endfunktion