'===================================================
'函数名 ： posthttppage
'作用 ： 登录
'===================================================
FunctionPosthttppage (referenciado, posturl, pós -dados)
DimxmlHttp
Dimretstr
SetxmlHttp = CreateObject ("msxml2.xmlHttp")
xmlhttp.open "post", posturl, false
XmlHttp.setRequestHeader "Length-tlen-tons", Len (PostData)
xmlHttp.setRequestHeader "Content-type", "Application/X-Www-Form-Urlencoded"
xmlhttp.setRequestHeader "Referenciador", referenciado
xmlhttp.sendPostData
Iferr.number <> 0then
SetxmlHttp = nada
Posthttppage = "$ false $"
Saída de saída
Endif
Posthttppage = bytestobstr (xmlhttp.Responsebody, "GB2312")
SetxmlHttp = nada
Função final