Jump to content
Fórum Script Brasil
  • 0

ASPJpeg


smez
 Share

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???

Link to comment
Share on other sites

5 answers to this question

Recommended Posts

  • 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 />

Link to comment
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.

 Share



  • Forum Statistics

    • Total Topics
      150.9k
    • Total Posts
      648.7k
×
×
  • Create New...