服务器端xmlhttp

Function   PostHttpPage(RefererUrl,PostUrl,PostData)   
          Dim   xmlHttp   
          Dim   RetStr                
          Set   xmlHttp   =server.CreateObject("Msx"   &   "ml2.XM"   &   "LHT"   &   "TP")     
          xmlHttp.Open   "POST",   PostUrl,   False 
          XmlHTTP.setRequestHeader   "Content-Length",Len(PostData)   
          xmlHttp.setRequestHeader   "Content-Type",   "application/x-www-form-urlencoded" 
          xmlHttp.setRequestHeader   "Referer",   RefererUrl 
          xmlHttp.Send   PostData   
          If   Err.Number   <>   0   Then   
                  Set   xmlHttp=Nothing 
                  PostHttpPage   =   "$False$" 
                  Exit   Function 
          End   If 
        PostHttpPage=bytesToBSTR(xmlHttp.responseBody,"GB2312") 
        Set   xmlHttp   =   nothing 
End   Function
Function   BytesToBstr(strBody,CodeBase) 
                dim   obj 
                set   obj=Server.CreateObject("Adodb.Stream") 
                obj.Type=1 
                obj.Mode=3 
                obj.Open 
                obj.Write   strBody 
                obj.Position=0 
                obj.Type=2 
                obj.Charset=CodeBase 
                BytesToBstr=obj.ReadText 
                obj.Close 
                set   obj=nothing 
End   Function 

response.write   posthttppage("http://passport.baidu.com/?login&tpl=mn&u=http%3A//www.baidu.com/","https://passport.baidu.com/?login","username=kmiaoer&password=******")