Get Size of Download using HTTP HEAD
Get the size of a download using an HTTP HEAD request.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set http = Server.CreateObject("Chilkat_9_5_0.Http")
' Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial.")
If (success <> 1) Then
Response.Write http.LastErrorText & "<br>"
End If
Set resp = http.GetHead("http://www.chilkatsoft.com/download/ChilkatDotNet2.msi")
If (resp Is Nothing ) Then
Response.Write http.LastErrorText & "<br>"
Else
sizeStr = resp.GetHeaderField("Content-Length")
If (sizeStr = vbNullString ) Then
Response.Write "No content-length header field" & "<br>"
Else
' Show the size of the file.
' You may convert the size string to an integer...
Response.Write sizeStr & "<br>"
End If
End If
%>
</body>
</html>
|
