'=================================================
'函数名：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 =没有
最终功能