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