Nån som vet hur man gör för att ta hand om bilder som är för stora vid uppladdning, File.IsMissing har jag bara om filen inte finns men behöver felhantering om det är fel filtyp eller för stor bild
Detta har jag nu
Dim mySmartUpload
Dim file
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.AllowedFilesList = "jpg,png"
mySmartUpload.DenyPhysicalPath = True
mySmartUpload.MaxFileSize = 100000
mySmartUpload.Upload
Set file = mySmartUpload.Files("blob")
If file.IsMissing Then
Response.Write("Filen saknas!<BR>")
Else
strFil = file.FileName
file.SaveAs("/images/users/"& Session("userID") &"." & file.FileExt & "")
'Response.Write("Name = " & file.Name & "<BR>")
'Response.Write("Size = " & file.Size & "<BR>")
'Response.Write("FileName = " & file.FileName & "<BR>")
'Response.Write("FileExt = " & file.FileExt & "<BR>")
End If
Antar att du sökt?
Finns väl hundratals trådar som tar upp olika scenarion med aspsmartupload :)
Jag hittade följande kodsnutt som jag använt tidigare, hoppas det är till någon hjälp.
On Error Resume Next
'// INITIERAR FILUPPLADDNING
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.AllowedFilesList = "jpg,gif"
objUpload.DenyPhysicalPath = True
objUpload.MaxFileSize = 150000
objUpload.Upload
If Err Then
'// FELHANTERAR
If InStr(LCase(Err.Description), "allowed to be uploaded") > 0 Then
Response.Write("Fel filformat!")
ElseIf InStr(LCase(Err.Description), "size exceeded") > 0 Then
Response.Write("Filen ä för stor!")
End If
Else
'// SPARAR FILER
For Each File In objUpload.Files
strFileName = "filnamn"
File.SaveAs(strFileName &"."& File.FileExt)
Next
End If
If file.IsMissing Then
Response.Write("Filen saknas!<BR>")
Else
i ditt exempel?
JAreMANNEN skrev:
Antar att du sökt?
Finns väl hundratals trådar som tar upp olika scenarion med aspsmartupload :)
Jag hittade följande kodsnutt som jag använt tidigare, hoppas det är till någon hjälp.
On Error Resume Next
'// INITIERAR FILUPPLADDNING
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.AllowedFilesList = "jpg,gif"
objUpload.DenyPhysicalPath = True
objUpload.MaxFileSize = 150000
objUpload.Upload
If Err Then
'// FELHANTERAR
If InStr(LCase(Err.Description), "allowed to be uploaded") > 0 Then
Response.Write("Fel filformat!")
ElseIf InStr(LCase(Err.Description), "size exceeded") > 0 Then
Response.Write("Filen ä för stor!")
End If
Else
'// SPARAR FILER
For Each File In objUpload.Files
strFileName = "filnamn"
File.SaveAs(strFileName &"."& File.FileExt)
Next
End If
