Hvis du har en side der f.eks. hedder stream.asp, som indeholder noget kode i stil med nedenstående, så kan du kalde den for at få streamet en fil ud til browseren.
<%@ language="vbscript" %>
<%
Const adTypeBinary = 1
' DUMMY FILNAVN - SKAL NATURLIGVIS UDSKIFTES MED ET OPSLAG ET ELLER ANDET STED
' SOM KAN GIVE ET FILNAVN SOM ER RELEVANT FOR DIN APPLIKATION
docname = "myimage.jpg"
filename = server.mappath(docname)
' OPSÆT STREAMING AF DATA (SOM ALTSÅ OGSÅ KAN VÆRE ANDRE DOKUMENTTYPER)
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile filename
arrFilename = split(filename,".")
Select Case lcase(arrFilename(ubound(arrFilename)))
Case "asf"
ContentType = "video/x-ms-asf"
Case "avi"
ContentType = "video/avi"
Case "doc"
ContentType = "application/msword"
Case "zip"
ContentType = "application/zip"
Case "xls"
ContentType = "application/vnd.ms-excel"
Case "gif"
ContentType = "image/gif"
Case "jpg", "jpeg"
ContentType = "image/jpeg"
Case "wav"
ContentType = "audio/wav"
Case "mp3"
ContentType = "audio/mpeg3"
Case "mpg", "mpeg"
ContentType = "video/mpeg"
Case "rtf"
ContentType = "application/rtf"
Case "htm", "html"
ContentType = "text/html"
Case "asp"
ContentType = "text/asp"
Case Else
'Handle All Other Files
ContentType = "application/octet-stream"
End Select
Response.AddHeader "Content-Type", ContentType & "; charset=windows-1252"
Response.AddHeader "content-disposition", "filename=" & docname
Response.BinaryWrite objStream.Read
%>
Siden som benytter sig af denne streaming, kan f.eks. se således ud:
<%@ language="vbscript" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"> <html>
<head>
<title>default</title>
</head>
<body>
<form id="Form1" method="post">
<a href="stream.asp">Hent dokument</a><br>
<img src="stream.asp">
</form>
</body>
</html>