Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
smez

ASPJpeg

Question

Salve salve galera, estou quebrando a cabeça aqui no seguinte

tenho uma pagina no meu site que lista todos os usuarios cadastrados com foto

queria fazer o seguinte, exibir a foto do usuario em preto e branco com o componente ASPJpeg mas sem salvar a foto em preto e branco

somente exibir, porque quando clicar na foto vai para o perfil do usuario com a foto colorida

como poderei fazer isso

estou tentando fazer assim, mas não funciona

<%
          strSQL = "SELECT * FROM membro WHERE Aprovado = 's' AND Foto <> '' ORDER BY Rand()"
          set rsMembro = server.CreateObject("adodb.recordset")
          rsMembro.open strSQL,abredb
          %>
            <%while not rsMembro.eof and counter < 18
            set rsContaFoto = abredb.execute("select Count(*) AS Total from album WHERE CdMembro = "&rsMembro("CdMembro")&"")
                
                if rsMembro("Foto") <> "" Then
                    foto2 = "imagensDinamicas/Membro/"&rsMembro("Foto")&""
                else
                    foto2 = "imagens/semFoto.jpg"
                end if
                
                if counter <> "" then
                    classMenbro = "membros"
                    tamanhoFoto = "126"
                    tamanhoImg = "membros_img"
                    NomeFoto = "membros_nome"
                else
                    classMenbro = "membros_destaque"
                    tamanhoFoto = "254"
                    tamanhoImg = "membros_imgDestaque"
                    NomeFoto = "membros_nomeDesatque"
                end if
                
                Set Jpeg = Server.CreateObject("Persits.Jpeg")
                Jpeg.Open Server.MapPath(foto2)
                Jpeg.Sepia 50, 1.4
            %>
                <div id="<%=classMenbro%>">
                    <div id="<%=tamanhoImg%>">
                    <div id="<%=NomeFoto%>">&nbsp;
                    <%If rsMembro("Apelido") <> "" then%>
                        <%
                        if Len(rsMembro("Apelido")) > "15" Then
                            Response.Write mid(rsMembro("Apelido"),1,15)&"..."
                        else
                            Response.Write rsMembro("Apelido")
                        end if
                    Else
                        if Len(rsMembro("Nome")) > "15" Then
                            Response.Write mid(rsMembro("Nome"),1,15)&"..."
                        else
                            Response.Write rsMembro("Nome")
                        end if
                    End If%>
                    </div>
                    <%If rsMembro("DtNascimento") <> "" Then%>
                    <div id="membros_idade"><%=idade(cdate(rsMembro("DtNascimento")))%></div>
                    <%End If%>
                    <img src="<%=foto2%>" width="<%=tamanhoFoto%>" border="0" />
                    <%Jpeg.SendBinary%>
                    </div>
                    
                    
                </div>
            <%
            counter = counter + 1
            rsMembro.movenext
            wend
            %>

mas não funciona, como poderei fazer???

Share this post


Link to post
Share on other sites

5 answers to this question

Recommended Posts

  • 0

use a propriedade do aspjpeg

Jpeg.Grayscale 2

Share this post


Link to post
Share on other sites
  • 0
use a propriedade do aspjpeg

Jpeg.Grayscale 2

sim, mas como que eu faço para aplicar na foto sem precisar salvar no servidor?

Share this post


Link to post
Share on other sites
  • 0

chame a imagem.asp

exemplo

img.asp

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("clock.jpg")
Jpeg.Width = Jpeg.OriginalWidth * .8
Jpeg.Height = Jpeg.OriginalHeight * .8

If Request("Grayscale") = "1" Then
   Jpeg.Grayscale 1
End If

If Request("Sharpen") = "1" Then
   Jpeg.Sharpen 1, 250
End If

If Request("Horflip") = "1" Then
   Jpeg.FlipH
End If

If Request("Verflip") = "1" Then
   Jpeg.FlipV
End If

Jpeg.Quality = Request("Quality")
Jpeg.Interpolation = Request("Interpolation")

If Request("Crop") = 1 Then
   Jpeg.Crop 30, 30, 470, 320
End If

Jpeg.SendBinary
%>
exibindo
<img src=img.asp />

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148145
    • Total Posts
      643471
×
×
  • Create New...