Upload script hvor der er tjek!

Jeg mener at der står noget her om hvordan man begrænser til bestemte filtyper.

http://www.aspupload.com/manual.html

Ellers kan du vel bruge funktionen EXT som fortæller hvilke type fil der er tale om.

For Each File in Upload.Files
  if File.Ext <> "exe" then ' Check måske for store og små bogstaver
    File.SaveAs File.FileName
  end if
Next

nu har jeg aldrig været skide god til at forstå upload scripts i sig selv... har lige kigget på den url der, og kan sku ikke rigtig se noget der desideret er beregnet til det...

Jeg mener at denne kode virker ...

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save ' Gem filer i hukommelsen

Path = "d:\home\uodandk\www\admin\upload"
Count = 0
For Each File in Upload.Files
  if (File.Ext <> "exe") then
    File.SaveAs Path & "\" & File.FileName
    Count = Count + 1
  end if
Next
Response.Write Count & " fil(er) modtaget.
%>

jeg vil da lige give den et go så :)

http://www.uo-dan.dk/test/

får en:

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/test/recive.asp, line 13

Response.Write Count & " fil(er) modtaget.
------------------------------------------^

Det var lige et lille " der manglede... nu er det den her:

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'Save'

/test/recive.asp, line 3

Prøv lige at skifte denne linie:

Upload.Save

til denne linie:

Upload.SaveToMemory

så kommer denne:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'File.Ext'

/test/recive.asp, line 9

Underligt det står i manualen - men det kan være en ældre version.

Prøv at ændre if-sætningen
if (File.Ext <> "exe") then

til:
if (Right(File.FileName, 3) <> "exe") then

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'File.FileName'

/test/recive.asp, line 9

Sætter 200 points på et script jeg kan få til at køre som det skal :)

Jeg kan desværre ikke selv prøve koden - men når manualen ikke passer til versionen kan man jo prøve sig frem. Her har jeg ændret File.FileName til File.Name

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SaveToMemory ' Gem filer i hukommelsen

Path = "d:\home\uodandk\www\admin\upload"
Count = 0
For Each File in Upload.Files
  if (Right(File.Name, 3) <> "exe") then
    File.SaveAs Path & "\" & File.Name
    Count = Count + 1
  end if
Next
Response.Write Count & " fil(er) modtaget."
%>

Nærmere kan jeg nok ikke komme. :-(

http://www.uo-dan.dk/test/

den der "virker" vist... jeg prøvede med en .txt fil, og den uploadede den ikke, men kom ikke med fejl...

prøver og ændre det til det det rigtigt skal være, nemlig warcraft 3 replay filer :)

2 secs

ahh, den gemmer ikke filerne atm :(

w3g format virker i hvert fald ikke

koden ser således ud nu:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SaveToMemory ' Gem filer i hukommelsen

Path = "d:\home\uodandk\www"
Count = 0
For Each File in Upload.Files
  if (Right(File.Name, 3) <> "w3g") then
    File.SaveAs Path & "\" & File.Name
    Count = Count + 1
  end if
Next
Response.Write Count & " fil(er) modtaget."
%>

ooh, kan det passe den gemmer den som virtual1 ... for det gør den vist..

Skal den kun uploade filer med extention (w3g) så skal if-sætningen ændres til dette.

if (Right(File.Name, 3) = "w3g") then

Så tillader du jo kun w3g-filer

Det har jeg skam ændret allerrede (se above)

og det ser ud til at virke, den gemmer bare ikke filnavnet under det navn den har, og ingen bennævenlse heller (w3g)

Jeg laver et nyt post baseret på din kode... jeg har jo sådan set fundet det jeg skal bruge, men filen gemmer ikke som den skal. Men tak for koden, bygger videre på det :)

Ok - jeg kan alligevel ikke gøre mere når jeg ikke selv kan teste det jeg forslår. :-)

det er klart :(