Jump to content
Fórum Script Brasil
  • 0

Fotos Em Asp


Guest - Telo -

Question

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 to comment
Share on other sites

1 answer to this question

Recommended Posts

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



  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      652k
×
×
  • Create New...