Ir para conteúdo

POWERED BY:

Arquivado

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

André Gil

Problema com formulário para upload!!!

Por , em ASP Clássico

Recommended Posts

André Gil    0

André Gil
Postado

Bom Início de ano a todos, espero que possam me ajudar.

 

Sou programador PHP e participo do fórum de PHP, mas comecei programando em ASP, só que estou enferrujado e estou fazendo um sistema de um cliente em ASP e já está quase pronto só tenho um impasse, o upload não está funcionando.

 

tenho o seguine arquivo:

 

obras.asp

<!-- #INCLUDE FILE="../_bib_fnc/admin.asp" --><%	Dim post_acao	post_acao = request.Form("acao")	if post_acao = "adicionar" then		adiciona_obra()	end if%><html><head><title>Obras</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="_css/estilo.css" rel="stylesheet" type="text/css"></head><body bgcolor="#EAEAEA" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table><form name="Adicionar" method="post" action="obras.asp" enctype="multipart/form-data">  <tr bgcolor="#007DB0">	<td height="20" colspan="2" style="padding-left:7px;"><img src="_img/tit_cont_adicionar.gif" width="47" height="10"></td>  </tr>  <% if get_mensagem = "adicionado" then %>  <tr>	<td colspan="2" align="center" class="advertencia">Obra <b>adicionada</b> com Sucesso.</td>  </tr>  <% end if %>  <tr>	<td width="20%" bgcolor="#F0F0F0" style="padding-left:5px;">Título:</td>	<td><select name="titulo" class="borda" id="titulo">	  <option value="Armazém_Graneleiro">Armazém Graneleiro</option>	  <option value="Edifícios de Múltiplos Andares">Edifícios de Múltiplos Andares</option>	  <option value="Edifícios Horizontais Industriais">Edifícios Horizontais Industriais</option>	  <option value="Edifícios Residêncial">Edifícios Residêncial</option>	  <option value="Especiais por solução">Especiais por solução</option>	  <option value="Heliponto">Heliponto</option>	  <option value="Mezaninos">Mezaninos</option>	  <option value="Pontes e Passarelas">Pontes e Passarelas</option>	  <option value="Reforços e Recuperação Estrutural">Reforços e Recuperação Estrutural</option>	  <option value="Soluções Inteligentes">Soluções Inteligentes</option>	  <option value="Torres de Elevadores">Torres de Elevadores</option>	</select></td>  </tr>  <tr>	<td bgcolor="#F0F0F0" style="padding-left:5px;">Nome:</td>	<td><input name="nome" type="text" class="borda" id="nome" style="width:320px;"></td>  </tr>  <tr>	<td bgcolor="#F0F0F0" style="padding-left:5px;">Descrição:</td>	<td><textarea name="descritivo" rows="5" class="borda" id="descritivo" style="width:355px;"></textarea></td>  </tr>  <tr>	<td bgcolor="#F0F0F0" style="padding-left:5px;">Foto:</td>	<td><input name="foto" type="file" class="borda" style="width:355px"></td>  </tr>  <tr>	<td bgcolor="#F0F0F0" style="padding-left:5px;">Miniatura:</td>	<td><input name="thumb" type="file" class="borda" style="width:355px"></td>  </tr>  <tr align="center">	<td height="30" colspan="2" bgcolor="#F5F5F5">		<input name="acao" type="hidden" value="adicionar">		<input name="bt_adicionar" type="image" id="bt_adicionar" src="_img/bt_adicionar.gif" width="61" height="19" border="0">	</td>  </tr></form></table></body></html>
quando dá um submit nesse form era pra rodar a função adiciona_obra que está no arquivo include, só que não chama a função e se eu tiro esse comando do form chama a função:

enctype="multipart/form-data"

só que não envia os arquivos do upload.

 

Alguém sabe o q pode ser que está acontecendo???

 

agradeço a ajuda!!!

 

Abraços,

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

como voce esta tentando fazer o UPLOAD em si???esta parte parece estar certa... na outra pagian que deve estar errado

Compartilhar este post

Link para o post
Compartilhar em outros sites

André Gil    0

André Gil
Postado

aí está a função que está no arquivo admin.asp

 

'##### Adiciona Obras #####	function adiciona_obra()		Dim post_titulo, post_nome, post_descritivo				post_titulo = request.Form("titulo")		post_nome = request.Form("nome")		post_descritivo = request.Form("descritivo")			'Inicio do upload		' Chamando Funções, que fazem o Upload funcionar		byteCount = Request.TotalBytes		RequestBin = Request.BinaryRead(byteCount)		Set UploadRequest = CreateObject("Scripting.Dictionary")		BuildUploadRequest RequestBin				' Tipo de arquivo que esta sendo enviado		tipo_foto = UploadRequest.Item("foto").Item("ContentType")		tipo_thumb = UploadRequest.Item("thumb").Item("ContentType")				' Caminho completo dos arquivos enviados		caminho_foto = UploadRequest.Item("foto").Item("FileName")		caminho_thumb = UploadRequest.Item("thumb").Item("FileName")				' Nome dos arquivos enviados		nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))		nome_thumb = Right(caminho_thumb,Len(caminho_thumb)-InstrRev(caminho_thumb,"\"))				' Conteudo binario dos arquivos enviados		foto = UploadRequest.Item("foto").Item("Value")		thumb = UploadRequest.Item("thumb").Item("Value")				' pasta onde as imagens serao guardadas		pasta = Server.MapPath("fotos/")		nome_foto = "/"&nome_foto		nome_thumb = "/p_"&nome_thumb				' pasta + nome dos arquivos		cfoto = "fotos/" + nome_foto		cthumb = "fotos/" + nome_thumb				' Fazendo o Upload do arquivo selecionado		if foto <> "" then			Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")			Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)			For i = 1 to LenB(foto)				MyFile.Write chr(AscB(MidB(foto,i,1)))			Next			MyFile.Close		end if				if thumb <> "" then			Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")			Set MyFile = ScriptObject.CreateTextFile(pasta & nome_thumb)			For i = 1 to LenB(thumb)				MyFile.Write chr(AscB(MidB(thumb,i,1)))			Next			MyFile.Close		end if	'Fim do Upload		conn.EXECUTE "INSERT INTO obras (nome, titulo, descritivo, foto, foto2) VALUES ('" & post_nome & "', '" & post_titulo & "', '" & post_descritivo & "', '" & cfoto & "', '" & cthumb & "')"		response.redirect "obras.asp?acao=adicionar&mensagem=adicionado"			end function

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