dcsimg
Login | Register   
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: Visual Basic, Web
Expertise: Intermediate
Oct 22, 2002

WEBINAR:

On-Demand

Application Security Testing: An Integral Part of DevOps


Upload Files to Active Server Pages


This tip works with ASP/IIS 4.0 and up. Many companies sell ActiveX objects for uploading files to Active Server Pages. However, you can easily write a bit of VBScript to handle the uploads yourself. The Request object has all the uploaded data:
 
<!--
	HTML for the upload form
	'uploadform.html'
-->
<html><body>
<form action="upload.asp" method="post" _
enctype="multipart/form-data">
<input type=file name="file1" size=20><br>
<input type=file name="file2" size=20><br>
<input type=submit>
</body></html>

<!--
	ASP Code for the upload
	'upload.asp'
-->
<html><body>
<%
	' This code is needed to "initialize" the 
	' retrieved data
	Dim q
	q = Chr(34)
	' All data
	Dim aAllDataB, aAllData, x, aHdr
	aAllDataB = Request.BinaryRead(Request.TotalBytes)
	' It comes in as unicode, so convert it to ascii
	For x = 1 To LenB(aAllDataB)
		aAllData = aAllData & Chr(AscB(MidB( _
			aAllDataB, x, 1)))
	Next
	' The "header" is a unique string generated by the 
	' system to indicate the beginning
	' and end of file data
	aHdr = Left(aAllData, Instr(aAllData,vbCrLf)+1)
%>

<%
	' Here's where your code goes.
	' In this example, "file1" and "file2" are the 
	' field names specified within the form of the 
	' upload submission page.
	Response.Write "file1: Filename = " & _
		GetFilename("file1") & "<br>"
	Response.Write GetFileData("file1") _
& "<br><br>"

	Response.Write "file2: Filename = " & _
		GetFilename("file2") & "<br>"
	Response.Write GetFileData("file2") _
& "<br><br>"

	' Writing out the file data like this only looks 
	' OK when the uploaded file is some kind of text 
	' 
Matt Hart
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date