Ir para conteúdo
Fórum Script Brasil
  • 0

ASPJpeg


smez

Pergunta

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 para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...