Salve ho inserito un pulsante per inserire i file nel mio forum, ok lo script non è mio l'ho trovato sulla rete, l'upload funziona correttamente però mi serve che quando sia finito mi butti direttamente dentro al topic del forum anche la stringa per il download, ho inserito questo codice
ma non so la corretta procedura per estrarre le variabili che sono nei campi di input del form!
codice:
<%
'Stores only files with size less than MaxFileSize
Dim DestinationPath
DestinationPath = Server.mapPath("UploadFolder")
'Using Huge-ASP file upload
'Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm")
'Using Pure-ASP file upload
Dim Form: Set Form = New ASPForm %><%
Server.ScriptTimeout = 2000
Form.SizeLimit = &HA00000
'{b}Set the upload ID for this form.
'Progress bar window will receive the same ID.
if len(Request.QueryString("UploadID"))>0 then
Form.UploadID = Request.QueryString("UploadID")'{/b}
end if
'was the Form successfully received?
Const fsCompletted = 0
If Form.State = fsCompletted Then 'Completted
'was the Form successfully received?
if Form.State = 0 then
'Do something with upload - save, enumerate, ...
response.write "
Upload result: Form was accepted."
%>
<script>
window.opener.PostTopic.Message.value=window.opener.PostTopic.Message.value + "\n\nDownload Attachment: <%=PostURL%> [img]images/icon_paperclip.gif[/img] <% =oldfilename %>[br]<% =strFileSize %>";
</script>
<%
response.write "
Number of file fields:" & Form.Files.Count
response.write "
Request total bytes:" & Request.TotalBytes
Form.Files.Save DestinationPath
response.write "
Files was saved to " & DestinationPath & " folder."
End If
ElseIf Form.State > 10 then
Const fsSizeLimit = &HD
Select case Form.State
case fsSizeLimit: response.write "
<Font Color=red>Source form size (" & Form.TotalBytes & "B) exceeds form limit (" & Form.SizeLimit & "B)</Font>
"
case else response.write "
<Font Color=red>Some form error.</Font>
"
end Select
End If'Form.State = 0 then
'{b}get an unique upload ID for this upload script and progress bar.
Dim UploadID, PostURL
UploadID = Form.NewUploadID
'Send this ID as a UploadID QueryString parameter to this script.
PostURL = Request.ServerVariables("SCRIPT_NAME") & "?UploadID=" & UploadID'{/b}
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<TITLE>ASP huge file upload - simple upload with progress bar indicator.</TITLE>
<STYLE TYPE="text/css"></STYLE>
<meta name="robots" content="noindex,nofollow">
</HEAD>
<BODY BGColor=white>
<Div style=width:600>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
<TH noWrap align=left width="20%" bgColor=khaki><A
href="http://asp-huge-file-form-upload-aspupload.Motobit.cz/help/scptutl/upload.asp">Power ASP
file upload</A> - simple upload with progress bar indicator..</TH>
<TD></TD></TR></TABLE>
<TABLE cellSpacing=2 cellPadding=1 width="100%" bgColor=white border=0>
<TR>
<TD colSpan=2>
This sample demonstrates work of HugeASP upload with progress bar.
Form size limit is <%=Form.SizeLimit \ 1024 %>kB
Destination folder is <%=DestinationPath%>
</P>
</TD></TR></TABLE>
<form name="file_upload" method="POST" ENCTYPE="multipart/form-data" OnSubmit="return ProgressBar();" Action="<%=PostURL%>">
<Div ID=files>
File 1 : <input type="file" name="File1">
File 2 : <input type="file" name="File2">
File 3 : <input type="file" name="File3">
</Div>
<Input Type=Button Value="Add a file" OnClick=return(Expand())
Style="border=0;background=yellow;cursor:hand">
Description: <input Name=Description1 Size=60>
<input Name=SubmitButton Value="Submit »" Type=Submit>
</Form>
<SCRIPT>
//Open window with progress bar.
function ProgressBar(){
var ProgressURL
ProgressURL = 'progress.asp?UploadID=<%=UploadID%>'
var v = window.open(ProgressURL,'_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes,width=350,height=200')
return true;
}
</SCRIPT>
<Script>
//Expand form with a new File fields if needed.
var nfiles = 3;
function Expand(){
nfiles++
var adh = '
File '+nfiles+' : <input type="file" name="File'+nfiles+'">';
files.insertAdjacentHTML('BeforeEnd',adh);
return false;
}
</Script>
<HR COLOR=silver Size=1>
<CENTER>
<FONT SIZE=1>© 1996 – <%=year(date)%> Antonin Foller, Motobit Software, e-mail help@pstruh.cz
To monitor current running uploads/downloads, see IISTracer - IIS real-time monitor.
</FONT>
</CENTER>
</Div>
</BODY></HTML>
Grazie mille
Paolo
Rispondi quotando
