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

Fotos Em Asp


Guest - Telo -

Pergunta

Guest - Telo -

To querendo fazer um esquema de envio de fotos pela internet ...

fiz em asp , os nomes das fotos estão num banco de dados ai a minha pagina pega o nome dela e passa para a página ai queria colocar um link na foto para uma página onde esta mesma foto abra nesta página com o formulário de envio ...

O código da página de fotos esta aqui .

<!--#include file="conn.asp" -->

<%

Dim Recordset1

Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = ConnectString

Recordset1.Source = "SELECT * FROM fotos"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()

Recordset1_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

Repeat1__numRows = -1

Repeat1__index = 0

Recordset1_numRows = Recordset1_numRows + Repeat1__numRows

%>

<html>

<head>

<title>fotos</title>

</head>

<body>

<div align="left">

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="212" height="220" id="AutoNumber1">

<%

While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))

%>

<tr>

<td width="212" height="214">

<a href="foto.asp">

<img border="0" src="<%=(Recordset1.Fields.Item("foto").Value)%>" width="103" height="67" style="border-style: solid; border-width: 0; "></td>

</tr>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

Recordset1.MoveNext()

Wend

%>

</table>

</div>

</body>

</html>

aqui esta apenas as imagens pegadas do banco de dados e com um link . foto.asp

no meu pensamento se eu colocasse na página foto.asp <img border="0" src="<%=(Recordset1.Fields.Item("foto").Value)%>" iria abrir somente a foto que eu cliquei só que eu estava errado aparece todas as fotos que estão no banco de dados..Cógido da página foto.asp

<title>Produto Temditudo.com</title>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="conn.asp" -->

<%

Dim Recordset1

Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = ConnectString

Recordset1.Source = "SELECT * FROM fotos"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()

Recordset1_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

Repeat1__numRows = -1

Repeat1__index = 0

Recordset1_numRows = Recordset1_numRows + Repeat1__numRows

%>

<%

While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))

%>

<p align="center"><img border="0" src="<%=(Recordset1.Fields.Item("foto").Value)%>" alt="telo"></p>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

Recordset1.MoveNext()

Wend

%>

Se tiver alguém que possa me ajudar .. agradeço ..muito ..até mais ...

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

<a href="envia_foto.asp?foto=<%=(Recordset1.Fields.Item("foto").Value)%>"> <%=(Recordset1.Fields.Item("foto").Value)%>" </a>

Na pagina envia foto.asp faça um request("foto") e coloque num campo input type="hidden"> e envie no formulario.

Cara, to aprendendo ASP agora, portanto se escrevi abobrinha acima, me descupe!

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