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("<b>Error: </b>" & Err.description)
Else
Response.Write(intCount & " file(s) uploaded.")
End If
<%
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("<b>Error: </b>" & Err.description)
Else
Response.Write(intCount & " file(s) uploaded.")
End If
'response.redirect("adminteam.asp")
%>
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
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:
