<%
Dim WinHttp 
Set WinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1") 
’設置參數(shù) 
WinHttp.SetTimeouts 60000, 60000, 60000, 3000 ’設置操作超時時間 
’WinHttp.SetTimeouts resolveTimeout, connectTimeout, sendTimeout, receiveTimeout 
’resolveTimeout = 10000 ’解析 DNS 名字的超時時間，10000 毫秒。 
’connectTimeout = 10000 ’建立 Winsock 連接的超時時間，10000 毫秒。 
’sendTimeout = 120000 ’發(fā)送數(shù)據(jù)的超時時間，120000 毫秒。 
’receiveTimeout = 60000 ’接收 response 的超時時間，60000 毫秒。 
WinHttp.Option(4) = 13056 ’忽略錯誤標志 
WinHttp.Option(6) = False ’為 True 時，當請求頁面重定向跳轉時自動跳轉，F(xiàn)alse 不自動跳轉，截取服務端返回的302狀態(tài)。 
WinHttp.Open "GET", "http://www.baidu.com/", False ’GET 或 POST, Url, False 同步方式；True 異步方式 
’組成 HTTP 頭信息 
WinHttp.SetRequestHeader "Accept", "*/*" ’接受數(shù)據(jù)類型 
WinHttp.SetRequestHeader "Accept-Language", "zh-cn,zh" ’用戶系統(tǒng)語言 
WinHttp.SetRequestHeader "User-Agent", "Mozilla/6.0" ’用戶瀏覽器信息 
WinHttp.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" ’編碼方式 
WinHttp.SetRequestHeader "Referer", "http://www.baidu.com/" ’來路 
WinHttp.SetRequestHeader "Connection", "Close" ’Close = 不保持連接，Keep-Alive = 保持連接(持久連接) 
’WinHttp.SetRequestHeader "Accept-Encoding", "gzip, deflate" ’如果發(fā)送，會返回 gzip, deflate 壓縮過的編碼 
’WinHttp.SetRequestHeader "Content-Length", Len(Str) ’內容長度，Post 方式用的。 
WinHttp.SetRequestHeader "Cookie", "test cookie!" ’設置 Cookie 

’發(fā)送數(shù)據(jù) 
WinHttp.Send ’Post 方式：WinHttp.Send (參數(shù)) 
WinHttp.WaitForResponse ’等待返回請求，XMLHTTP中也可以使用 
’輸出結果 
Response.Write WinHttp.Status ’當前 HTTP 狀態(tài) 

’Response.Write WinHttp.ResponseText ’文本數(shù)據(jù) 

Response.BinaryWrite WinHttp.ResponseBody ’二進制數(shù)據(jù)流數(shù)據(jù)
%>