G said:
Hello Friend,
I am handling a module using ASP3.0 which has to upload an movie clipsof
size 1 mb or 2 mb. i have a code which upload only files or images. So I
need your help for this. If you know any code or any free component please
share with me.
Thanks
G.
keep an eye out on the wrapping!
<!-- save everything below as: fileuploader42.asp -->
<form name="upload" action="fileuploader42.asp"
enctype="multipart/form-data" method="post">
<input type="text" name="title" size="42" value="ASP File Uploader 42 (c)
2004 by Q42 (
www.q42.nl)" /><br/>
<input type="text" name="description" size="42" value="Multiple files and
fields uploading roundtrip in 1 file: 42 lines of javascript including error
handling, size delimiter and comments" /><br/>
<input type="file" name="file1" /><br/>
<input type="submit" value="Send" />
</form>
<%@ language="javascript" %>
<%
if (Request.TotalBytes == 0) Response.End;
// set maximum filesize to 1 Mb
var maxFileSize = 1024 * 1000;
// use recordset to cast binary to string, and split result on seperator
var recordSet = Server.CreateObject("ADODB.Recordset");
recordSet.fields.append(0, 201, Request.TotalBytes);
recordSet.open();
recordSet.addNew();
recordSet.fields(0).appendChunk(Request.binaryRead(Request.TotalBytes));
var data = new String(recordSet.Fields(0)).split((recordSet.Fields(0) +
"").substring(0, (recordSet.Fields(0) + "").indexOf("\r\n")));
recordSet.close();
// store values and files in different objects, so we can scan through
them later
var values = {};
var files = {};
for (var i = 1; i < data.length - 1; i++) {
var curdata = data
.split("\r\n");
if ((curdata[2].length == 0) && (curdata[4].length == 0))
values[curdata[1].substring(38, curdata[1].length-1)] = curdata[3];
if ((curdata[2].length != 0) && (curdata[4].length != 0) &&
(data.length < maxFileSize))
files[curdata[1].replace(/.*filename=[\'\"](.*)[\'\"]/,
"$1").replace(/([^\\]+\\)+/,"")] = { contentType:curdata[2].substr(14),
fileData:curdata.slice(4, curdata.length - 1).join("\r\n")};
}
// scan through the names in the values object and show each corresponding
value
for (var fieldName in values) Response.Write(fieldName + " = " +
values[fieldName] + "<br/>");
// scan through the files object, store each file to disk, and show the
result (images show directly, other data show the contenttype as a hyperlink
to a popupwindow)
for (var fileName in files) {
try {
var fso = new ActiveXObject("Scripting.FileSystemObject");
var file = fs
penTextFile(Server.MapPath(fileName), 2, true);
file.write(files[fileName].fileData);
file.close();
Response.Write(fileName + " : <a href='"+fileName+"'
target='_new'><img align='top' src='"+fileName+"'
title='"+files[fileName].contentType+"' border=''
onerror='this.parentNode.innerHTML=this.title'/></a><br/>");
} catch(e) {
Response.Write("Error. Could not upload the file: " + fileName +
"<br/>");
}
}
%>