'============================================================================
': : Potthttppage
': : 登录
'============================================================================
FunctionPoSthTppage (реферарл, пострл, постдата)
Dimxmlhttp
DimretStr
Setxmlhttp = createObject ("msxml2.xmlhttp")
xmlhttp.open "post", posturl, false
Xmlhttp.setrequestheader "Content-Deloning", Len (postdata)
xmlhttp.setrequestheader "Content-Type", "Application/xwww-form-urlencoded"
xmlhttp.setrequestheader "Реферат", Реферарл
xmlhttp.sendpostdata
Iferr.number <> 0then
Setxmlhttp = ничего
Posthttppage = "$ false $"
Выходная функция
Эндиф
Posthttppage = bytestobstr (xmlhttp.responsebody, "GB2312")
Setxmlhttp = ничего
Конечная функция