PostHttpPage用asp是实现模拟登录效果的代码

1. '==================================================  
2. '函数名：PostHttpPage  
3. '作  用：登录  
4. '==================================================  
5. Function PostHttpPage(RefererUrl,PostUrl,PostData)   
6.     Dim xmlHttp   
7.     Dim RetStr        
8.     Set xmlHttp = CreateObject("Msxml2.XMLHTTP")    
9.     xmlHttp.Open "POST", PostUrl, False  
10.     XmlHTTP.setRequestHeader "Content-Length",Len(PostData)   
11.     xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"  
12.     xmlHttp.setRequestHeader "Referer", RefererUrl  
13.     xmlHttp.Send PostData   
14.     If Err.Number <> 0 Then   
15.         Set xmlHttp=Nothing  
16.         PostHttpPage = "$False$"  
17.         Exit Function  
18.     End If  
19.     PostHttpPage=bytesToBSTR(xmlHttp.responseBody,"GB2312")  
20.     Set xmlHttp = nothing  
21. End Function