Codango: ASP Code Snippet

JSP

Share The Love

You are 1 of 16 Active ASP Visitors

ASP Home | Resources | Write a Review | My Favor-Its | Login

Isolating file extensionsCode Snippet

Read Reviews | Report Errors

[+][+]

3
Reviews

0
Favor-It

This is a simple bit of code that can be used to extract the 3 character extension of a file, filename or document and display a different message or perform a differnt function for each. Very useful when used with a file upload. Code: ASP 3.0 & VBScript


		Code Snippet

Code Written By: Scott Campbell from www.scocam.com

<%
dim strFileName, str3, strExt

strFileName = UCase(RS("FileName"))	'Getting the filename from our database and setting the string contents.
intHowLong = Len(strFileName)		'Getting the number of character contained within the filename.
str3 = intHowLong - intHowLong + 3	'Subtracting the number of characters then adding 3. This is effectively removing the filename and leaving only the extension.
strExt = Right(strFilename, str3)		'Isolating the extension (the last three characters of strFileName) from the filename.
%>


<%
If strExt = "JPG" Then
Response.Write "JPEG"
End If
%>

<%
If strExt = "GIF" Then
Response.Write "GIF"
End If
%>

<%
If strExt = "PDF" Then
Response.Write "Adobe Acrobat PDF"
End If
%>

<%
If strExt = "DOC" Then
Response.Write "Microsoft Word Document"
End If
%>


	Shopping Cart

To use the code above, click and drag your mouse over the code to highlight it. Then right click on the highlighted code and click "Copy." Now you may paste it into your code editor.

Submit Your Own Code to Codango


Link to Us \| About Us		Advertise \| Contact Us \| Website Help
Write a User Review Today! Its Fun, Fast, and Easy!	Codango Home \| PHP \| ASP.NET \| ASP \| JSP Advertise With Us \| About Us \| Terms of Use \| Privacy Policy


� 2013 ezd.com, All rights reserved