Request.Form fra AspUpload
jeg er ved at lave et administrationsmodul, hvor folk skal kunne uploade et billede. Der har de to muligheder, kun oploade et billede og thumnailen bliver automatisk lavet eller selv uploade et thumnail-billede. Jeg har brug for at tjekke om der findes et thumnail-billede og så kunne requeste begge filnavne.Hvis jeg bruger request.form melder "AspUpload fejl, efter lidt søgen fandt jeg ud af at jeg skal bruge Upload.Form. Men den virker ikke...
MInn upload-form:
' TJEK OM KUNST(KID) OG GRUPPE (GID) ER UDFYLDT
If FrmGid = "" Or FrmKid = "" Then
Response.Redirect "view.asp?act=new&cat=stre&step=A"
End If
Response.Write vbCrLf &_
"<form method=""POST"" enctype=""multipart/form-data"" action=""upload.asp?cat=stre&kid=" & FrmKid & "&gid=" & FrmGid & """>" & vbCrLf &_
"<b>Orginal Billede: </b><input type=""file"" name=""file""><br>" & vbCrLf &_
"<b>Thumnail(200x200): </b><input type=""file"" name=""thum""><br>" & vbCrLf &_
"<input type=""submit"" value=""Upload"">" & vbCrLfr &_
"</form>" & vbCrLf &_
"<i>Trin 2 af 3</i>"
Min upload-fil:
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@ Opdeling af upload:
'@ FrmThum er værdien/navnet på thumnail-billedet
'@ og hvis den er tom skal der laves thumnail af
'@ orginal billedet. Den først If-sætning
'@ vælger om FrmThum er tom...
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles=False
Upload.SaveVirtual("/upload/stre/")
Set FileName = Upload.Files(1)
If Not Upload.Form("thum")= "" Then
Set FileName = Upload.Files(2)
ThumPic = FileName.ExtractFilename
End if
OrgPic = FileName.ExtractFilename
Sti = Server.MapPath("..") &"/upload/stre/"
ThumPic er tom, selvom der er blevet oploadet en fil. Jeg ved at jeg kan løse det ved at dele hele processen ud i et trin mere. Men dette vil være træls for folk at skulle kilkke på næste for mange gange..
/Lars
