Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Evandro Ramiro

upload

Por , em ASP Clássico

Recommended Posts

Evandro Ramiro    0

Evandro Ramiro
Postado

Ola pessoal.

Bem eu peguei esse código nesse site http://www.mco2.com.br/suporte_componentes_dundas_upload.asp

ele me deu este código para fazer um upload de arquivos.

 

<%

Dim objUpload

Set objUpload = Server.CreateObject("Dundas.Upload.2")

 

objUpload.MaxFileSize = 150000

objUpload.UseVirtualDir = True

objUpload.UseUniqueNames = False

 

objUpload.Save "/diretorio"

 

Set objUpload = Nothing

 

Response.Write "Upload efetuado com sucesso"

%>

<html>

<body bgcolor="#FFFFFF">

<form method="POST" enctype="multipart/form-data" action="upload.asp">

<input type="FILE" size="40" name="FILE1"><br>

<input type="FILE" size="40" name="FILE2"><br>

<input type=submit value="Upload">

</form>

</body>

</html>

 

Eu gostaria de saber como faço para fazer uploads de fotos para jogar no meio do texto ex:

texto do usuario

FOTO

continuaçao do texto.

 

Att :(

Compartilhar este post

Link para o post
Compartilhar em outros sites

ultra    0

ultra
Postado

Grava no BD o endereço da imagem que você fez upload (ex.: foto01.jpg --> diretório/foto01.jpg)Depois na página do texto é só você chamar a coluna onde está o endereço da foto, e por dentro do <img src="<%=RS("foto")%>">[]'s

Compartilhar este post

Link para o post
Compartilhar em outros sites

[rush_jeff_rulez]    0

[rush_jeff_rulez]
Postado

Cara esquemao eh você .... salvar em um bd ... o nome da imagem enviada ... ai fica bem mais facil ... tipo na pagina de upload você faz:

 

ASP

[*]<% 

 

[*]Set objUpload = Server.CreateObject("Dundas.Upload.2") 

 

[*]

 

[*]objUpload.UseUniqueNames = False

 

[*]

 

[*]objUpload.Save "e:home\fotos" 

 

[*]

 

[*]nome1 = objUpload.GetFileName(objUpload.Files(0).Path)

 

[*]nome2 = objUpload.GetFileName(objUpload.Files(1).Path)

 

[*]

 

[*]inserir = "INSERT INTO fotos ( Nome_1, Nome_2) VALUES ('" & nome1 & "', '" & nome2 & "')" 

 

[*]

 

[*]Conexao.Execute(inserir)

 

[*]Conexao.Close 

 

[*]Set Conexao = Nothing 

 

[*]Set objUpload = Nothing 

 

[*]

 

[*]Response.Write "sucesso"

 

[*]%>

 

Ai na pagina q você quiser exibir a foto você faz:

 

ASP

[*]xtoTextoTextoTextoTextoTextoTextoTextoTextoTextoTextoTextoTextoTextoTextoTextoTe

xtoTextoTextoTextoTextoTextoTexto.

 

[*]

 

[*]<img src=http://www.seusite.com.br/fotos/<%=rs("Nome_1")%><br><br>

 

[*]

 

[*]Texttetexoeorjorjorgjogrjorgjorgjorgjogrjogrjorgjorjorogjheueuwuew

 

[*]

 

[*]<img src=http://www.seusite.com.br/fotos/<%=rs("Nome_2")%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

ultra    0

ultra
Postado

Geralmente esse tipo de página (blog, forum, etc) se usa imagem externa... tipo, nego tá escrevendo o texto e se quer adicionar uma imagem, tem um botão onde ao clicar abre-se um alerta onde ele escreve o endereço da imagemAssim fica o texto digitado, e onde ele clicou no botão, fica uma tag IMG (dá uma clicada aqui no RESPONDER pra ver como funciona)

Compartilhar este post

Link para o post
Compartilhar em outros sites

[rush_jeff_rulez]    0

[rush_jeff_rulez]
Postado

Consegue sim cara ... soh q ai .. alem de ter os nomes das fotos no bd ... você precisa de um codigo q relacione a foto com o post saco !? ... tipo o cara fez o post 3336 ...

 

ae na tabela fotos do bd ... alem dos Nome_1 e Nome_2 você precisa ter mais um campo ... Codigo ai lah você coloca o numero 3336 para as fotos q forem deste post.

 

Ae na pagina q for exibir as fotos deste post você uma consulta ao banco:

 

ASP

[*]SQL = "SELECT * FROM fotos WHERE Codigo = 3336"

 

[*]rs.Open SQL, ConnString, 1, 3

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito