Uploading af billeder

ASP hos b-one er  Chili!ASP og der er inbygget Chili!Upload:
http://docs.sun.com/source/817-2514-10/Ch13_SpicePack84.html

Alternativt kan du prøve at få et script til at virke som ikke bruger en komponent, som eksvis dette:
http://activedeveloper.dk/download/default.asp?mode=showdownload&id=430

Okay mange tak!! Den første der siger der er fejl i linien :
fbase.SaveToFile("/opt/datafiles/test.dat") Hvad kan det skyldes?

Hvilken fejl?
Det kan være der ikke er skrive rettigheder til den folder du vil upload til.

Hmm... Jamen det her "opt/datafiles/test.dat"  det betyder at jeg skal lave en sti der hedder sådan ikke? eller hvordanskal det forstås?

Dette er folderene:  opt/datafiles
Hvis man skriver / foran skal opt være i root, hvis man ikke skriver noget skal opt foldren være i den samme folder som ASP filen ligger i.
Dette er filnanvet test.dat

den kommer med fejlen

Chili.Upload.1 error '80020009'

Could not create file. GetLastError() returned: 2

/fileupld.asp, line 5

Det betyder den ikke kan oprette filen, jeg kan i kke lige finde hvad fejlkoen 2 betyder.

hmm... okay.. Den anden du gav mig der kan godt uploade, eller det siger den at den gør men jeg kan ikke finde stien til der hvor den gemmer dem, den siger den gemmer i "upload/fileupload/" men den findes ikke den mappe!! hehe

Det kan vist rettes i filen hvilen sti den skal gemme i?

den skal ligge i mappen "upload/

Prøv at sætte en / foran:  /upload/

"/upload/"

ja nu hedder stien "/vu/upload/test.dat" Kan det have noget at gøre med denne "test.dat" fil det er jo en jeg selv har oprettet i notebook!

Bruger du Chili!Upload delen?
Den gemmer den nye fil med navnet test.dat, det er faktisk et dårligt eks med Chili!upload da den altig gemmer filen med det navn.

Du kan prøve at slette filen test.asp

Ja det er chili delen.. Men der er ikke nogen fil der hedder test.asp der er upload.asp og fileupld.asp, det er den sidst nævnte der melder fejl hele tiden!

Dette er et eks til Chili!Upload som gemmer filen med det navn som den er uploaded med:

Set fbase = Server.CreateObject("Chili.Upload.1")

cnt = 0
a = fbase.SourceFileName
for n = 1 to len(a)
  if mid(a, n, 1) = "\" then cnt = cnt +1
next
til_arr = split(a, "\" ,-1,1)
fbase.SaveToFile(Server.mapPath("/vu/upload/" & til_arr(cnt)))

hvor skal jeg ligge det hen?

Det koden som skal upload filen og ligge i den fil som skal gemme filen i det første eks er det i filen: fileupld.asp

Jeg er ked af det! Men det fatter keg altså ikke lige!

Du har en fil hvor form'en ligger i som man vælger fil med som ser ud som denne eller i stil med denne:

<FORM ACTION="fileupld.asp" METHOD="POST" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE">
<INPUT TYPE="SUBMIT" VALUE="Send">
</FORM>




Den sider filnanvet til siden som står i action : ACTION="fileupld.asp"
Så det er til filen fileupld.asp
Koden i fileupld.asp skal være dette for at gemme filen:

<%
Set fbase = Server.CreateObject("Chili.Upload.1")
fbase.SizeLimit = 10000

cnt = 0
a = fbase.SourceFileName
for n = 1 to len(a)
  if mid(a, n, 1) = "\" then cnt = cnt +1
next
til_arr = split(a, "\" ,-1,1)
fbase.SaveToFile(Server.mapPath("/vu/upload/" & til_arr(cnt)))
%>

Yessø nu virker det! :) Mange tak skal du have! Hvordan tildeler jeg de point der? Jeg er nemlig ny herinde! hehe

Og forresten! En ting til! Hvordan laver man en side så de billeder der bliver uploadet automatisk kommer ind på en side så de kan vises??

Så skal jeg lige svare ;)

Når de er uploaded ligger de så i den valgte folder.
Så kan du lave et script som viser alle billederne??

Efter den er gemt kan du lave en rediret til en ny side:
Response.Redirect "visalle.asp"



Hvis det skal vises på samme side kan du efter det er gemt, vis det:

fbase.SaveToFile(Server.mapPath("/vu/upload/" & til_arr(cnt)))
%>
Du har uploaded<br>
<img src="/vu/upload/<%=til_arr(cnt)%>">

Ja det ligger hvor de skal, men hvordan helt præcist laver jeg det script? er ikke så piss hård til det asp halløj der! Kan kun meget grunlæggende ting! :(

Her er et eks som viser alle billeder i en folder:


<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Ret så det passer med din folder
strFolder = Server.Mappath("/vu/upload/")
Set objFolder = objFSO.GetFolder(strFolder)

For Each File in objFolder.Files
  if inStr(1,"gif,jpg,jpeg,bmp", LCase(objFSO.GetExtensionName(File.Name))) > 0 then
    Response.Write "<img src=""" & File.Name & """>" & "<br>"
  end if
Next

Set objFolder = Nothing
Set objFSO = Nothing
%>

Den kommer med fejlen

Microsoft VBScript runtime error '800a0044'

Device unavailable

/billeder.asp, line 5

Mærkeligt linbje 5 er denne? 
Set objFolder = objFSO.GetFolder(strFolder)

umiddelbart ser det ud som om der er noget som chili!asp ikke kan med FSO, kjeg kan ikke lige finde noget på netttet andet en FSO er "limited" under unix.

og det betyder at man ikke kan med chili eller??

Nej ikke umiddelbart men det skal være muligt på en eller anden måde.

Okay.. Jamen så er der jo ikke så meget at gøre lige nu! Du må endelig kontakte mig hvis du falder over noget! Og mange tak endnu engang! :)

MVH
Jonas

Det vil jeg gøre.

Jeg har prøvet at ligge dette kode i en fil og få det lagt ind på en b-one side og det virker fint:
Har du kun dette kode i filen eller andet?


<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Ret så det passer med din folder
strFolder = server.mappath("/vu/upload/")
Set objFolder = objFSO.GetFolder(strFolder)

For Each File in objFolder.Files
  if inStr(1,"gif,jpg,jpeg,bmp", LCase(objFSO.GetExtensionName(File.Name))) > 0 then
    Response.Write "<img src=""/vu/upload/" & File.Name & """>" & "<br>"
  end if
Next

Set objFolder = Nothing
Set objFSO = Nothing
%>

Yessø nu virker det! :) Mange tak skal du have!

Jonas