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!
Uploadscript utan komponent
307 svar · 16 582 visningar · startad av OveRRidE · sida 5 av 16
Frågan, av OveRRidE
Jag har (äntligen?) lagt till ett uploadscript här eftersom jag inte fått ändan ur vagnen att göra det innan. Scriptet är helt komponentlöst, vilket jag tror ganska många har användning av ibland om det inte finns ordentliga komponenter installerade på servern. (Vilket det visserligen oftast finns ;)) Buggar eller problem rapporteras i de
Läs frågan i sin helhet →
crisse6 skrev:
crisse6 skrev:
vill bara tipsa om en sajt for olika contenttype om du inte vet dom...
http://www.reliableanswers.com/contenttype/ctype.aspr/ 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
jaaaaa.... det ska fungera. Byt ut x:en bara, lol ;)
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?
Prova jpg i stället för jpeg
Eller peg kanske?
precis, gif ar 3 bokstaver, jpeg ar 4, du gar bakat 3, det blir alltsa som solis sa: peg
Tackar. Fungerade bra med .peg
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
Vad skickar du till server.mappath?
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.
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
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?
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!
1 pa miljonen eller? :D
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...
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
tack... funkade perfekt =)
lycka till med communityt!!