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

Aspjpeg


smez

Pergunta

como eu uso a função AspJpeg para dar um crop em uma foto e aparecer no site

<%

Set Jpeg = Server.CreateObject("Persits.Jpeg")

set rs = Server.CreateObject("ADODB.Recordset")

rs.ActiveConnection = StringdeConexao

rs.Source = "SELECT * FROM fotos ORDER by RND(INT(NOW*id_foto)-NOW*id_foto)"

rs.CursorType = 0

rs.CursorLocation = 2

rs.LockType = 3

rs.Open()

rs_numRows = 0

%>

<% If Not rs.EOF Or Not rs.BOF Then %>

<%

startrw = 0

endrw = HLooper1__index

numberColumns = 3

numrows = 2

while((numrows <> 0) AND (Not rs.EOF))

startrw = endrw + 1

endrw = endrw + numberColumns

%>

<% While ((startrw <= endrw) AND (Not rs.EOF))%>

<%

path = "&rs(foto).Value&"

Jpeg.Open(path)

Jpeg.Crop 0,0,1,1

%>

<a href="cobertura.asp?codigo=<%=rs("codigo")%>#<%=rs("id_foto")%>" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=rs("nome")%>';return true;"><img src="<%=Jpeg%>" border="0" alt="<%=rs("nome")%>"></a>

<%

startrw = startrw + 1

rs.MoveNext()

Wend

%>

<%

numrows=numrows-1

Wend

%>

<% End If ' end Not rs.EOF Or NOT rs.BOF %>

<% If rs.EOF And rs.BOF Then %>

<% End If ' end rs.EOF And rs.BOF %>

<%

rs.Close()

%>

O arquivo não esta aparecendo a imagem????

Como que eu fãço

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

path = "rs(foto)"

Jpeg.Open(path)

coloquei assim dao seguinte erro

Persits.Jpeg.1 (0x800A0002)

O sistema não pode encontrar o arquivo especificado

e quando coloco assim

path = rs(foto)

Jpeg.Open(path)

da o seguinte erro

ADODB.Recordset (0x800A0CC1)

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

Link para o comentário
Compartilhar em outros sites

  • 0

path = "rs(foto)"

Jpeg.Open(path)

coloquei assim dao seguinte erro

Persits.Jpeg.1 (0x800A0002)

O sistema não pode encontrar o arquivo especificado

e quando coloco assim

path = rs(foto)

Jpeg.Open(path)

da o seguinte erro

ADODB.Recordset (0x800A0CC1)

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

path = rs("foto")

coloca as aspas

qqer coisa posta aí!

abraços

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
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...