Ir para conteúdo

POWERED BY:

Arquivado

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

Touche

Sistema

Por , em ASP Clássico

Recommended Posts

Touche    0

Touche
Postado

Alguem tem/ ou sabe onde acho um sistem de upload de fotos para uma galeria?Ja tentei fazer mais ta fodz e preciso dele pra ontem...por favor me ajudem...desde ja agradeco

Compartilhar este post

Link para o post
Compartilhar em outros sites

Aspmais    0

Aspmais
Postado

Crie uma página que contém o formulário onde existem os elementos do tio "File" como abaixo: <html><head><title>Untitled</title></head><body><form action="upload.asp" method="post" enctype="multipart/form-data">E-mail: <input type="text" name="txtEmail"><br>Arquivo 1: <input type="file" name="txtArquivo1"><br>Arquivo 2: <input type="file" name="txtArquivo2"><br><input type="submit" name="cmdEnviar" value="Enviar"></form></body></html>O formulário estará chamando a página upload.asp, especificada no atributo action do elemento FORM.Segue abaixo o código da página upload.asp. <%@ Language=VBScript %><%Dim Contador, TamanhoDim ConteudoBinario, ConteudoTextoDim Delimitador, Posicao1, Posicao2Dim ArquivoNome, ArquivoConteudo, PastaDestinoDim objFSO, objArquivoPastaDestino = Server.MapPath("/temp/upload")'Determina o tamanho do conteúdoTamanho = Request.TotalBytes'Obtém o conteúdo no formato binárioConteudoBinario = Request.BinaryRead(Tamanho)'Transforma o conteúdo binário em stringFor Contador = 1 To Tamanho ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))Next 'Determina o delimitador de camposDelimitador = Left(ConteudoTexto, InStr(ConteudoTexto, vbCrLf) - 1)'Percorre a String procurando os campos'identifica os arquivo e grava no discoSet objFSO = Server.CreateObject("Scripting.FileSystemObject")Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitar)do while True ArquivoNome = "" Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=") if Posicao1 = 0 then exit do else 'Determina o nome do arquivo Posicao1 = Posicao1 + 10 Posicao2 = InStr(Posicao1, ConteudoTexto, """") For contador = (Posicao2 - 1) to Posicao1 step -1 if Mid(ConteudoTexto, Contador, 1) <> "\" then '" ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNome else exit for end if next 'Determina o conteúdo do arquivo Posicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4 Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2 ArquivoConteudo = Mid(ConteudoTexto, Posicao1, (Posicao2 - Posicao1 + 1)) 'Grava o arquivo if ArquivoNome <> "" then Set objArquivo = objFSO.CreateTextFile(PastaDestino & "\" & ArquivoNome, true) objArquivo.WriteLine ArquivoConteudo objArquivo.Close Response.write "Arquivo " & PastaDestino & "\" & _ ArquivoNome & " gravado com sucesso!<br>" Set objArquivo = nothing end ifend ifLoopSet objFSO = nothing%>Da próxima vez usa o google

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

pronto vai ser dificil cara...você vai ter que desenvolver ou procurar muito...

Compartilhar este post

Link para o post
Compartilhar em outros sites

mx loco    1

mx loco
Postado

pra colocar os arquivo em um BD posso pegar a variável "ArquivoNome" e usá-la dentro do sql do insert?

 

assim

INSERT INTO TABELA (imagem) VALUES ('" &ArquivoNome& "')

^_^

Compartilhar este post

Link para o post
Compartilhar em outros sites

DackAle    0

DackAle
Postado

de graça bom e pronto vai ser dificil...rsmas se tiver afim de algum pago da um toque que tenho pronto varios sistemas =)abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

daniel.pod    0

daniel.pod
Postado

Ai galera,

 

Eu usei esse codigo pra faze upload e funfo na boa, mais quando acrecento um campo texto e tento restagar ele com o metodo "request.BinaryRead("nomedocampo")" o sistema me retorna o erro:

 

Request object error 'ASP 0106 : 80020005'

 

Type Mismatch

 

/adm/eflyer/inserir2.asp, line 21

 

An unhandled data type was encountered.

 

tipo, se eu coloco só o campo de file, ai vai legal, mais quando ponho campos texto, dá esse erro.

 

Obrigado desde já pela ajuda. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

daniel.pod    0

daniel.pod
Postado

ai vai meu codigo explore:

 

<%	ndb = Application("Conn")	set db = server.CreateObject("ADODB.Connection")	db.open ndb	dim nlocal	dim ndia	dim nmes	dim nano	dim nfesta	dim ncomentarios	dim i2	dim i	dim nn		Dim Contador, Tamanho	Dim ConteudoBinario, ConteudoTexto	Dim Delimitador, Posicao1, Posicao2	Dim ArquivoNome, ArquivoConteudo, PastaDestino	Dim objFSO, objArquivo	ndia = request.BinaryRead("dia")	nmes = request.BinaryRead("mes")	nano = request.BinaryRead("ano")	nfesta = request.BinaryRead("festa")	ncomentarios = request.BinaryRead("comentarios")		set rs = server.CreateObject("ADODB.Recordset")		rs.open "Select * from locais where cod="&nlocal&"" , db		PastaDestino = "C:\Domains\XXX.COM.BR\wwwroot\eflyer\"&rs("pasta")&ndia&"_"&nmes&""	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")		dim pasta2	if objFSO.folderexists(PastaDestino) = false then		set pasta2 = objFSO.CreateFolder(PastaDestino)	end if			'Determina o tamanho do conteúdo	Tamanho = Request.TotalBytes		'Obtém o conteúdo no formato binário	ConteudoBinario = Request.BinaryRead(Tamanho)		'Transforma o conteúdo binário em string	For Contador = 1 To Tamanho		ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))	Next 		'Determina o delimitador de campos	Delimitador = Left(ConteudoTexto, InStr(ConteudoTexto, vbCrLf) - 1)		Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitar)		do while True		ArquivoNome = ""		Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=")		if Posicao1 = 0 then			exit do		else			'Determina o nome do arquivo			Posicao1 = Posicao1 + 10			Posicao2 = InStr(Posicao1, ConteudoTexto, """")			For contador = (Posicao2 - 1) to Posicao1 step -1			if Mid(ConteudoTexto, Contador, 1) <> "\" then '"				ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNome			else			exit for		end if	next		'Determina o conteúdo do arquivo	Posicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4	Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2	ArquivoConteudo = Mid(ConteudoTexto, Posicao1, (Posicao2 - Posicao1 + 1))		'Grava o arquivo	if ArquivoNome <> "" then		Set objArquivo = objFSO.CreateTextFile(PastaDestino & "\" & ArquivoNome, true)		objArquivo.WriteLine ArquivoConteudo	objArquivo.Close	Set objArquivo = nothing	end if	end if	Loop	Set objFSO = nothing	response.End()			if ncomentarios = "" then			ncomentarios = " "		end if		if nfesta = "" then			nfesta = " "		end if		set rs = server.CreateObject("ADODB.Recordset")		rs.open "Select seq from teste order by seq asc" , db		while not rs.eof			nn = rs("seq")			rs.movenext		wend		rs.close		nn = nn + 1		db.execute("Insert into teste(festa,[local],dia,mes,ano,comentario,estado,seq) Values('"&nfesta&"','"&nlocal&"','"&ndia&"','"&nmes&"','"&nano&"','"&ncomentarios&"',2,'"&nn&"')")		response.Redirect("admin.asp")%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

explore    3

explore
Postado

Sim! e você está inserindo com as simples tira as aspas simples e coloca as aspas duplas a só.tipoinsert into tabela (campo, campo) values ("campoNumerico"....)

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