'======================================================
'函数名 ： posthttppage
'作用 ： 登录
'======================================================
FunctionPosTHTTPPAGE (referente, posturl, postdata)
Dimxmlhttp
Dimretstr
Setxmlhttp = createObject ("msxml2.xmlhttp")
xmlhttp.open "post", posturl, falso
Xmlhttp.setRequestHeader "Content-longitud", len (postdata)
xmlhttp.setRequestHeader "Content-type", "Application/x-www-form-urlencoded"
xmlhttp.setRequestheader "referente", referente
xmlhttp.sendpostdata
Iferr.number <> 0then
Setxmlhttp = nada
Posthttppage = "$ falso $"
Extinción
Endif
Posthttppage = bytestobstr (xmlhttp.ResponseBody, "GB2312")
Setxmlhttp = nada
Función final