Scripts til ASPImage 2.x og Dundas Upload?

Jeg må erkende jeg ikke kender vildt meget til Dundas komponenten. Det jeg har hjulpet er fundet på deres hjemmeside, men jeg kan se de har lukket deres online-manual..

Men her er lidt kode til at upload en fil:
<%
sti = "/images"

On Error Resume Next

Set oUpload = Server.CreateObject ("Dundas.Upload.2")
'Gemmer filen
oUpload.Save  Server.Mappath(sti) & "\"

If Err.Number <> 0 Then 
  response.write err.description & "<br>"
  Set oUpload = nothing
  Response.End
end if

Set oUploadedFile = oUpload.Files(0)

sFileName = oUploadedFile.OriginalPath
nExtStartPos = InStrRev(sFilename, "\")
If nExtStartPos > 0 Then sFileName = Trim(Mid(sFilename, nExtStartPos + 1))

'Her kan man så sætte noget ASPImage ind.
filnavn = sti & "/" & sFileName
filnavnThumb = sti & "/t_" & sFileName

MyImage.LoadImage Server.Mappath(filnavn)

'Set Resize factor for X
ResizedX = 350

'Get orignal size of image
MyImage.GetImageFileSize Server.Mappath(filnavn), X, Y
MyImage.MaxX = X
MyImage.MaxY = Y

'maintain aspect ratio
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY

'saving thumbnail to disk
MyImage.ImageFormat = 1
MyImage.FileName = Server.Mappath(filnavnThumb)
MyImage.SaveImage

Set MyImage = Noting   
Set oUpload = Nothing
%>


Her kan du evt. download noget kode:
http://www.eggheadcafe.com/authorcodesamples/20010226.asp

OK, dvs. dette er upload:

<%
sti = "/images"

On Error Resume Next

Set oUpload = Server.CreateObject ("Dundas.Upload.2")
'Gemmer filen
oUpload.Save  Server.Mappath(sti) & "\"

If Err.Number <> 0 Then 
  response.write err.description & "<br>"
  Set oUpload = nothing
  Response.End
end if

Set oUploadedFile = oUpload.Files(0)

sFileName = oUploadedFile.OriginalPath
nExtStartPos = InStrRev(sFilename, "\")
If nExtStartPos > 0 Then sFileName = Trim(Mid(sFilename, nExtStartPos + 1))
%>



Og dette ASPImage:

<%
'Her kan man så sætte noget ASPImage ind.
filnavn = sti & "/" & sFileName
filnavnThumb = sti & "/t_" & sFileName

MyImage.LoadImage Server.Mappath(filnavn)

'Set Resize factor for X
ResizedX = 350

'Get orignal size of image
MyImage.GetImageFileSize Server.Mappath(filnavn), X, Y
MyImage.MaxX = X
MyImage.MaxY = Y

'maintain aspect ratio
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY

'saving thumbnail to disk
MyImage.ImageFormat = 1
MyImage.FileName = Server.Mappath(filnavnThumb)
MyImage.SaveImage

Set MyImage = Noting   
Set oUpload = Nothing
%>


Linien "ResizedX = 350" vil så sætte størrelsen til 350 px i bredden?

Jeps det har du helt ret i. I alle 3 ting :)

Det kan måske være en god ide først at få upload delen til at virker og så bygge det med ASPImage på sådan der er så få ubekendte til at starte med :) Det syntes jeg tit kan være en fordel.

Nemlig :o)

Men jeg kan se, at der står nogle danske ord: filnavn, sti, filnavnThumb etc. Jeg skal angive sti m.m?

Jeg mener: Skal jeg definere stiangivelse, variabler ...?

... eller burde det være til at bruge med det samme?

sti var tænkt til at angive hvor billedet skal gemmes:

sti = "/images"

Som angivet sti = "/images" gemmer den filerne i en folder som hedder images som skal ligge i root på serveren.

Fino, jeg prøver det lige af.

Jeg skal også lave en formular, kan jeg se?

Så vidt jeg husker, så er det <input name="et-eller-andet-navn" type="file">

Ja det rigtigt :) og noget andet som er meget vigtigt ved fil upload at havde EncType="Multipart/Form-Data" i form tagen, et eks:

  <form method="post" action="upload.asp" EncType="Multipart/Form-Data">

Ok, jeg må prøve. Hvis ikke det lykkes, håber jeg du er frisk? Jeg ved jeg har fået meget hjælp af dig, eagle, jeg vil ikke drive rovdrift på dig.

Jeg prøver lige ...

Det helt i orden :)
men det bliver nok ikke til meget mere en 20-30 minutter i aften.

Jeg er også på vej i seng :o)

Jeg får denne fejl: Failed to get the boundary

Og du får lige koden her:

<%
sti = "/images"

On Error Resume Next

Set oUpload = Server.CreateObject ("Dundas.Upload.2")
'Gemmer filen
oUpload.Save  Server.Mappath(sti) & "\"

If Err.Number <> 0 Then 
    response.write err.description & "<br>"
    Set oUpload = nothing
    Response.End
End If

Set oUploadedFile = oUpload.Files(0)

sFileName = oUploadedFile.OriginalPath
nExtStartPos = InStrRev(sFilename, "\")
If nExtStartPos > 0 Then sFileName = Trim(Mid(sFilename, nExtStartPos + 1))
%>

<form method="post" action="/upload2.asp" EncType="Multipart/Form-Data">
    <input name="upload" type="file"><br><br>
    <input type="submit" value="Upload bilede" name="B1">&nbsp; <input type="reset" value="Nulstil" name="B2">
</form>

Ligger det i samme fil?

Ja

Så skal der nemlig lige et tjek ind om der er post'et data til siden inden man bruger dundas delen:

<%
if Reqest.ServerVariables("REQUEST_METHOD") = "POST" then
sti = "/images"

On Error Resume Next

Set oUpload = Server.CreateObject ("Dundas.Upload.2")
'Gemmer filen
oUpload.Save  Server.Mappath(sti) & "\"

If Err.Number <> 0 Then 
    response.write err.description & "<br>"
    Set oUpload = nothing
    Response.End
End If

Set oUploadedFile = oUpload.Files(0)

sFileName = oUploadedFile.OriginalPath
nExtStartPos = InStrRev(sFilename, "\")
If nExtStartPos > 0 Then sFileName = Trim(Mid(sFilename, nExtStartPos + 1))


'Evt for test udskriv filnavnet:

Response.Write sFileName

end if
%>

<form method="post" action="/upload2.asp" EncType="Multipart/Form-Data">
    <input name="upload" type="file"><br><br>
    <input type="submit" value="Upload bilede" name="B1">&nbsp; <input type="reset" value="Nulstil" name="B2">
</form>

Ok, det er rettet. Nu får jeg denne:

Microsoft VBScript runtime error '800a01a8'

Object required: 'Reqest'

/upload2.asp, line 2

det så mig der ikke kan stave, der manget et u :)

Request

ok :oD

Can't open file for writing

Hvis du er smuttet, snakkes vi bare ved :o)

Can't open file for writing - Efter jeg har submittet

Jeg smutter i seng nu, men du kan tage et kig her (langsom side):
http://support.dundas.com/Articles/ArticleBody.asp?ArticleID=655

oversigt over FAQ:
http://support.dundas.com/DeveloperSite/GroupMain.asp?GroupID=85

Ok, foreløbig tak, eagle :o)

Men det er noget med rettigheder. Har du rettetig til at oprette filer i den valgte folder? Er det din egen server kan du sætte det op, er det et web-hotel skal du hvade dem til at sætte det op i den folder.

godnat :)

Så er dét på plads: {E887CD57-8B2E-425D-A699-D9176369BD92}_0211bf.jpg

Håber vi kan kigge på ASPImage en anden dag :o)

g'nat :)

Ups, overså lige 24/03-2004 00:23:04

Ja, det er manglende skriverettigheder til /images. Jeg rettede det til fpdb (FrontPageDataBase), og så virkede det.

Snakkes :o)

Overså også linket: http://www.eggheadcafe.com/authorcodesamples/20010226.asp

Her er det hele vist, både med delete og noget :o)

Jeg roder lidt med det ind imellem, eagleeye, jeg har ikke glemt det :o)


Går snart i gang med ASPImage. Apropos, så ligger der jo MEGET i det:

Hvis du går ind på www.include.dk og ser, så er det meningen, at der skal være en hovednyhed, som ligger øverst. Denne nyhed er fra i dag. Billedet kunne have en bredde på f.eks. 200 pixels.

I morgen kommer der en ny hovednyhed, og "skubber" hovednyheden fra i dag ned i de 4 underliggende nyheder. Hernede får den en bredde på f.eks. 100 pixels.

Når man går ind og læser nyheden, kan den have en bredde på de 200 pixels, men man skal så kunne trykke på billedet og se det i fuld størrelse, som f.eks. kunne være 550 pixels. Dvs. der reelt er brug for 3 størrelser: 100 px, 200 px og 550 px. Det er en større historie, er det ikke?

PS: Du skal ikke tage dig af struktur/design. Alt er midlertidigt, intet af det er færdigt endnu :o)

Det helt i orden :)

Hvis du gemmer orginalt billet først er det ikke det større besvær at lave 3 størrelser af billedet...



Hvis vi lige antager orginal filnanvet er i sFileName og så laves variablen filnavn med orginal sti+filnavet. Så man kan lave billedet med t100_xxx.yyy t200_xxx.yyy og t500_xxx.yyy det er bare som eksempel på hvad filerne kan hedde.


<%
'Her kan man så sætte noget ASPImage ind.
filnavn = sti & "/" & sFileName
filnavnThumb100 = sti & "/t100_" & sFileName
filnavnThumb200 = sti & "/t200_" & sFileName
filnavnThumb550 = sti & "/t550_" & sFileName

Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage (Server.Mappath(filnavn))
'Find billede højde og brede
Width = Image.MaxX
Height = Image.MaxY

'lave 100xXXX billedet:
newSize = 100
NewWidth  = newSize
NewHeight = (newSize / Width) * Height
Image.Resize newSize,NewHeight

'Gem billedet
Image.ImageFormat = 1
Image.FileName = Server.Mappath(filnavnThumb100)
Image.SaveImage

'Lav næste fil
Image.LoadImage (Server.Mappath(filnavn))
'lave 200xXXX billedet:
newSize = 200
NewWidth  = newSize
NewHeight = (newSize / Width) * Height
Image.Resize newSize,NewHeight

'Gem billedet
Image.ImageFormat = 1
Image.FileName = Server.Mappath(filnavnThumb200)
Image.SaveImage

'Lav næste fil
Image.LoadImage (Server.Mappath(filnavn))
'lave 550xXXX billedet:
newSize = 550
NewWidth  = newSize
NewHeight = (newSize / Width) * Height
Image.Resize newSize,NewHeight

'Gem billedet
Image.ImageFormat = 1
Image.FileName = Server.Mappath(filnavnThumb550)
Image.SaveImage

Set Image = Nothing

Det ser fornuftigt ud, eagleeye :o)

Jeg har dog haft problemer med at trække billederne ud på en ganske almindelige html-side. Dels får det nok et lang ID foran filnavnet: {E887CD57-8B2E-425D-A699-D9176369BD92}_0211bf.jpg

Prøver jeg at linke til dette billede, eller sætte det ind i et html-dokument, så får jeg et dødt link (den hvide firkant med det røde kryds).

Prøver jeg at fjerne

{E887CD57-8B2E-425D-A699-D9176369BD92}

så filen nu hedder

0211bf.jpg

er der ingen forskel, jeg får stadig et dødt link. Upload-scriptet virker upåklageligt, men der sker et eller andet. Men hva'?

Grunden til {E887....} er på er fordi dundas hhar en property som gør den laver et unik filnavn. Den kan du evt. slå fra så filen bare hedder 0211bf.jpg når den bliver uploaded.

Ok. Men at den har et unikt navn er vel det bedste? Når der ligger 354635465 billeder på serveren, er det svært at huske, om man allerede har et billede, der hedder steen_hansen.jpg. Er det ikke en fordel at have det med?

Jo det rigtigt det vil være en fordel, men virker billedet ikke ? herlle ikke med:

<img src="{E887CD57-8B2E-425D-A699-D9176369BD92}_0211bf.jpg">

Jeg kan lige prøve at uploade et billede og give dig linket. Øjeblik ...

http://www.include.dk/fpdb/{B84DB6E1-710D-4FC8-82BD-F4EFBE16E000}_americans.jpg

Prøver lige at lægge det ind i et dokument. Tror ikke det vil gøre nogen forskel.

http://www.include.dk/test.asp

og hvis du fjerner tallet i {} virker det fint?

Nej, heller ikke :o)

Prøver at fjerne {B84DB6E1-710D-4FC8-82BD-F4EFBE16E000}_ fra både filnavn og billede. Øjeblik ..

Det er fjernet, og det virker stadig ikke.

Er du sikker på filen ligger det rigtige sted så?

Er folderen fpdb en folder som liger i wwwroot?

Ja til begge spørgsmål :o)

Hvis du kan se filen ligger på severen i folderen fpdb og fpdb ligger i root på serveren og billedet ikke vises så der noget helt andet galt???

<img src="/fpdb/americans.jpg">

Jeg kan se filen på serveren, både via WS_FTP og FP (har FP-extensions).

Det problem fra 24/03-2004 00:16:57 (Can't open file for writing) skyldtes jo manglende skriverettigheder på mappen. Derfor ændrede jeg stien til fpdb, som databaserne ligger i.

Når man bestiller et webhotel med FP-ext. er denne mappe standard til databaserne, fordi der er skriverettigheder på. Så jeg kan ikke tro det er der probl. ligger?

Jeg tror helt bestemt fejlen skal findes på serveren/FrontPage-extensions. Jeg prøver at tage kontakt til StruerNet i morgen og får skriverettigeder til /images/

... så skal vi ikke lade dén ligge til jeg har snakket med dem? :o)

Hvordan connecter du til din database et det Server.mappayh("/fpdb/filnavn.mdb") ?

Typisk ligger web-hotelerne database folder i samme folder som root og ikke i root folderen sådan andre ikke kan downloade databasen ved at skrive linket:
www.xxx.dk/fpdb/filnavn.mdb

Ups? Det har jeg ikke skænket en tanke, jeg har bare taget scriptet, som det blev rettet til og lagt ud i roden: http://www.include.dk/upload2.asp

HELE upload2.asp ser sådan her ud:

<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
sti = "/fpdb"

On Error Resume Next

Set oUpload = Server.CreateObject ("Dundas.Upload.2")
'Gemmer filen
oUpload.Save  Server.Mappath(sti) & "\"

If Err.Number <> 0 Then 
    Response.Write err.description & "<br>"
    Set oUpload = Nothing
    Response.End
End If

Set oUploadedFile = oUpload.Files(0)

sFileName = oUploadedFile.OriginalPath
nExtStartPos = InStrRev(sFilename, "\")
If nExtStartPos > 0 Then sFileName = Trim(Mid(sFilename, nExtStartPos + 1))


'Evt for test udskriv filnavnet:

Response.Write sFileName

end if
%>

<form method="post" action="/upload2.asp" EncType="Multipart/Form-Data">
    <input name="upload" type="file"><br><br>
    <input type="submit" value="Upload billede" name="B1">&nbsp; <input type="reset" value="Nulstil" name="B2">
</form>

Jeg har lige kontrolleret størrelsen på americans.jpg (på serveren), og den fylder 249,65 kb, så den ligger der godt nok.

Der bliver da ikke lavet nogen DB-conn? Jeg er lidt forvirret nu :o)

Jeg behøver jo heller ikke at connecte til nogen DB, eftersom der ikke bliver brugt nogen?

.. men ellers er stiangivelsen /fpdb/database.mdb - ja :o)

Skal jeg prøve at kontakte dem i morgen og høre hvad de siger?

Ja det tror jeg er en god ide.

Det gør jeg, og lader både Dundas og ASPImage ligge indtil da :o)

Foreløbigt tak. Bedste ven :o)

Forøvrigt, kan du ikke lægge et svar? Du har allerede rigeligt fortjent de point :o)

... og tak for karma! Det var morderligt pænt skrevet :o)

Undskyld, det var hvad jeg selv har skrevet :oD

Lægger du lige et svar, eagle?

Jeg nåede selvfølgelig ikke at ringe til StruerNet. Men det får jeg gjort mandag.

Ja ok her et svar :)

Foreløbigt tak, eagle. Håber jeg kan spørge til det, hvis jeg kører helt sur i det?

eagleeye, jeg håber du har tid og lyst til at kigge på http://www.eksperten.dk/spm/501449? I så fald, så kig på det seneste indlæg fra mig :os