Avatar billede sesam Nybegynder
07. februar 2002 - 11:49 Der er 43 kommentarer og
1 løsning

ASPimage

Jeg har en form der kalder dette her script:
------------kode---------------
<%

set conn = Server.CreateObject("ADODB.Connection")

   
    Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.OverwriteFiles = false
      Upload.SetMaxSize 300000, True
      Upload.SaveVirtual ("../images")
      set persistfil_billede = upload.files("file1")   

if persistfil_billede is nothing then

conn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/lt.mdb")

    conn.Execute("insert into TblPolyrattan(Beskrivelse, Navn, VareNr) " &_
            "values('" & upload.form("Beskrivelse") & "', '" & upload.form("Navn") & "', '" & upload.form("vareNr") & "')")
    if Err <> 0 Then
          Response.Write headerfont & "<br>Der er sket en fejl! : " & Err.Description
    Else
          Response.Write headerfont & "<br><a href=upload.asp>Tilføjet...Tilbage</a></strong></font>"
    End If
    conn.Close
    set conn = nothing
   
else

MyConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/lt.mdb")   

    For Each File in Upload.Files
   
        File.ToDatabase MyConn, "insert into TblPolyrattan(Images, Beskrivelse, Navn, VareNr) " &_
        "values('" & File.ExtractFileName & "', '" & upload.form("Beskrivelse") & "', '" & upload.form("Navn") & "', '" & upload.form("VareNr") & "')"
        if Err <> 0 Then
          Response.Write headerfont & "<br>Der er sket en fejl! : " & Err.Description
    Else
          Response.Write headerfont & "<br><a href=upload.asp>Tilføjet...Tilbage</a></strong></font>"
    End If
    Next
   
end if

%>
Tjekker om der et billede osv. smider data ind i db.
Nu vil jeg bare gerne ha at ASPImage resizer billedet og laver en thumb.
Er der en der har styr på det?
Avatar billede goose Nybegynder
07. februar 2002 - 12:57 #1
Kræver det ikke, at du smider billednavnet i databasen også, det gør du vist ikke så vidt jeg kan se ?

/Goose
Avatar billede coltau Juniormester
07. februar 2002 - 12:58 #2
Kommandoerne til ASPImage kan ses her:
http://www.serverobjects.com/comp/Aspimage.htm
Der er de kommandoer beskrevet som du skal bruge til at resize og save.
Avatar billede goose Nybegynder
07. februar 2002 - 12:58 #3
UPS, der var jeg lige hurtig nok, det gør du jo længere nede ... :o)

/Goose
Avatar billede sesam Nybegynder
07. februar 2002 - 13:02 #4
Jep
Avatar billede sesam Nybegynder
07. februar 2002 - 13:03 #5
Men hvordan får jeg så ASPimage til at resize...osv...
Avatar billede goose Nybegynder
07. februar 2002 - 13:32 #6
Du får lige et link her, det beskriver hvordan du gør, men som jeg skrev i et andet indlæg til dig, så virker ikke med gif !

http://www.mpa-lifetech.de/Forum/aspObjects/Dynamic%20Image%20Thumbnails%20Using%20ASPImage%20and%20the%20FileSystemObject.htm

/Goose
Avatar billede sesam Nybegynder
07. februar 2002 - 13:39 #7
Når jeg så har lavet alt det hvor skal jeg så smide koden ind henne
Avatar billede goose Nybegynder
07. februar 2002 - 14:09 #8
Hvis du har lavet en fil med koden der hedder thumbnail.asp, så kalder du den jo blot med nedenstående, skal dog lige rettes så fotonavn og size passer med feltet i din database og størrelsen du gerne vil have.

<IMG SRC="thumbnail.asp?FileName=<%=rs("fotonavn")%>&size=250" BORDER="1" align="left" ALT="">

/Goose
Avatar billede sesam Nybegynder
07. februar 2002 - 14:15 #9
Jeg fatter ikke det her. Kan du skære det ud i pap for mig?

1:Jeg har en side med en form der uploader billede til serveren og putter data i databsen. Når jeg submitter den form så uploader den billedet osv. kan jeg ikke smide AspImage ind i det script så formen:

1: Uploader billede + thumb på serveren?
2: Smider data ind i acces databasen?

Jeg har aldrig prøvet det her før....
Avatar billede sesam Nybegynder
07. februar 2002 - 14:17 #10
Skal aspimage bruges når jeg oplader eller når jeg skriver mine billeder ud på siden?
Avatar billede goose Nybegynder
07. februar 2002 - 16:16 #11
ASPimage skal først bruges når du trækker billedet ud igen. Ovenstående thumbnail.asp skal du så bruge hvor du gerne vil have placeret billedet på dit site, dvs. istedet for at indsætte et billede, indsætter du du koden der kalder thumbnail.asp.
Du kan naturligvis også lave en thumbnail ved oprettelsen, men hvorfor bruge plads på 2 billeder når ASPimage kan lave dem "on the fly" ?

/Goose
Avatar billede sesam Nybegynder
07. februar 2002 - 18:23 #12
Jeg fatter det stadigvæk ikke kan du ikke lave et eksempel?
Avatar billede sesam Nybegynder
07. februar 2002 - 19:16 #13
Jeg skriver mine billeder ud sådan her:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("foto.mdb")
Conn.Open DSN
strSQL = "Select * From TblImages where Serieid = '" & Request.Querystring("Serieid") & "'"
Set rs = Conn.Execute(strSQL)
response.write "<table border=""1"" cellspacing=""0"" cellpadding=""0""><tr><td valign=""top"" align=""center"">"
while not rs.eof
  strNavn = rs("Beskrivelse")
    Response.Write "<a href=""java script:openLOOK('redir.asp?Picid=" & rs("picid")& "')""><img src=Images/" & rs("Images")& " width=125 height=100 border=0></a></td> "
      Response.Write "<tr><td align=center><font face=verdana size=1>"
    Response.Write rs("beskrivelse")
      Response.Write "</td><tr><td align=center><font face=verdana size=1>Hits:"       
      Response.Write rs("Hits")
    Response.Write "</font></td><td>"
 
rs.MoveNext
wend
response.write "</td></tr></table>"
%></div>

Hvor og hvordan skal jeg så gøre brug af ASPImage?
Avatar billede goose Nybegynder
07. februar 2002 - 20:27 #14
Sådan her ser din kode ud hvor du kalder thumbnail billedet, jeg har fjernet dine response.write da jeg ikke bruger dem, så dem må du selv sætte igen:

<a href="java script:openLOOK('redir.asp?Picid=" & rs("picid")& "')"><IMG SRC="thumbnail.asp?FileName=<%=rs("Images")%>&size=125" border="0"></a>

Sådan ser filen thumbnail.asp ud, husk at rette stierne c:\images til den rigtige sti, ellers virker det ikke:

<%
' først finder du filens størrelse

Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage "c:\images\" & request.querystring("FileName")
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX
size = Cint(request.querystring("size"))

' Hvis filen størrelse er mindre end det ønskede udskrives billedets normale størrelse

if ImageHeight < size then
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage "c:\images\" & request.querystring("FileName")
Image.ImageFormat = 1
Image.JPEGQuality = 80
Response.BinaryWrite Image.Image
Set Image = Nothing
Set objImg = Nothing
end if

' ellers laves der her et thumbnail i den ønskede size

NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage "c:\images\" & request.querystring("FileName")
Image.ImageFormat = 1
Image.JPEGQuality = 80
Image.ResizeR NewWidth,NewHeight
Response.BinaryWrite Image.Image
Set Image = Nothing
%>

Nu må de 200 point da vist snart være hjemme :o)

/Goose
Avatar billede sesam Nybegynder
07. februar 2002 - 21:30 #15
Virker ikke kan ikke finde billederne? fatter det ikke.
<img src=thumbnail.asp?FileName=c:\netpub\wwwroot\ny\intetbillede.jpg&Size=100> får den rigtige værdi, det er lige som om den ikke vil kalde på thumbnail.asp?
Avatar billede goose Nybegynder
07. februar 2002 - 21:42 #16
Skal det ikke være inetpub ? bemærk i'et ...

/Goose
Avatar billede sesam Nybegynder
07. februar 2002 - 21:59 #17
Jeg har bare stavet forkert her...
Avatar billede goose Nybegynder
07. februar 2002 - 22:05 #18
- og du er helt sikker på, at filen intetbillede.jpg ligger i mappen c:\netpub\wwwroot\ny\ ?

Hvad sker der hvis du skriver:
<IMG SRC="c:\inetpub\wwwroot\ny\intetbillede.jpg">

??

/Goose
Avatar billede goose Nybegynder
07. februar 2002 - 22:07 #19
Noget slår mig, har du i det hele taget installeret ASPImage på din lokale maskine eller kører du det via et webhotel ?

/Goose
Avatar billede sesam Nybegynder
07. februar 2002 - 22:26 #20
Har installeret det på min pc og har også prøvet via mit web-hotel----
Avatar billede goose Nybegynder
07. februar 2002 - 22:32 #21
- og hvad skete der da du udskrev:

<IMG SRC="c:\inetpub\wwwroot\ny\intetbillede.jpg"> ??

/Goose
Avatar billede sesam Nybegynder
07. februar 2002 - 22:34 #22
Den viser billedet
Avatar billede goose Nybegynder
07. februar 2002 - 23:00 #23
Nu vil jeg meget gerne have, hvis du vil poste dels thumbnail.asp og den kode kalder thumbnailer, det kan ikke passe at det ikke virker, jeg har selv brugt nøjagtig samme kode selv de sidste 6 mdr. !!

/Goose
Avatar billede sesam Nybegynder
07. februar 2002 - 23:05 #24
thumbnail.asp
--------------------------------------------------------
<%
' først finder du filens størrelse

Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage "C:\Inetpub\wwwroot\foto\foto\images\" & request.querystring("FileName")
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX
size = Cint(request.querystring("size"))

' Hvis filen størrelse er mindre end det ønskede udskrives billedets normale størrelse

if ImageHeight < size then
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage "C:\Inetpub\wwwroot\foto\foto\images\" & request.querystring("FileName")
Image.ImageFormat = 1
Image.JPEGQuality = 80
Response.BinaryWrite Image.Image
Set Image = Nothing
Set objImg = Nothing
end if

' ellers laves der her et thumbnail i den ønskede size

NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage "C:\Inetpub\wwwroot\foto\foto\images\" & request.querystring("FileName")
Image.ImageFormat = 1
Image.JPEGQuality = 80
Image.ResizeR NewWidth,NewHeight

Set Image = Nothing
%>
Avatar billede sesam Nybegynder
07. februar 2002 - 23:05 #25
</head>
<body topmargin="0" leftmargin="0" bgcolor="#000000" text="#FFFFFF">
<div align="center">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("foto.mdb")
Conn.Open DSN
strSQL = "Select * From TblImages where Serieid = '" & Request.Querystring("Serieid") & "'"
Set rs = Conn.Execute(strSQL)
response.write "<table border=""1"" cellspacing=""0"" cellpadding=""0""><tr><td valign=""top"" align=""center"">"
while not rs.eof
  strNavn = rs("Beskrivelse")
  %> 
<IMG SRC="thumbnail.asp?FileName=<%=rs("Images")%>&size=125" border="0">
      <%
      Response.Write "<tr><td align=center><font face=verdana size=1>"
    Response.Write rs("beskrivelse")
      Response.Write "</td><tr><td align=center><font face=verdana size=1>Hits:"       
      Response.Write rs("Hits")
    Response.Write "</font></td><td>"
 
rs.MoveNext
wend
response.write "</td></tr></table>"
%></div>
</body>
</html>
Avatar billede goose Nybegynder
07. februar 2002 - 23:12 #26
Får du ingen fejlbeskeder ?
Hvad sker der ?

/Goose
Avatar billede sesam Nybegynder
07. februar 2002 - 23:21 #27
Ingen fejlmeddelser bare et rødt kryds...
Avatar billede goose Nybegynder
07. februar 2002 - 23:23 #28
Så er det jo dine stinavne som ikke stemmer overens, hvad sker der hvis du skriver:
<IMG SRC="C:\Inetpub\wwwroot\foto\foto\images\intetbillede.jpg">

/Goose
Avatar billede sesam Nybegynder
07. februar 2002 - 23:25 #29
så viser den billederne
Avatar billede goose Nybegynder
07. februar 2002 - 23:28 #30
Hov, du mangler jo også at udskrive billedet i den nederste del af thumbnail.asp med:
Response.BinaryWrite Image.Image

' ellers laves der her et thumbnail i den ønskede size

NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage "C:\Inetpub\wwwroot\foto\foto\images\" & request.querystring("FileName")
Image.ImageFormat = 1
Image.JPEGQuality = 80
Image.ResizeR NewWidth,NewHeight
Response.BinaryWrite Image.Image <<<<<<<
Set Image = Nothing

/Goose
Avatar billede sesam Nybegynder
07. februar 2002 - 23:39 #31
virker heller ikke
Avatar billede goose Nybegynder
07. februar 2002 - 23:47 #32
Så er der noget andet galt, for koden virker, har du prøvet på dit webhotel ?
Er du helt sikker på, at ASPImage virker på din lokale maskine ?
Får du godt nok udskrevet din beskrivelse og hits ?
Jeg skal gerne checke om koden virker, send mig dine filer og din database, så skal jeg kigge på det, for koden virker, det er jeg helt sikker på!

/Goose
Avatar billede sesam Nybegynder
08. februar 2002 - 16:06 #33
Kan det være fordi navnet på billedet bliver skrevet ud fra en database?
Avatar billede goose Nybegynder
09. februar 2002 - 16:00 #34
Navnet på billedet bliver hentet fra databasen og skal naturligvis være det samme som billedet har i den mappe du henter det fra.

/Goose
Avatar billede sesam Nybegynder
09. februar 2002 - 19:18 #35
ja klart
Avatar billede goose Nybegynder
09. februar 2002 - 19:39 #36
Send mig din kode og din database, så skal jeg rette det til.
admin@goose.dk

/Goose
Avatar billede sesam Nybegynder
10. februar 2002 - 12:09 #37
Har mailet til dig...
Avatar billede goose Nybegynder
10. februar 2002 - 13:52 #38
- og de er sendt tilbage igen.

/Goose
Avatar billede sesam Nybegynder
10. februar 2002 - 18:01 #39
Tusinde tak for hjælpen du edermame fortjent pointne....Takker
Avatar billede goose Nybegynder
10. februar 2002 - 18:22 #40
Ja, det var godt nok en hård nød.

/Goose
Avatar billede carstenmulvad Nybegynder
15. maj 2002 - 11:59 #41
Da jeg kan se af ovenstående at goose er topXpert på ASPimage har jeg et enkelt spørgs - hvordan hulen installere man ASPimage på sin maskine - jeg har win98 og PWS installeret. Jeg har downloadet DLL-filer og program fra serverobjects, men kan ikke finde ud af, at installere skidtet. Kan goose hjælpe her. Hvordan tester man, at det virker?
Avatar billede goose Nybegynder
15. maj 2002 - 15:44 #42
Jeg kan desværre ikke hjælpe dig med installeringen af ASPImage, og ekspert vil jeg nu ikke kalde mig, jeg har bare haft lidt erfaringer med ASPImage.

/Goose
Avatar billede carstenmulvad Nybegynder
15. maj 2002 - 15:59 #43
Problemet er løst!
Avatar billede carstenmulvad Nybegynder
16. maj 2002 - 13:13 #44
Hej igen "Goose" Nu har jeg fået kikket noget på ovenstående og fået den til at hente, resize, komprimere og gemme men men. Kan det med ASPimage lade sig gøre at få en lignende funktion som ASPJpeg laver på http://support.persits.com/jpeg/pick_jpeg.asp

MVH

Carsten Mulvad
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester