ASP實(shí)現http文件頭的在再改造

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

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

’Response.Write WinHttp.ResponseText ’文本數據 

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