'========================================================
'函数名：postthttpage
'作用：登录
'========================================================
functionposthttppage（refererurr、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 "参照"、refererurl
xmlhttp.sendpostdata
iferr.Number <> 0then
setxmlhttp =何もない
posthttppage = "$ false $"
exitFunction
endif
postttppage = bytestobstr（xmlhttp.responsebody、 "gb2312"）
setxmlhttp =何もない
エンド機能