asp中xmlhttp组件发包

asp中xmlhttp组件发包

写的一个小偷函数，注意红色代码部分，其他的自己添加吧!

1. Function PostHttpPageFrom(HttpUrl,stra,FromUrl)  
2.    Dim Http  
3. Set Http=server.createobject("MSXML2.XMLHTTP")  
4.    Http.open "POST",HttpUrl,False  
5.    Http.setrequestheader "content-length",len(stra)   Http.setrequestheader "content-  
6. type","application/x-www-form-urlencoded"  
7.    Http.setrequestheader "Referer",FromUrl  
8.    Http.send stra   
9. If Http.Readystate<>4 then  
10.       Set Http=Nothing   
11. GetHttpPage="$False$"  
12. Exit function  
13. End if  
14. PostHttpPageFrom=bytesToBSTR(Http.responseBody,"gb2312")   Set Http=Nothing  
15. If Err.number<>0 then  
16.       Err.Clear  
17. End If  
18. End Function  
19. Function BytesToBstr(Body,Cset)  
20.    Dim Objstream  
21. Set Objstream = Server.CreateObject("adodb.stream")  
22.    objstream.Type = 1  
23. objstream.Mode =3  
24. objstream.Open1 d)  
25. objstream.Write body  
26. objstream.Position = 0  
27. objstream.Type = 2  
28. objstream.Charset = Cset  
29.    BytesToBstr = objstream.ReadText  
30.    objstream.Close  
31.    set objstream = nothing  
32. End Function