'===================================================
't ： posthttppage
'登录 ： ：
'===================================================
functionsThttpPage (refererUrl, postUrl, postData)
dimxmlhttp
Dimretstr
setxmlhttp = 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.sendpostdata
iferr.number <> 0then
setxmlhttp = 아무것도 없습니다
posthttppage = "$ false $"
종료 기능
endif
posthttppage = bytestobstr (xmlhttp.responsebody, "gb2312")
setxmlhttp = 아무것도 없습니다
최종 기능 장애