Hallå!
Jag använder komponeneten ASPSmartUpload för att låta medlemmar i ett community ladda upp en bild. Scriptet fungerar finfint ända tills jag försöker ladda upp en fil som BÅDE är för stor OCH har fel filändelse.

Då verkar det som att filen börjar laddas upp vilket ju inte är meningen. Servern börjar tänka onormalt mycket och ingenting händer...

Så här ser min kod ut och det som knasar är alltså när en fil är "fel på fler en ett sätt".

<code>
If Request.QueryString("WhatToDo") = "UploadFile" Then

On Error Resume Next

' Dim:a variablar
Dim mySmartUpload
Dim intCount

' Skapar objekt
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
i = "i"

' Bestämmer vilka filformat som ska tillåtas
mySmartUpload.AllowedFilesList = "gif,jpg"

' Neka fysisk sökväg
mySmartUpload.DenyPhysicalPath = False

' Bestäm maxstorleken här
mySmartUpload.MaxFileSize = 50000

' Bestäm den totala maxstorleken.
mySmartUpload.TotalMaxFileSize = 50000

' Ladda upp
mySmartUpload.Upload

' Spara filen på webbservern.
' intCount = mySmartUpload.Save("/gdc/images/mempics")

' Spara filen på webbservern med ett speciellt namn.
mySmartUpload.files.item(1).SaveAs "/gdc/images/mempics/" & Session("username") & "." & mySmartUpload.files.item(1).FileExt

' Felhantering
If Err Then
Error = True
Else
Error = False
End If
End If
</code>

http://www.aspsmart.com/aspSmartUpload/

Mvh :)

Om ni inte förstår hur jag menar så fråga där det är oklart så ska jag försöka ge ett så bra svar som möjligt.

:)

Jag fick det att fungera till slut. Säg till om ni ser något i koden som jag borde förbättra!
<code>
<%
If Request.QueryString("WhatToDo") = "UploadFile" Then
On Error Resume Next

Set filesys = CreateObject("Scripting.FileSystemObject")
' Dim:a variablar
Dim mySmartUpload
Dim intCount

' Skapar objekt
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
i = "i"

StrPathGif = "C:\Inetpub/wwwroot/gdc/images/mempics/"& Session("username") &".gif"
StrPathJpg = "C:\Inetpub/wwwroot/gdc/images/mempics/"& Session("username") &".jpg"
If mySmartUpload.files.item(1).FileExt = "gif" Then
If filesys.FileExists(StrPathJpg) Then filesys.DeleteFile StrPathJpg
End If
If mySmartUpload.files.item(1).FileExt = "jpg" Then
If filesys.FileExists(StrPathJpg) Then filesys.DeleteFile StrPathGif
End If

' Bestämmer vilka filformat som ska tillåtas
mySmartUpload.AllowedFilesList = "gif,jpg"

' Neka fysisk sökväg
mySmartUpload.DenyPhysicalPath = False

if Request.ServerVariables("CONTENT_LENGTH") < 200000 then
' Ladda upp
mySmartUpload.Upload

' Spara filen på webbservern med ett speciellt namn.
mySmartUpload.files.item(1).SaveAs "/gdc/images/mempics/" & Session("username") & "." & mySmartUpload.files.item(1).FileExt
else
ErrorSize = True
end if

' Felhantering
If Err Then
Error = True
Else
Error = False
End If
End If
</code>

Mvh