(Classic ASP) Bandwidth Throttled Asynchronous HTTP Upload

Demonstrates how to do an HTTP upload asynchronously in a background thread with limiting the rate to an approximate number of bytes/second. The only difference between this example and one without bandwidth throttling is that the BandwidthThrottleUp property is set.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Upload")
set upload = Server.CreateObject("Chilkat.Upload")

' Specify the page (ASP, ASP.NET, Perl, Python, Ruby, CGI, etc)
' that will process the HTTP Upload.
upload.Hostname = "www.mywebserver.com"
upload.Path = "/receiveUpload.aspx"

' Add one or more files to be uploaded.
upload.AddFileReference "file1","dude.gif"
upload.AddFileReference "file2","pigs.xml"
upload.AddFileReference "file3","sample.doc"

' Set the BandwidthThrottleUp property to throttle to approx 64K/second
upload.BandwidthThrottleUp = 65536

' Begin the HTTP upload in a background thread:
success = upload.BeginUpload()
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( upload.LastErrorText) & "</pre>"
Else
    Response.Write "<pre>" & Server.HTMLEncode( "Upload started...") & "</pre>"
End If

' Wait for the upload to finish.
' Print the progress as we wait...
Do While (upload.UploadInProgress = 1)
    ' We can abort the upload at any point by calling:
    ' upload.AbortUpload();

    ' Display the percentage complete and the number of bytes uploaded so far..
    ' The total upload size will become set after the upload begins:
    Response.Write "<pre>" & Server.HTMLEncode( upload.PercentUploaded & "% " & upload.NumBytesSent & "/" & upload.TotalUploadSize) & "</pre>"

    ' Sleep 2/10ths of a second.
    upload.SleepMs 200

Loop

' Did the upload succeed?
If (upload.UploadSuccess = 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Files uploaded!") & "</pre>"
Else
    Response.Write "<pre>" & Server.HTMLEncode( upload.LastErrorText) & "</pre>"
End If


%>
</body>
</html>