webForumDet fria alternativet

Uploadscript utan komponent

307 svar · 16 553 visningar · startad av OveRRidE · sida 5 av 16

crisse6Medlem sedan dec. 20002 526 inlägg
#81

crisse6 skrev:

vill bara tipsa om en sajt for olika contenttype om du inte vet dom...
http://www.reliableanswers.com/contenttype/ctype.asp

r/ adressen som lag langre upp funkade inte langre, men i detta inlagg ar det korrekt!

Cannabis_TomtenMedlem sedan juli 20015 107 inlägg
#82

crisse6 skrev:

crisse6 skrev:

vill bara tipsa om en sajt for olika contenttype om du inte vet dom...
http://www.reliableanswers.com/contenttype/ctype.asp

r/ adressen som lag langre upp funkade inte langre, men i detta inlagg ar det korrekt!

ahhh tackar tackar!

detta borde juhe teoretiskt fungera va??

If contentType = "application/xxxxx" OR contentType = "application/xxxxx" OR contentType = "application/xxxxx" OR contentType = "application/xxxxx" then

crisse6Medlem sedan dec. 20002 526 inlägg
#83

jaaaaa.... det ska fungera. Byt ut x:en bara, lol ;)

Wiklund!!Medlem sedan juli 2002549 inlägg
#84

Hmm. Varför fungerar inte det här?

strEnd = lcase(right(contentType,3))
if strEnd = "jpeg" OR strEnd = "gif" then
Error = "no"
else
Error = "yes"
end if

Kan bara ladda upp .gif bilder. Någon som har en aning om vad felet är?

aleborgMedlem sedan jan. 20013 341 inlägg
#85

Prova jpg i stället för jpeg

solbulleMedlem sedan mars 20015 287 inlägg
#86

Eller peg kanske?

crisse6Medlem sedan dec. 20002 526 inlägg
#87

precis, gif ar 3 bokstaver, jpeg ar 4, du gar bakat 3, det blir alltsa som solis sa: peg

Wiklund!!Medlem sedan juli 2002549 inlägg
#88

Tackar. Fungerade bra med .peg

Wiklund!!Medlem sedan juli 2002549 inlägg
#89

Någon som kan se vad jag gjort för fel här?

filename = Session("id") & "_" & now() & "_" & Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

Funkar om jag bara gör så här:

filename = Session("id") & Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

Men jag vill som sagt få med datumet också.
Felmesset jag får ser ut så här:

Feltyp:
Server.MapPath(), ASP 0173 (0x80004005)
Ett ogiltigt tecken har angetts i parametern Path för metoden MapPath.
/es/upload_extremepicture.asp, line 48
@ndersMedlem sedan juni 200032 969 inlägg
#90

Vad skickar du till server.mappath?

Wiklund!!Medlem sedan juli 2002549 inlägg
#91

Min server.mappath ser ut så här:

Set MyFile = ScriptObject.CreateTextFile(Server.mappath("images/pictures/" & filename))

Det jag försöker ladda upp är en bild. Det fungerar som sagt om jag tar bort Now() från filnamnet.
Det jag vill göra är alltså så att alla bilder får ett unikt namn.

@ndersMedlem sedan juni 200032 969 inlägg
#92

Du får rensa bort otillåtna tecken först då. Det är inte speciellt intressant att se hur du skapar strängen som du skickar in i Server.Mappath, utan det är viktigare att se vad den strängen har för värde. Skriv ut med response.write.

När du slänger med Now() så får du nog med kolon och annat skräp i url:en. Bort, bort, bort.

mvh

Wiklund!!Medlem sedan juli 2002549 inlägg
#93

Hängde inte riktigt med där. Går det inte att ändra filnamnet till:

Session("id") & "_" & now().filändelsen.

Det borde väl göra så att alla filer blir unika? Någon som vet hur jag skulle gå tillväga?

solbulleMedlem sedan mars 20015 287 inlägg
#94

får du nog med kolon och annat skräp

Vad är oklart?

Wiklund!!Medlem sedan juli 2002549 inlägg
#95

Hade glömt bort att ett Now() datum innehöll en massa otrevliga tecken. Tog och slumpade fram ett nummer på 6 siffror och använde det i namnet istället.
Lär väl vara 1 på miljarden att det blir samma namn på någon fil nu!

crisse6Medlem sedan dec. 20002 526 inlägg
#96

1 pa miljonen eller? :D

dendåligeMedlem sedan jan. 2003188 inlägg
#97

du kanske har lust att skriva hur du gjorde det??? skulle också vilja så att filen man laddar upp döps till session("id")och någon slumpad siffra...

Wiklund!!Medlem sedan juli 2002549 inlägg
#98

Har gjort så här:

dim upperlimit, lowerlimit, slump
randomize 
upperlimit = 99999 
lowerlimit = 10000
slump =Int((upperlimit - lowerlimit)*Rnd() + lowerlimit)

contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Session("id")&"_"&slump&"_"& Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")

strEnd = lcase(right(contentType,3))
if strEnd = "peg" OR strEnd = "gif" then
Error = "no"
else
Error = "yes"
end if 

If not byteCount<=100000 Then
Error = "yes"
End if
dendåligeMedlem sedan jan. 2003188 inlägg
#99

tack... funkade perfekt =)
lycka till med communityt!!

kb00obfrMedlem sedan nov. 200229 inlägg
#100

om man vill ladda upp flera filer? hur gör man då?

tack!

131 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)