'=================================================
'函數名：postthtppage
'作用：登錄
'=================================================
功能posthtppage（Refererurl，Posturl，PostData）
DIMXMLHTTP
Dimretstr
setxmlhttp = createObject（“ msxml2.xmlhttp”）
xmlhttp.open“ post”，Posturl，false
xmlhttp.setRequestheader“ content-Length”，len（postdata）
xmlhttp.setRequestheader“ content-type”，“應用程序/x-www-form-urlenCoded”
xmlhttp.setRequestheader“ Referer”，RefererUrl
xmlhttp.sendpostdata
iferr.number <> 0
setxmlhttp =沒有
postthtppage =“ $ false $”
出口
Endif
poSthtppage = bytestobstr（xmlhttp.Responsebody，“ gb2312”）
setxmlhttp =沒有
最終功能