AspSmartUpload - flere filer - problemer med navngivning
Jeg har en formular, hvor jeg via AspSmartUpload uploader en/flere filer (op til 5) - og det virker da også nogenlunde.I en bestemt situation, vil jeg imidlertid ikke give muligheden for at uploade fil nr. 2 - men efterfølgende bliver navngivningen desværre derefter alligevel.
Fil nr. 3 som er:
mySmartUpload.Form("MyCD")
- får nemlig navngivning som:
mySmartUpload.Files.Item(2).SaveAs (b)
- som ellers var navngivningen til fil nr. 2 i formularen.
Her er koden:
Uddrag fra formular:
--------------------------
<FORM METHOD="POST" ACTION="dcux.asp" NAME="DCU" ENCTYPE="multipart/form-data">
<%
Response.Write "Front-cover:<BR><INPUT TYPE='FILE' NAME='FILE1' SIZE='30'><BR>"
if f_hit = True then
Response.Write "<b>BEMÆRK: Filen findes i forvejen!</b><BR>"
end if
if tabel = "Musik" then
Response.Write "<BR>Back-cover:<BR><INPUT TYPE='FILE' NAME='FILE2' SIZE='30'><BR>"
if b_hit = True then
Response.Write "<b>BEMÆRK: Filen findes i forvejen!</b><BR>"
end if
end if
if (format = "CD" or format = "DVD" or format = "SVCD") then
Response.Write "<BR>CD-cover:<BR><INPUT TYPE='FILE' NAME='FILE3' SIZE='30'><BR>"
if cd_hit = True then
Response.Write "<b>BEMÆRK: Filen findes i forvejen!</b><BR>"
end if
end if
Response.Write "<BR>Ekstra(1)-cover:<BR><INPUT TYPE='FILE' NAME='FILE4' SIZE='30'><BR>"
if e1_hit = True then
Response.Write "<b>BEMÆRK: Filen findes i forvejen!</b><BR>"
end if
Response.Write "<BR>Ekstra(2)-cover:<BR><INPUT TYPE='FILE' NAME='FILE5' SIZE='30'><BR>"
if e2_hit = True then
Response.Write " <b>BEMÆRK: Filen findes i forvejen!</b><BR>"
end if
%>
<input TYPE="hidden" name="myTabel" value="<%Response.Write tabel%>">
<input TYPE="hidden" name="myFormat" value="<%Response.Write format%>">
<input TYPE="hidden" name="myId" value="<%Response.Write id%>">
<input TYPE="hidden" name="myF" value="<%Response.Write f_fil%>">
<input TYPE="hidden" name="myB" value="<%Response.Write b_fil%>">
<input TYPE="hidden" name="myCD" value="<%Response.Write cd_fil%>">
<input TYPE="hidden" name="myE1" value="<%Response.Write e1_fil%>">
<input TYPE="hidden" name="myE2" value="<%Response.Write e2_fil%>">
<input TYPE="hidden" name="myHidden" value="hidden">
<INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>
------------------------------
Koden der eksekverer det:
------------------------------
<%
On Error Resume Next
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Only allow jpg-files
' ********************
mySmartUpload.AllowedFilesList = "jpg"
' Only allow files smaller than 1048576 bytes
' ******************************************
mySmartUpload.MaxFileSize = 1048576
' Upload
' ******
mySmartUpload.Upload
' Get variables
' *************
tabel = mySmartUpload.Form("MyTabel")
medie = mySmartUpload.Form("MyFormat")
id = mySmartUpload.Form("MyId")
f = mySmartUpload.Form("MyF")
b = mySmartUpload.Form("MyB")
cd = mySmartUpload.Form("MyCD")
e1 = mySmartUpload.Form("MyE1")
e2 = mySmartUpload.Form("MyE2")
%>
<HTML>
<head>
<title>Hovsa!</title>
<link rel="stylesheet" href="/oddsrus/layout/3.css" type="text/css" media="screen">
</head>
<body>
<div id="menu"><!--#include file="dm.asp"--></div>
<h1>Hovsa!</h1
<%
if Err Then
Response.Write("<b>Wrong selection : </b>" & Err.description)
else
f_up = True
b_up = True
cd_up = True
e1_up = True
e2_up = True
' SaveAs
' ******
if mySmartUpload.Files.Item(1).IsMissing then
f_up = False
end if
if mySmartUpload.Files.Item(2).IsMissing then
b_up = False
end if
if mySmartUpload.Files.Item(3).IsMissing then
cd_up = False
end if
if mySmartUpload.Files.Item(4).IsMissing then
e1_up = False
end if
if mySmartUpload.Files.Item(5).IsMissing then
e2_up = False
end if
if f_up = True then
mySmartUpload.Files.Item(1).SaveAs (f)
end if
if b_up = True then
mySmartUpload.Files.Item(2).SaveAs (b)
end if
if cd_up = True then
mySmartUpload.Files.Item(3).SaveAs (cd)
end if
if e1_up = True then
mySmartUpload.Files.Item(4).SaveAs (e1)
end if
if e2_up = True then
mySmartUpload.Files.Item(5).SaveAs (e2)
end if
' Redirect til Session("last")
' *******************
link = "du.asp?t=" & tabel & "&id=" & id
response.redirect (link)
end if
%>
</BODY>
</HTML>
