Ir para conteúdo

POWERED BY:

Arquivado

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

Flávio Gual

Problema com lógica de upload

Por , em ASP Clássico

Recommended Posts

Flávio Gual    0

Flávio Gual
Postado

Olá a todos, preciso de uma ajuda neste código de upload.

 

Tenho que enviar 4 imagens além das que já sobem para o sistema, mas as mesmas não fazem upload nem gravam no banco de dados, creio que o problema seja a minha lógica e não a do outro desenvolvedor.

 

O problema ainda piora pois não tenho tempo hábil para remontar o sistema inteiro, mesmo pq não entendo muito de ASP.

 

 

Segue o código.

 

 

<%If session("Login") = "Liberado" then%>
<!--#include file="../cfg/asp/conexao/conexao.asp" -->
<%If request.QueryString("Status")=2 then%>
<%
Set Upload = Server.CreateObject("aspSmartUpload.SmartUpload")
Upload.Upload

caminho=Server.MapPath("ImagensUpload")
caminho=Replace(caminho,"\..\admin\","")
caminho=caminho&"\"
'response.write caminho
'response.End()
if  Upload.Form("arq") <> "" then
	Image1 = Upload.Form("arq") 
	Image= Image1
	num = inStrRev(image,"\",len(image))
	arq = mid(image,cDbl(num)+1,len(image))
	if Upload.Files.Item(1).FileExt <> "" then
		Upload.Files.Item(1).SaveAs(caminho&arq)
	end if
end if

If  Upload.Form("arq2")<> "" then
	Image2 = Upload.Form("arq2") 
	Image3= Image2
	num = inStrRev(image3,"\",len(image3))
	arq2 = mid(image3,cDbl(num)+1,len(image3))
	if Upload.Files.Item(2).FileExt <> "" then
		Upload.Files.Item(2).SaveAs(caminho&arq2)
	end if
end if



if  Upload.Form("arq3") <> "" then
	Image4 = Upload.Form("arq3") 
	Image5= Image4
	num = inStrRev(image5,"\",len(image5))
	arq3 = mid(image5,cDbl(num)+1,len(image5))
	if Upload.Files.Item(3).FileExt <> "" then
		Upload.Files.Item(3).SaveAs(caminho&arq3)
	end if
end if
if  Upload.Form("arq4") <> "" then
	Image6 = Upload.Form("arq4") 
	Image7= Image6
	num = inStrRev(image7,"\",len(image7))
	arq4 = mid(image7,cDbl(num)+1,len(image7))
	if Upload.Files.Item(4).FileExt <> "" then
		Upload.Files.Item(4).SaveAs(caminho&arq4)
	end if
end if
if  Upload.Form("arq5") <> "" then
	Image8 = Upload.Form("arq5") 
	Image9= Image8
	num = inStrRev(image9,"\",len(image9))
	arq5 = mid(image9,cDbl(num)+1,len(image9))
	if Upload.Files.Item(5).FileExt <> "" then
		Upload.Files.Item(5).SaveAs(caminho&arq5)
	end if
end if
if  Upload.Form("arq6") <> "" then
	Image10 = Upload.Form("arq6") 
	Image11= Image10
	num = inStrRev(image11,"\",len(image11))
	arq6 = mid(image11,cDbl(num)+1,len(image11))
	if Upload.Files.Item(6).FileExt <> "" then
		Upload.Files.Item(6).SaveAs(caminho&arq6)
	end if
end if








If Upload.form("Titulo")="" then
response.redirect("erro.asp?erro=Informe o nome do tema.")
end if
Titulo=replace(Upload.Form("Titulo"),chr(34),"")
Conteudo=replace(Upload.Form("Conteudo"),"'","")
Imagemp=arq
Imagemg=arq2
aimg_1=arq3
aimg_2=arq4
aimg_3=arq5
aimg_4=arq6


sql="INSERT INTO tema (Titulo, Conteudo, ImagemP, foto1, foto2, foto3, foto4) "
sql=sql&"values ('" & titulo & "','" & conteudo & "','" & imagemp & "','" & aimg_1 & "','" & aimg_2 & "','" & aimg_3 & "','" & aimg_4 & "')"

'response.redirect("erro.asp?erro="&sql)

set SqlTemaInsere=conexao.execute(sql)

response.redirect("tema.asp")

%>
<%end if%>
<html>
<head>
<title>ClicSiteFácil - Área Administrativa</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="style.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function EnviarCadastro()
{
document.conteudo.arq.value = document.conteudo.imagemp.value;
document.conteudo.arq2.value = document.conteudo.imagemg.value;
document.conteudo.arq3.value = document.conteudo.img_1.value;
document.conteudo.arq4.value = document.conteudo.img_2.value;
document.conteudo.arq5.value = document.conteudo.img_3.value;
document.conteudo.arq6.value = document.conteudo.img_4.value;
document.conteudo.submit();
}

</script>
<html>
<head>
<title>ClicSiteFácil - Área Administrativa</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="style.css" rel="stylesheet" type="text/css">
</head>

<body class="body-color">
<table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle"><table width="750" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"><!--#include file="inc_topo.asp" --></td>
</tr>
<tr>
<td align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center" valign="top" class="td-1">
<td><table width="100%" border="0" cellspacing="8" cellpadding="0">
<tr>
<td align="center" valign="top" class="td-0"><table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="140" align="left" valign="top"><!--#include file="inc_menu.asp" --></td>
<td align="center" valign="top"><table width="97%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="40" class="titulo">Cadastrar tema</td>
<td width="150" align="right" valign="middle"><a href="tema_insere.asp"></a></td>
</tr>
</table></td>
</tr>

<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="65" align="left" valign="top"><img src="img/dicas.gif" width="60" height="30"></td>
<td class="txt-normal">Prepare a imagem para publicar!</td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td align="left" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
<form action="tema_insere.asp?status=2" method="post" enctype="multipart/form-data"  name="conteudo" onSubmit="return EnviarCadastro()" >
<tr>
<td width="80" height="30" class="link-1">Título</td>
<td height="30" class="txt-normal"><input name="Titulo" type="text" class="form" size="70"></td>
</tr>
<tr>
<td height="40" align="left" valign="top" class="txt-b">Texto</td>
<td height="80" align="left" valign="top" class="txt-normal"><textarea name="Conteudo" cols="60" rows="4" class="form-msg"></textarea></td>
</tr>
<tr>
<td height="20" align="left" valign="top" class="txt-b">Imagem P</td>
<td height="20" align="left" valign="top" class="txt-normal"><p>
  <input type="hidden" name="arq" value="">
  <input name="imagemp" type="file" class="form">
  <br>
  Tamanho da imagem = 670 x 150 pixels<br>
  <br>
<br>
</p></td>
</tr>
<tr>
  <td height="20" align="left" valign="top" class="txt-b">Imagens para<br>
a galeria</td>
  <td height="20" align="left" valign="top" class="txt-normal">
  <input type="hidden" name="arq3" value="">
  <input name="img_1" type="file" class="form"><br />
  <input type="hidden" name="arq4" value="">
  <input name="img_2" type="file" class="form"><br />
  <input type="hidden" name="arq5" value="">
  <input name="img_3" type="file" class="form"><br />
  <input type="hidden" name="arq6" value="">
  <input name="img_4" type="file" class="form"><br />
  </td>
</tr>

<tr>
<td height="40" colspan="2" class="txt-normal"><input type="image" name="Submit" src="img/botao_cadastrar.gif"></td>
</tr>
</form>
<tr>
<td colspan="2"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" valign="top"><!--#include file="inc_fim.asp" --></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
conexao.close
set Upload = nothing 
set SqlTemaInsere = nothing 
%>
<%
else
response.redirect("default.asp")
end if
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele gera algum número de erro ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Flávio Gual    0

Flávio Gual
Postado

ele gera algum número de erro ???

 

Ele não apresenta erro algum, mas quando abro o registro do banco de dados, as colunas que deveriam estar gravados os nomes das imagens estão vazios e a pasta de upload não tem as imagens postadas.

 

Segui a lógica do outro desenvolvedor, que não quer dar informações ou arrumar este código.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

existem outros exemplos no fórum, pode te ajudar, muitas vezes diante da situação, no seu caso (outro desenvolvedor, que não quer dar informações ou arrumar este código.) é mais fácil começar um projeto novo e seu....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Flávio Gual    0

Flávio Gual
Postado

existem outros exemplos no fórum, pode te ajudar, muitas vezes diante da situação, no seu caso (outro desenvolvedor, que não quer dar informações ou arrumar este código.) é mais fácil começar um projeto novo e seu....

 

Penso desta forma tb, mas como estou com minha fila de produção lotada e não tem mais ninguém para me ajudar, não vejo essa a melhor solução.

 

O negócio é trabalhar este código que já tenho.

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