function Postdel(Data) 
	Dim XmlHttp,RetStr
	PostUrla="https://www.tianxinqiu.cn" Set xmlHttp= server.CreateObject("WinHttp.WinHttpRequest.5.1")
	xmlHttp.Open "POST",PostUrla,False
	xmlHttp.setRequestHeader "User-Agent","Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, like Gecko)Version/4.0 Mobile/7A341 Safari/528.16"
	xmlHttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded; charset=UTF-8"
	xmlHttp.setRequestHeader "referer","https://www.tianxinqiu.cn"
	xmlHttp.setRequestHeader "Pragma","no-cache"
	xmlHttp.setRequestHeader "Connection","keep-alive"
	xmlHttp.setRequestHeader "Cache-Control","no-cache"
	xmlHttp.setRequestHeader "Host","m.weibo.cn"
	xmlHttp.setRequestHeader "cookie","SUB=dddd.."
	xmlHttp.Send "uid="&Data
	if Err.Number<>0 then
	  set xmlHttp=Nothing
	 Postdel="$False$"
	  Exit Function
	end if
      Postdel=bytesToStr(xmlHttp.responseBody,"UTF-8")
	Set xmlHttp=Nothing
End Function

调用方法 

postdel(数据) or call postdel(数据)