Solved

File type in ADODB.Stream

Posted on 2006-06-22
6
1,258 Views
Last Modified: 2013-12-03
Hi Experts,

To offer visitors a download without giving away the path to the file, I implemented the code as described in Microsofts Knowledge Base article "Use of the ADODB.Stream Object to Send Binary Files to the Browser through ASP" (http://support.microsoft.com/support/kb/articles/q276/4/88.asp).

Most of the files I want to send are PDF, so I changed
            Response.ContentType = "application/octet-stream"
to
            Response.ContentType = "application/pdf"

Is there any way to set the mime type automatically?
0
Comment
Question by:WebJoe
  • 3
  • 3
6 Comments
 
LVL 7

Accepted Solution

by:
Hecatonchires earned 250 total points
Comment Utility
dim fileExt
fileExt = ucase(right(objFile.name))
select case fileExt
     case "PDF"
        response.contentType= "application/pdf"
     case "TXT"
        response.contentType= "text"
     case "HTM"
        response.contentType = "text/html"
     default
        response.contentType = "application/octet-stream"
end select
0
 

Author Comment

by:WebJoe
Comment Utility
I was afraid that would be the answer ... nothing more elegant, like a property of some object (other than file, I already checked that)?
0
 

Author Comment

by:WebJoe
Comment Utility
so to have a (hopefully) correct content type, you'd have to do

<snip>
        sFileExtension = UCase(Right(sFile, (Len(sFile) - InStrRev(sFile, ".", -1, vbTextCompare))))

        '   Set the content type and stream type according to file extension
        Select Case sFileExtension
            Case "3DM", "3DMF", "QD3", "QD3D"
                sContentType = "x-world/x-3dmf"
            Case "A", "ARC", "ARJ", "BIN", "COM", "DUMP", "EXE", "LHA", "LHX", "LZH", "LZX", "O", "PSD", "SAVEME", "ZOO"
                sContentType = "application/octet-stream"
            Case "AAB"
                sContentType = "application/x-authorware-bin"
            Case "AAM"
                sContentType = "application/x-authorware-map"
            Case "AAS"
                sContentType = "application/x-authorware-seg"
            Case "ABC"
                sContentType = "text/vnd.abc"
            Case "ACGI", "HTM", "HTML", "HTMLS", "HTX", "SHTML"
                sContentType = "text/html"
            Case "AFL"
                sContentType = "video/animaflex"
            Case "AI", "EPS", "PS"
                sContentType = "application/postscript"
            Case "AIF", "AIFC", "AIFF"
                sContentType = "audio/aiff"
            Case "AIM"
                sContentType = "application/x-aim"
            Case "AIP"
                sContentType = "text/x-audiosoft-intra"
            Case "ANI"
                sContentType = "application/x-navi-animation"
            Case "AOS"
                sContentType = "application/x-nokia-9000-communicator-add-on-software"
            Case "APS"
                sContentType = "application/mime"
            Case "ART"
                sContentType = "image/x-jg"
            Case "ASM", "S"
                sContentType = "text/x-asm"
            Case "ASP"
                sContentType = "text/asp"
            Case "ASX", "ASF"
                sContentType = "video/x-ms-asf "
            Case "AU"
                sContentType = "audio/x-au"
            Case "AVI"
                sContentType = "video/msvideo"
            Case "AVS"
                sContentType = "video/avs-video"
            Case "BCPIO"
                sContentType = "application/x-bcpio"
            Case "BM", "BMP"
                sContentType = "image/bmp"
            Case "BMP"
                sContentType = "image/x-windows-bmp"
            Case "BOO", "BOOK"
                sContentType = "application/book"
            Case "BOZ", "BZ2"
                sContentType = "application/x-bzip2"
            Case "BSH", "SHAR"
                sContentType = "application/x-bsh"
            Case "BZ"
                sContentType = "application/x-bzip"
            Case "C", "C++", "CC", "CONF", "CXX", "DEF", "F", "F90", "FOR", "G", "H", "HH", "IDC", "JAV", "JAVA", "JS", "LIST", "LOG", "LST", "M", "MAR", "PL", "SDML", "TEXT", "TXT"
                sContentType = "text/plain"
            Case "CAT"
                sContentType = "application/vnd.ms-pki.seccat"
            Case "CCAD"
                sContentType = "application/clariscad"
            Case "CCO"
                sContentType = "application/x-cocoa"
            Case "CDF"
                sContentType = "application/cdf"
            Case "CER", "CRT"
                sContentType = "application/pkix-cert"
            Case "CHA", "CHAT"
                sContentType = "application/x-chat"
            Case "CLASS"
                sContentType = "application/java"
            Case "CPIO"
                sContentType = "application/x-cpio"
            Case "CPP"
                sContentType = "text/x-c"
            Case "CPT"
                sContentType = "application/mac-compactpro"
            Case "CRL"
                sContentType = "application/pkix-crl"
            Case "CSH"
                sContentType = "application/x-csh"
            Case "CSH"
                sContentType = "text/x-script.csh"
            Case "CSS"
                sContentType = "text/css"
            Case "DCR", "DIR", "DXR"
                sContentType = "application/x-director"
            Case "DEEPV"
                sContentType = "application/x-deepv"
            Case "DER"
                sContentType = "application/x-x509-ca-cert"
            Case "DIF", "DV"
                sContentType = "video/x-dv"
            Case "DL"
                sContentType = "video/dl"
            Case "DOC", "DOT", "W6W", "WIZ", "WORD"
                sContentType = "application/msword"
            Case "DP"
                sContentType = "application/commonground"
            Case "DRW"
                sContentType = "application/drafting"
            Case "DVI"
                sContentType = "application/x-dvi"
            Case "DWF"
                sContentType = "model/vnd.dwf"
            Case "DWG", "DXF", "SVF"
                sContentType = "image/vnd.dwg"
            Case "EL"
                sContentType = "text/x-script.elisp"
            Case "ELC"
                sContentType = "application/x-elc"
            Case "ENV"
                sContentType = "application/x-envoy"
            Case "ES"
                sContentType = "application/x-esrehber"
            Case "ETX"
                sContentType = "text/x-setext"
            Case "EVY"
                sContentType = "application/envoy"
            Case "F77"
                sContentType = "text/x-fortran"
            Case "FDF"
                sContentType = "application/vnd.fdf"
            Case "FIF"
                sContentType = "image/fif"
            Case "FLI"
                sContentType = "video/fli"
            Case "FLO", "TURBOT            image/florian"
            Case "FLX"
                sContentType = "text/vnd.fmi.flexstor"
            Case "FMF"
                sContentType = "video/x-atomic3d-feature"
            Case "FPX"
                sContentType = "image/vnd.fpx"
            Case "FRL"
                sContentType = "application/freeloader"
            Case "FUNK", "MY", "PFUNK"
                sContentType = "audio/make"
            Case "G3"
                sContentType = "image/g3fax"
            Case "GIF"
                sContentType = "image/gif"
            Case "GL"
                sContentType = "video/gl"
            Case "GSD", "GSM"
                sContentType = "audio/x-gsm"
            Case "GSP"
                sContentType = "application/x-gsp"
            Case "GSS"
                sContentType = "application/x-gss"
            Case "GTAR"
                sContentType = "application/x-gtar"
            Case "GZ", "GZIP"
                sContentType = "application/x-gzip"
            Case "HDF"
                sContentType = "application/x-hdf"
            Case "HELP"
                sContentType = "application/x-helpfile"
            Case "HGL", "HPG", "HPGL"
                sContentType = "application/vnd.hp-hpgl"
            Case "HLB"
                sContentType = "text/x-script"
            Case "HLP"
                sContentType = "application/hlp"
            Case "HQX"
                sContentType = "application/binhex"
            Case "HTA"
                sContentType = "application/hta"
            Case "HTC"
                sContentType = "text/x-component"
            Case "HTT"
                sContentType = "text/webviewhtml"
            Case "ICE"
                sContentType = "x-conference/x-cooltalk"
            Case "ICO"
                sContentType = "image/x-icon"
            Case "IEF", "IEFS"
                sContentType = "image/ief"
            Case "IGES", "IGS"
                sContentType = "model/iges"
            Case "IMA"
                sContentType = "application/x-ima"
            Case "IMAP"
                sContentType = "application/x-httpd-imap"
            Case "INF"
                sContentType = "application/inf"
            Case "INS"
                sContentType = "application/x-internett-signup"
            Case "IP"
                sContentType = "application/x-ip2"
            Case "ISU"
                sContentType = "video/x-isvideo"
            Case "IT"
                sContentType = "audio/it"
            Case "IV"
                sContentType = "application/x-inventor"
            Case "IVR"
                sContentType = "i-world/i-vrml"
            Case "IVY"
                sContentType = "application/x-livescreen"
            Case "JAM"
                sContentType = "audio/x-jam"
            Case "JCM"
                sContentType = "application/x-java-commerce"
            Case "JFIF", "JFIF-TBNL", "JPE", "JPEG", "JPG"
                sContentType = "image/jpeg"
            Case "JPS"
                sContentType = "image/x-jps"
            Case "JUT"
                sContentType = "image/jutvision"
            Case "KAR", "MID", "MIDI"
                sContentType = "audio/midi"
            Case "KSH"
                sContentType = "text/x-script.ksh"
            Case "LA"
                sContentType = "audio/x-nspaudio"
            Case "LA", "LMA"
                sContentType = "audio/nspaudio"
            Case "LAM"
                sContentType = "audio/x-liveaudio"
            Case "LATEX", "LTX"
                sContentType = "application/x-latex"
            Case "LSP"
                sContentType = "text/x-script.lisp"
            Case "LSX"
                sContentType = "text/x-la-asf"
            Case "M1V", "M2V", "MP2", "MP3", "MPA", "MPE", "MPEG", "MPG"
                sContentType = "video/mpeg"
            Case "M2A", "MP2", "MPGA"
                sContentType = "audio/mpeg"
            Case "M3U"
                sContentType = "audio/x-mpequrl"
            Case "MAN"
                sContentType = "application/x-troff-man"
            Case "MAP"
                sContentType = "application/x-navimap"
            Case "MBD"
                sContentType = "application/mbedlet"
            Case "MC$"
                sContentType = "application/x-magic-cap-package-1.0"
            Case "MCD"
                sContentType = "application/mcad"
            Case "MCF"
                sContentType = "text/mcf"
            Case "MCP"
                sContentType = "application/netmc"
            Case "ME"
                sContentType = "application/x-troff-me"
            Case "MHT", "MHTML", "MIME"
                sContentType = "message/rfc822"
            Case "MIF"
                sContentType = "application/x-frame"
            Case "MJF"
                sContentType = "audio/x-vnd.audioexplosion.mjuicemediafile"
            Case "MJPG"
                sContentType = "video/x-motion-jpeg"
            Case "MM", "MME"
                sContentType = "application/base64"
            Case "MOD"
                sContentType = "audio/mod"
            Case "MOOV", "MOV", "QT"
                sContentType = "video/quicktime"
            Case "MOVIE", "MV"
                sContentType = "video/x-sgi-movie"
            Case "MPC", "MPT", "MPV", "MPX"
                sContentType = "application/x-project"
            Case "MPP"
                sContentType = "application/vnd.ms-project"
            Case "MRC"
                sContentType = "application/marc"
            Case "MS"
                sContentType = "application/x-troff-ms"
            Case "MZZ"
                sContentType = "application/x-vnd.audioexplosion.mzz"
            Case "NAP", "NAPLPS            image/naplps"
            Case "NC"
                sContentType = "application/x-netcdf"
            Case "NCM"
                sContentType = "application/vnd.nokia.configuration-message"
            Case "NIF", "NIFF"
                sContentType = "image/x-niff"
            Case "NIX"
                sContentType = "application/x-mix-transfer"
            Case "NSC"
                sContentType = "application/x-conference"
            Case "NVD"
                sContentType = "application/x-navidoc"
            Case "ODA"
                sContentType = "application/oda"
            Case "OMC"
                sContentType = "application/x-omc"
            Case "OMCD"
                sContentType = "application/x-omcdatamaker"
            Case "OMCR"
                sContentType = "application/x-omcregerator"
            Case "P"
                sContentType = "text/x-pascal"
            Case "P10"
                sContentType = "application/pkcs10"
            Case "P12"
                sContentType = "application/pkcs-12"
            Case "P7A"
                sContentType = "application/x-pkcs7-signature"
            Case "P7C", "P7M"
                sContentType = "application/pkcs7-mime"
            Case "P7R"
                sContentType = "application/x-pkcs7-certreqresp"
            Case "P7S"
                sContentType = "application/pkcs7-signature"
            Case "PART", "PRT"
                sContentType = "application/pro_eng"
            Case "PAS"
                sContentType = "text/pascal"
            Case "PBM"
                sContentType = "image/x-portable-bitmap"
            Case "PCL"
                sContentType = "application/vnd.hp-pcl"
            Case "PCT"
                sContentType = "image/x-pict"
            Case "PCX"
                sContentType = "image/x-pcx"
            Case "PDB", "XYZ"
                sContentType = "chemical/x-pdb"
            Case "PDF"
                sContentType = "application/pdf"
            Case "PGM"
                sContentType = "image/x-portable-greymap"
            Case "PIC", "PICT"
                sContentType = "image/pict"
            Case "PKG"
                sContentType = "application/x-newton-compatible-pkg"
            Case "PKO"
                sContentType = "application/vnd.ms-pki.pko"
            Case "PLX"
                sContentType = "application/x-pixclscript"
            Case "PM"
                sContentType = "text/x-script.perl-module"
            Case "PM4", "PM5"
                sContentType = "application/x-pagemaker"
            Case "PNG", "X-PNG"
                sContentType = "image/png"
            Case "PNM"
                sContentType = "image/x-portable-anymap"
            Case "POT", "PPA", "PPS", "PPT", "PPZ", "PWZ"
                sContentType = "application/powerpoint"
            Case "POV"
                sContentType = "model/x-pov"
            Case "PPM"
                sContentType = "image/x-portable-pixmap"
            Case "PRE"
                sContentType = "application/x-freelance"
            Case "PVU"
                sContentType = "paleovu/x-pv"
            Case "PY"
                sContentType = "text/x-script.phyton"
            Case "PYC"
                sContentType = "applicaiton/x-bytecode.python"
            Case "QCP"
                sContentType = "audio/vnd.qcelp"
            Case "QIF", "QTI", "QTIF"
                sContentType = "image/x-quicktime"
            Case "QTC"
                sContentType = "video/x-qtc"
            Case "RA"
                sContentType = "audio/x-realaudio"
            Case "RA", "RAM", "RM", "RMM", "RMP"
                sContentType = "audio/x-pn-realaudio"
            Case "RAS", "RAST"
                sContentType = "image/cmu-raster"
            Case "REXX"
                sContentType = "text/x-script.rexx"
            Case "RF"
                sContentType = "image/vnd.rn-realflash"
            Case "RGB"
                sContentType = "image/x-rgb"
            Case "RMI"
                sContentType = "audio/mid"
            Case "RNG"
                sContentType = "application/ringing-tones"
            Case "RNX"
                sContentType = "application/vnd.rn-realplayer"
            Case "ROFF"
                sContentType = "application/x-troff"
            Case "RP"
                sContentType = "image/vnd.rn-realpix"
            Case "RPM"
                sContentType = "audio/x-pn-realaudio-plugin"
            Case "RT", "RTF", "RTX"
                sContentType = "text/richtext"
            Case "RV"
                sContentType = "video/vnd.rn-realvideo"
            Case "S3M"
                sContentType = "audio/s3m"
            Case "SBK"
                sContentType = "application/x-tbook"
            Case "SCM"
                sContentType = "application/x-lotusscreencam"
            Case "SDP"
                sContentType = "application/sdp"
            Case "SDR"
                sContentType = "application/sounder"
            Case "SEA"
                sContentType = "application/sea"
            Case "SET"
                sContentType = "application/set"
            Case "SGM", "SGML"
                sContentType = "text/sgml"
            Case "SH"
                sContentType = "application/x-sh"
            Case "SID"
                sContentType = "audio/x-psid"
            Case "SIT"
                sContentType = "application/x-sit"
            Case "SKD", "SKM", "SKP", "SKT"
                sContentType = "application/x-koan"
            Case "SL"
                sContentType = "application/x-seelogo"
            Case "SMI", "SMIL"
                sContentType = "application/smil"
            Case "SND"
                sContentType = "audio/basic"
            Case "SOL"
                sContentType = "application/solids"
            Case "SPC"
                sContentType = "application/x-pkcs7-certificates"
            Case "SPL"
                sContentType = "application/futuresplash"
            Case "SPR", "SPRITE            application/x-sprite"
            Case "SRC", "WSRC"
                sContentType = "application/x-wais-source"
            Case "SSI"
                sContentType = "text/x-server-parsed-html"
            Case "SSM"
                sContentType = "application/streamingmedia"
            Case "SST"
                sContentType = "application/vnd.ms-pki.certstore"
            Case "STEP", "STP"
                sContentType = "application/step"
            Case "STL"
                sContentType = "application/sla"
            Case "SV4CPIO            application/x-sv4cpio"
            Case "SV4CRC            application/x-sv4crc"
            Case "SVR"
                sContentType = "application/x-world"
            Case "SWF"
                sContentType = "application/x-shockwave-flash"
            Case "T"
                sContentType = "application/x-troff"
            Case "TALK"
                sContentType = "text/x-speech"
            Case "TAR"
                sContentType = "application/x-tar"
            Case "TBK"
                sContentType = "application/toolbook"
            Case "TCL"
                sContentType = "application/x-tcl"
            Case "TCSH"
                sContentType = "text/x-script.tcsh"
            Case "TEX"
                sContentType = "application/x-tex"
            Case "TEXI", "TEXINFO            application/x-texinfo"
            Case "TGZ"
                sContentType = "application/gnutar"
            Case "TIF", "TIFF"
                sContentType = "image/tiff"
            Case "TR"
                sContentType = "application/x-troff"
            Case "TSI"
                sContentType = "audio/tsp-audio"
            Case "TSP"
                sContentType = "audio/tsplayer"
            Case "TSV"
                sContentType = "text/tab-separated-values"
            Case "UIL"
                sContentType = "text/x-uil"
            Case "UNI", "UNIS", "URI", "URIS"
                sContentType = "text/uri-list"
            Case "UNV"
                sContentType = "application/i-deas"
            Case "USTAR"
                sContentType = "application/x-ustar"
            Case "UU", "UUE"
                sContentType = "text/x-uuencode"
            Case "VCD"
                sContentType = "application/x-cdlink"
            Case "VCS"
                sContentType = "text/x-vcalendar"
            Case "VDA"
                sContentType = "application/vda"
            Case "VDO"
                sContentType = "video/vdo"
            Case "VEW"
                sContentType = "application/groupwise"
            Case "VIV", "VIVO"
                sContentType = "video/vivo"
            Case "VMD"
                sContentType = "application/vocaltec-media-desc"
            Case "VMF"
                sContentType = "application/vocaltec-media-file"
            Case "VOC"
                sContentType = "audio/voc"
            Case "VOS"
                sContentType = "video/vosaic"
            Case "VOX"
                sContentType = "audio/voxware"
            Case "VQE", "VQL"
                sContentType = "audio/x-twinvq-plugin"
            Case "VQF"
                sContentType = "audio/x-twinvq"
            Case "VRML", "WRL", "WRZ"
                sContentType = "model/vrml"
            Case "VRT"
                sContentType = "x-world/x-vrt"
            Case "VSD", "VST", "VSW"
                sContentType = "application/x-visio"
            Case "W60"
                sContentType = "application/wordperfect6.0"
            Case "W61"
                sContentType = "application/wordperfect6.1"
            Case "WAV"
                sContentType = "audio/wav"
            Case "WAX"
                sContentType = "audio/x-ms-wax "
            Case "WB1"
                sContentType = "application/x-qpro"
            Case "WBMP"
                sContentType = "image/vnd.wap.wbmp"
            Case "WEB"
                sContentType = "application/vnd.xara"
            Case "WK1"
                sContentType = "application/x-123"
            Case "WM"
                sContentType = "video/x-ms-wm "
            Case "WMA"
                sContentType = "audio/x-ms-wma "
            Case "WMD"
                sContentType = "application/x-ms-wmd "
            Case "WMF"
                sContentType = "windows/metafile"
            Case "WML"
                sContentType = "text/vnd.wap.wml"
            Case "WMLC"
                sContentType = "application/vnd.wap.wmlc"
            Case "WMLS"
                sContentType = "text/vnd.wap.wmlscript"
            Case "WMLSC"
                sContentType = "application/vnd.wap.wmlscriptc"
            Case "WMV"
                sContentType = "video/x-ms-wmv "
            Case "WMX"
                sContentType = "video/x-ms-wmx "
            Case "WMZ"
                sContentType = "application/x-ms-wmz "
            Case "WP", "WP5", "WP6", "WPD"
                sContentType = "application/wordperfect"
            Case "WQ1"
                sContentType = "application/x-lotus"
            Case "WRI"
                sContentType = "application/mswrite"
            Case "WSC"
                sContentType = "text/scriplet"
            Case "WTK"
                sContentType = "application/x-wintalk"
            Case "WVX"
                sContentType = "video/x-ms-wvx "
            Case "XBM", "XPM"
                sContentType = "image/xpm"
            Case "XDR"
                sContentType = "video/x-amt-demorun"
            Case "XGZ"
                sContentType = "xgl/drawing"
            Case "XIF"
                sContentType = "image/vnd.xiff"
            Case "XL", "XLA", "XLB", "XLC", "XLD", "XLK", "XLL", "XLM", "XLS", "XLT", "XLV", "XLW"
                sContentType = "application/excel"
            Case "XM"
                sContentType = "audio/xm"
            Case "XML"
                sContentType = "application/xml"
            Case "XMZ"
                sContentType = "xgl/movie"
            Case "XPIX"
                sContentType = "application/x-vnd.ls-xpix"
            Case "XSR"
                sContentType = "video/x-amt-showrun"
            Case "XWD"
                sContentType = "image/x-xwd"
            Case "Z"
                sContentType = "application/x-compressed"
            Case "ZIP"
                sContentType = "application/zip"
            Case "ZSH"
                sContentType = "text/x-script.zsh"
            Case Else
                sContentType = "application/octet-stream"
        End Select

        If Left(sContentType, InStr(1, sContentType, "/", vbTextCompare) - 1) Then
            lStreamType = adTypeText
        Else
            lStreamType = adTypeBinary
        End If

        Response.ContentType = sContentType

        '   open a stream
        Set objStream = Server.CreateObject("ADODB.Stream")
        objStream.Open

        '   set type
        objStream.Type = lStreamType
<snip>
(assuption: variables DIMed, adType-constants defined)
0
What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

 
LVL 7

Expert Comment

by:Hecatonchires
Comment Utility
That'd... pretty much do it.  Maybe encapsulise it in a function so that your code is neater.

The windows filesystem doesn't seem to keep a real mime-type, just extensions. - its very 'bolted on' the side.  (Unlike the old mac and beos fs's)
0
 
LVL 7

Expert Comment

by:Hecatonchires
Comment Utility
and i should have done the right in the first comment better...
0
 

Author Comment

by:WebJoe
Comment Utility
Too bad, but thanks for you effort
0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

I recently decide that I needed a way to make my pages scream on the net.   While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests." I got to thinking, hey, I use more than one…
Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
Here's a very brief overview of the methods PRTG Network Monitor (https://www.paessler.com/prtg) offers for monitoring bandwidth, to help you decide which methods you´d like to investigate in more detail.  The methods are covered in more detail in o…

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now