---
title: "aspsmartupload"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/59183-aspsmartupload"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "archangel"
published: "2002-11-15T13:43:01.000Z"
updated: "2002-11-15T22:32:54.000Z"
replies: 9
views: 243
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/59183-aspsmartupload"
---
# aspsmartupload
## #1 — archangel, 2002-11-15T13:43Z
jag lyckas itne få mitt upload script att hindra uppladdning av vissa filer... beroende på filändelse och storlek
storlekne förhindrar den...
tex om filen är större än 2mb får jag error medd out of memory
men om filändelsen inte stämmer så tankar den upp ivf
den returnerar också antalet uppladdade filer som 0 även om den laddat upp flera st....
\<%
On Error Resume Next
Set myUpload = Server.CreateObject
"aspSmartUpload.SmartUpload")
myUpload.upload
myUpload.TotalMaxFileSize = 2000000
myUpload.AllowedFilesList = "gif,jpg,jpeg,avi,mpg,mpeg"
myUpload.DeniedFilesList = "exe,bat,asp,html"
Set ObjFolder = CreateObject("Scripting.FileSystemObject")
strPath1=Server.MapPath("/db/SeafunTeam/Foton/" & ID)
strPath2=Server.MapPath("/db/SeafunTeam/Filmklipp/" &ID)
If not ObjFolder.FolderExists(strpath2) then
ObjFolder.CreateFolder strPath2
end if
f not ObjFolder.FolderExists(strpath1) then
ObjFolder.CreateFolder strPath1
end if
I=0
For each file In myUpload.Files
If not file.IsMissing Then
If I \< 3 then
Count1 = file.SaveAs(strPath1 & "\\" & file.FileName)
Else
Count2 = file.SaveAs(strPath2 & "\\" & file.FileName)
End if
End If
I = I + 1
ext
IntCount=Count1+Count2
If Err Then
Response.Write("\Error: \" & Err.description)
Else
Response.Write(intCount & " file(s) uploaded.")
End If
response.redirect("adminteam.asp")
%\>
Permalänk: https://www.webforum.nu/p/59183
## #2 — Jesper T, 2002-11-15T13:54Z
Använd \[kod\]-taggarna!
Ta bort on error resume next till en början så kan du se om sidan genererar något felmeddelande.
Permalänk: https://www.webforum.nu/p/855307
## #3 — archangel, 2002-11-15T14:03Z
nepp kör utan on error resume next och den laddar upp precis vad som helst...
Permalänk: https://www.webforum.nu/p/855320
## #4 — archangel, 2002-11-15T14:03Z
```
<%
Set myUpload = Server.CreateObject ("aspSmartUpload.SmartUpload")
myUpload.upload
myUpload.TotalMaxFileSize = 2000000
myUpload.AllowedFilesList = "gif,jpg,jpeg,avi,mpg,mpeg"
myUpload.DeniedFilesList = "exe,bat,asp,html"
'Lägg till i databas
StrConnect="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\db\butiksinfo.mdb")
set objrs=Server.CreateObject("ADODB.recordset")
objrs.open "team", StrConnect,adopenstatic,adlockoptimistic,adcmtable
objrs.addnew
objrs("Förnamn")=myUpload.form("förnamn")
objrs("Efternamn")=myUpload.Form("efternamn")
objrs("Född")=myUpload.Form("född")
objrs("Stad")=myUpload.Form("stad")
objrs("Åkning")=myUpload.Form("åkning")
objrs("Egnaord")=myUpload.Form("egnaord")
objrs("Email")=myUpload.Form("email")
objrs("Login")=myUpload.Form("login")
objrs("Lösenord")=myUpload.Form("lösenord")
objrs.update
ObjRS.Movelast ' För att få den att plocka det senaste IDnmumret
ID=ObjRS("ID")
ObjRS.close
set objRS=nothing
Set ObjFolder = CreateObject("Scripting.FileSystemObject")
strPath1=Server.MapPath("/db/SeafunTeam/Foton/" & ID)
strPath2=Server.MapPath("/db/SeafunTeam/Filmklipp/" &ID)
If not ObjFolder.FolderExists(strpath2) then
ObjFolder.CreateFolder strPath2
end if
If not ObjFolder.FolderExists(strpath1) then
ObjFolder.CreateFolder strPath1
end if
I=0
For each file In myUpload.Files
If not file.IsMissing Then
If I < 3 then
Count1 = file.SaveAs(strPath1 & "\" & file.FileName)
Else
Count2 = file.SaveAs(strPath2 & "\" & file.FileName)
End If
End If
I = I + 1
Next
IntCount=Count1+Count2
If Err Then
Response.Write("Error: " & Err.description)
Else
Response.Write(intCount & " file(s) uploaded.")
End If
'response.redirect("adminteam.asp")
%>
```
Permalänk: https://www.webforum.nu/p/855321
## #5 — Pellefant, 2002-11-15T14:03Z
Testa dessa: :)
mySmartUpload.TotalMaxFileSize = 200000
mySmartUpload.AllowedFilesList = "htm,txt"
\*Håller tummarna\*
Permalänk: https://www.webforum.nu/p/855322
## #6 — archangel, 2002-11-15T14:13Z
antar du menar jag ska köra
myUpload.TotalMaxFileSize = 200000
myUpload.AllowedFilesList = "htm,txt"
eftersom mitt upload objekt heter myUpload...
tyvärr så laddar dne fortfarande upp precis allt... tex .asp och .exe
Permalänk: https://www.webforum.nu/p/855331
## #7 — Jesper T, 2002-11-15T14:18Z
Appropå inget:
Tänk på säkerheten när du skriver ut databaskopplingarna:
\\db\\butiksinfo.mdb
Permalänk: https://www.webforum.nu/p/855333
## #8 — archangel, 2002-11-15T15:22Z
det har du kasnke rätt i....
lyckas fortfarande inte få mitt script att hindra uppladdning av filer med fel ändelse inte heller att skriva ut hur många filer som laddats upp... vad är fel?
så vitt jag kan se har jag följt exempel kod till punkt och pricka
Permalänk: https://www.webforum.nu/p/855383
## #9 — solbulle, 2002-11-15T17:10Z
Iofs tror jag kanske att dessa, DeniedFilesList samt AllowedFilesList, kan "ta ut" varandra. Kanske bäst att bestämma sig för antingen det ena eller det andra.
Mao vad man får ladda upp eller vad man inte får ladda upp.
Men hur som helst måste du väl flytta om lite i din kod:
```
Set myUpload = Server.CreateObject ("aspSmartUpload.SmartUpload")
myUpload.TotalMaxFileSize = 2000000
myUpload.AllowedFilesList = "gif,jpg,jpeg,avi,mpg,mpeg"
'myUpload.DeniedFilesList = "exe,bat,asp,html"
myUpload.upload
```
Permalänk: https://www.webforum.nu/p/855466
## #10 — archangel, 2002-11-15T22:32Z
självklart...
självklart så msåte ju raden... myUpload.upload
komma efter raderna där olika filer förbjuds...
nu när jag justerat det så funkar det korrekt.. error medd fås om man laddar upp ngn av de förbjudna filerna....
men...
den rapporterar fortfarande inte hur många filer som laddats upp fpr fortfarande 0 som resultat... varför?
Permalänk: https://www.webforum.nu/p/858510
---
Tråden på webben: https://www.webforum.nu/amne/asp/59183-aspsmartupload