'==================================================
'： postttppage
'： ： 登录
'==================================================
functionposthttppage (enderurrl ، posturl ، postdata)
DIMXMLHTTP
Dipretstr
setXMLHTTP = createObject ("msxml2.xmlhttp")
xmlhttp.open "post" ، posturl ، false
XMLHTTP.SetRequestHeader "طول المحتوى" ، لين (postdata)
XMLHTTP.SetRequestHeader "نوع المحتوى" ، "التطبيق/x-www-form-urlencoded"
XMLHTTP.SetRequestHeader "المرتبط" ، المرد
xmlhttp.sendpostdata
iferr.number <> 0then
setXMLHTTP = لا شيء
postttpage = "$ false $"
exitfunction
Endif
postttppage = bytestobstr (xmlhttp.responsebody ، "GB2312")
setXMLHTTP = لا شيء
الوظيفية