ASP hides the download code of real files

Format: Download. asp? Filename = Name of the file to be downloaded CopyCode The Code is as follows: dim stream
Dim Contents
Dim filename
Dim fileext
Const adtypebinary = 1
Filename = request. querystring ("FILENAME ")
If filename = "" then
Response. Write "invalid file name ."
Response. End
End if
'The following is an object that you do not want to download
Fileext = mid (filename, limit Rev (filename, ".") + 1)
Select case ucase (fileext)
Case "asp", "asa", "aspx", "asax", "mdb"
Response. Write "protected file, cannot be downloaded ."
Response. End
End select
'Download this file
Response. Clear
Response. contenttype = "application/octet-stream"
Response. addheader "content-disposition", "attachment; filename =" & filename
Set stream = server. Createobject ("ADODB. Stream ")
Stream. type = adtypebinary
Stream. Open
Stream. loadfromfile server. mappath (filename)
While not stream. Eos
Response. binarywrite stream. Read (1024*64)
Wend
Stream. Close
Set stream = nothing
Response. Flush
Response. End