Input type file em asp

Carlsovitor · Novembro 5, 2014

Galera preciso pegar a imagem que recebi em um form e mostra-lá em outra pagina, segue o codigo:

Form:

<legend>Faça o Upload de sua imagem:</legend>

<label for="arquivos">Arquivo: </label><br>

</fieldset> </form>

Pagina em que quero mostrar a foto :

<%

suaFoto = Request.form("ARQUIVO")

%>

<!DOCTYPE html>

<html>

<head>

html {

width: 474px;

height: 715px;

margin:0px;

}

body{

margin:0px;

}

</style>

</head>

</div>

</div>

</body>

</html>

O problema é que não funciona o Request.form para arquivo, sou novo nessa linguagem, estou começando agora, peço a ajuda de vocês por favor. Obrogado !

wilnet · Novembro 5, 2014

Para exibir informações vinda de sua Base de Dados, você precisa de algo assim:

<%

Sua conexão...

Dim listarFoto

Set listarFoto = dados.Execute("SELECT * FROM sua_tabela")

While Not listarFoto.EOF
 
If listarFoto("arquivo")<> "" Then
%>

<img src="./fotos<%=listarFoto("arquivo")%>"/>

<%
Else

Response.Write "Nenhuma Foto"

End If

listarFoto.MoveNext
Wend

listarFoto.Close
Set listarFoto = Nothing
%>

Este é um exemplo de como você poderá Exibir seus arquivos.

Qualquer dúvida, estamos aqui.

Carlsovitor · Novembro 5, 2014

Para exibir informações vinda de sua Base de Dados, você precisa de algo assim:
<%

Sua conexão...

Dim listarFoto

Set listarFoto = dados.Execute("SELECT * FROM sua_tabela")

While Not listarFoto.EOF
 
If listarFoto("arquivo")<> "" Then
%>

<img src="./fotos<%=listarFoto("arquivo")%>"/>

<%
Else

Response.Write "Nenhuma Foto"

End If
listarFoto.MoveNext

Wend

listarFoto.Close Set listarFoto = Nothing %>

Este é um exemplo de como você poderá Exibir seus arquivos.

Qualquer dúvida, estamos aqui.

Wilnet, o proprio usuario atraves do form escolhe a foto, não guardaria a imagem em nenhum banco de dados.Não há um jeito para fazer isso sem precisar de um banco de dados ?

wilnet · Novembro 5, 2014

Vc só quer fazer o Upload da Foto, e ela ser exibida em outra página?

E depois, o que será feito?

Carlsovitor · Novembro 5, 2014

você só quer fazer o Upload da Foto, e ela ser exibida em outra página?

E depois, o que será feito?

Depois o usuário vai imprimir a pagina, somente isso.Mas meu problema é chamar a imagem pra outra pagina

wilnet · Novembro 5, 2014

Segue um Exemplo pronto que tenho em meus arquivos, veja se esse te serve:

index.html

<script Language="JavaScript">
function ValidaPagina(form)
{
	if(CampoBranco(form.blob)==true)
	{
		alert("Selecione a imagem para visualisar.");
		form.blob.focus();
		return false;
	}
}
function CampoBranco(campo)
{
	if (campo.value == "")
		return true;
	else
		return false;
}

</script>
<html>
<head>
	<title>Upload Form</title>
</head>

<body>
<div align="center">
  <h2>Visualisar fotos</h2>
</div>
<form method="POST" enctype="multipart/form-data" action="banner.asp" onSubmit="return ValidaPagina(this);" name="billform">
  <div align="center">Imagem : 
    <input type="file" name="blob">
    <BR>
    <input type="submit" name="Enter">
  </div>
</form>
</body>
</html>

banner.asp

<%
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest  RequestBin
contentType =  UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
picture = UploadRequest.Item("blob").Item("Value")
Response.ContentType = contentType
Response.binaryWrite picture
%>
<%
Sub BuildUploadRequest(RequestBin)
	'Get the boundary
	PosBeg = 1
	PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
	boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
	boundaryPos = InstrB(1,RequestBin,boundary)
	'Get all data inside the boundaries
	Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
		'Members variable of objects are put in a dictionary object
		Dim UploadControl
		Set UploadControl = CreateObject("Scripting.Dictionary")
		'Get an object name
		Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
		Pos = InstrB(Pos,RequestBin,getByteString("name="))
		PosBeg = Pos+6
		PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
		Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
		PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
		PosBound = InstrB(PosEnd,RequestBin,boundary)
		'Test if object is of file type
		If  PosFile<>0 AND (PosFile<PosBound) Then
			'Get Filename, content-type and content of file
			PosBeg = PosFile + 10
			PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
			FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			'Add filename to dictionary object
			UploadControl.Add "FileName", FileName
			Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
			PosBeg = Pos+14
			PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
			'Add content-type to dictionary object
			ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "ContentType",ContentType
			'Get content of object
			PosBeg = PosEnd+4
			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
			Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
			Else
			'Get content of object
			Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
			PosBeg = Pos+4
			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
			Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
		End If
		'Add content to dictionary object
	UploadControl.Add "Value" , Value	
		'Add dictionary object to main dictionary
	UploadRequest.Add name, UploadControl	
		'Loop to next object
		BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
	Loop

End Sub

'String to byte string conversion
Function getByteString(StringStr)
 For i = 1 to Len(StringStr)
 	char = Mid(StringStr,i,1)
	getByteString = getByteString & chrB(AscB(char))
 Next
End Function

'Byte string to string conversion
Function getString(StringBin)
 getString =""
 For intCount = 1 to LenB(StringBin)
	getString = getString & chr(AscB(MidB(StringBin,intCount,1))) 
 Next
End Function
%>

Veja se esse te ajuda.

Carlsovitor · Novembro 6, 2014

Muito obrigado ! Mas uma duvida, como eu faço para fazer a imagem aparecer em uma div ?

wilnet · Novembro 6, 2014

Olá Carlsovitor blza.

Nesse caso acredito que não de, eu tentei mas não achei onde.

Carlsovitor · Novembro 6, 2014

Olá Carlsovitor blza.

Nesse caso acredito que não de, eu tentei mas não achei onde.

Tudo bem Wilnet ! Agradeço seu esforço !

wilnet · Novembro 6, 2014

Depois vou tentar achar algo similar.

Se este tópico já te ajudou pode marcar como Resolvido para fecha-lo.

Carlsovitor · Novembro 6, 2014

Depois vou tentar achar algo similar.

Se este tópico já te ajudou pode marcar como Resolvido para fecha-lo.

Muito obrigado Wilnet, se achar algo similar por favor me avise !

Public2004 · Novembro 6, 2014

Para chegar ao resultado desejado amigo, você precisa entender a lógica do processo.

Primeiro passo é efetuar o upload da imagem para o seu servidor. Nesta etapa você através do form, captura o nome do arquivo e especifica onde será feito o upload (pasta), com essas informações você compõe o endereço da imagem e assim, poderá mostrar esta imagem em qualquer lugar apenas informando o respectivo endereço.

Att.

xanburzum · Novembro 6, 2014

faça o upload da imagem em uma pasta específica e depois pegue o nome da imagem junto com o caminho e faça abrir em uma DIV. Tem um exemplo que coloquei no fórum, de como recuperar o nome e path do arquivo que vc fez upload

Carlsovitor · Novembro 6, 2014

faça o upload da imagem em uma pasta específica e depois pegue o nome da imagem junto com o caminho e faça abrir em uma DIV. Tem um exemplo que coloquei no fórum, de como recuperar o nome e path do arquivo que você fez upload

Vou tentar fazer e assim que eu tentar passo o feedback pra vocês !

xanburzum · Novembro 6, 2014

10378204_808722815838183_315556544139902

wilnet · Novembro 7, 2014

Olá Calrsvitor blza!

Achei esse link, ele é bem discutido e com várias sugestões no uso de upload sem componentes.

De uma analisada nele, veja se ficou alguma dúvida.

LINK

Embora ele faça uso de banco de dados, mas vc pode eliminar essa parte e deixar apenas o envio para uma pasta e ler a foto enviada.

Carlsovitor · Novembro 7, 2014

Então galera consegui chamar a imagem segue o codigo:

banner.asp :

<%

On Error Resume Next

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

objUpload.UseVirtualDir = False

objUpload.UseUniqueNames = false

objUpload.Save(Server.MapPath("\SitetesteCarlos\"))

// var caminho armazena o caminho de onde a imagem será guardada

caminho = Server.MapPath("\SitetesteCarlos\") & ""

objUpload.SaveToMemory

For Each objUploadedFile in objUpload.Files

fileName = objUpload.GetFileName(objUploadedFile.OriginalPath)

nome_file = "image"

objUploadedFile.SaveAs caminho & nome_file & ".jpg"

If Error <> 0 Then

Response.Write(Error.Message)

End IF

O problema é que preciso salvar independente do nome da foto enviado pelo form como image.jpg, a linha de código que eu fiz não faz isso, preciso sempre salvar o arquivo(a foto) no servidor como image.jpg, mas n]ão estou conseguindo

Arquivado

Input type file em asp

Recommended Posts

Carlsovitor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

Carlsovitor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

Carlsovitor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

Carlsovitor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

Carlsovitor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

Carlsovitor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Public2004 79

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Carlsovitor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

Carlsovitor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ajuda com Extends e envio para o banco

Fixar div até atingir uma certa altura

PHP+Codeigniter - Dúvida referente a PDV

Fóruns

Tempo Real

Informação importante