Pago para quem me ajudar a montar um sistema de upload de imagens mult

[Carlos Ramiro 0]

Pago para quem me ajudar a montar um sistema de upload de imagens múltiplas em ASP. Se desejar pode me contactar pelo Watsaap (35) 9 88989820 ou 9 8803-5678

[Web Design Valdeci 0]

Olá amigo, eu tenho um aqui não sei se vai servir pra você. Seu servidor tem que ter o componente Dundas Upload funcionando. Ele tem 4 campos file que o sistema faz um lopping e cadastra de uma em uma imagem. O problema é que o conteúdo (texto) vai ser o mesmo para todas as imagens. Mas dá pra você adaptar no que precisa.

 

Neste script você consegue inserir, editar e excluir.

 

Banco Mysql

CREATE TABLE IF NOT EXISTS `promocoes` (
  `id` int(11) NOT NULL,
  `titulo` longtext,
  `chamada` longtext,
  `conteudo` longtext,
  `exibir` varchar(3) DEFAULT NULL,
  `imagem` varchar(255) DEFAULT NULL,
  `data_add` date DEFAULT NULL,
  `hora_add` varchar(10) DEFAULT NULL,
) ENGINE=MyISAM DEFAULT CHARSET=utf8;

Formulário de envio dos dados:

 

promocoes.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../assets/conexao/conexao.asp" -->
<%
opc = request.querystring("opc")

Set cs_listar = Server.CreateObject("ADODB.Recordset")
cs_listar.Open "SELECT * FROM promocoes ORDER BY data_add desc", Conexao


IF opc = "editar" THEN
  id = request.querystring("id")
  Set cs_editar = Server.CreateObject("ADODB.Recordset")
  cs_editar.Open "SELECT * FROM promocoes WHERE id = "&id&"", Conexao

  While (Not cs_editar.EOF)
  var_titulo = cs_editar.Fields.Item("titulo").Value
  var_chamada= cs_editar.Fields.Item("chamada").Value
  var_conteudo= cs_editar.Fields.Item("conteudo").Value
  var_exibir= cs_editar.Fields.Item("exibir").Value
  var_imagem= cs_editar.Fields.Item("imagem").Value 
  var_id= cs_editar.Fields.Item("id").Value
  cs_editar.MoveNext()
  Wend
END IF

If opc="excluir" then
id = Request.QueryString("id")
funcaototal = "Delete  From promocoes Where id="&id
Conexao.Execute(funcaototal)
response.redirect("promocoes.asp")
End if

IF opc = "inserir" THEN
session.LCID = 1046 
Set objUpload = server.CreateObject("Dundas.Upload.2") 
objUpload.UseUniqueNames = true 
objUpload.UseVirtualDir = false
'aqui está puxando o caminho físico que declarei no arquivo de conexao com o banco. Basta mudar lá.
caminho = caminhoImagens
objUpload.Save (caminho)
NomeArquivoResumo = ""
NomeArquivoTrabalho = ""
n = 0
For Each objUploadedFile in objUpload.Files
Path = objUploadedFile.Path 
if n = 0 then 
NomeArquivoResumo = objUpload.GetFileName(Path) 
end if 
if n = 1 then 
NomeArquivoTrabalho = objUpload.GetFileName(Path) 
end if 
n = n + 1
  caminho = Path
  titulo = objUpload.form("titulo")
  chamada = objUpload.form("chamada")  
  conteudo = objUpload.form("conteudo")
  exibir = objUpload.form("exibir")
  data_add = year(now)&"/"&month(now)&"/"&day(now)
  hora_add = time()      
  Set cs_inserir = Server.CreateObject("ADODB.Recordset")
  if caminho = "" then
  cs_inserir.Open "INSERT INTO promocoes (titulo,chamada,conteudo,exibir,data_add,hora_add) VALUES ('"&titulo&"','"&chamada&"','"&conteudo&"','"&exibir&"','"&data_add&"','"&hora_add&"')", Conexao
  else
  imagem = objUpload.GetFileName(Path)  
  cs_inserir.Open "INSERT INTO promocoes (titulo,chamada,conteudo,exibir,imagem,data_add,hora_add) VALUES ('"&titulo&"','"&chamada&"','"&conteudo&"','"&exibir&"','"&imagem&"','"&data_add&"','"&hora_add&"')", Conexao
  end if
  Next
  response.redirect("promocoes.asp")
END IF

IF opc = "atualizar" THEN
session.LCID = 1046 
Set objUpload = server.CreateObject("Dundas.Upload.2") 
objUpload.UseUniqueNames = true 
objUpload.UseVirtualDir = False
caminho = caminhoImagens
objUpload.Save (caminho)
NomeArquivoResumo =""
NomeArquivoTrabalho =""
n = 0
For Each objUploadedFile in objUpload.Files
Path = objUploadedFile.Path 
if n = 0 then 
NomeArquivoResumo = objUpload.GetFileName(Path) 
end if 
if n = 1 then 
NomeArquivoTrabalho = objUpload.GetFileName(Path) 
end if 
n = n + 1
Next
  caminho = Path
  id = objUpload.form("id")
  titulo = objUpload.form("titulo")
  chamada = objUpload.form("chamada")
  conteudo = objUpload.form("conteudo") 
  exibir = objUpload.form("exibir")    
  data_add = year(now)&"/"&month(now)&"/"&day(now)
  hora_add = time()
  Set cs_atualizar = Server.CreateObject("ADODB.Recordset")
  if caminho = "" then
  cs_atualizar.Open "UPDATE promocoes SET titulo ='"&titulo&"', chamada='"&chamada&"', conteudo='"&conteudo&"', exibir='"&exibir&"',data_add='"&data_add&"',hora_add='"&hora_add&"' WHERE id = "&id&"", Conexao
  else
    imagem = objUpload.GetFileName(Path)
  cs_atualizar.Open "UPDATE promocoes SET titulo ='"&titulo&"', chamada='"&chamada&"', conteudo='"&conteudo&"', exibir='"&exibir&"', imagem='"&imagem&"',data_add='"&data_add&"',hora_add='"&hora_add&"' WHERE id = "&id&"", Conexao
  end if
  response.redirect("promocoes.asp")
END IF

%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Page-Enter" content="revealTrans(Duration=0.5,Transition=12)">
<meta http-equiv="Page-Exit" content="revealTrans(Duration=0.5,Transition=12)">
<title>.:: Sistema Administrativo ::.</title>
<script type="text/javascript" src="../js/tiny_mce.js"></script>
<script type="text/javascript">
	tinyMCE.init({
		// General options
		mode : "textareas",
		theme : "advanced",
		plugins : "safari,pagebreak,style,layer,table,save,advhr,advimage,advlink,emotions,iespell,inlinepopups,insertdatetime,preview,media,searchreplace,print,contextmenu,paste,directionality,fullscreen,noneditable,visualchars,nonbreaking,xhtmlxtras,template",

		// Theme options
		theme_advanced_buttons1 : "save,newdocument,|,bold,italic,underline,strikethrough,|,justifyleft,justifycenter,justifyright,justifyfull,styleselect,formatselect,fontselect,fontsizeselect",
		theme_advanced_buttons2 : "cut,copy,paste,pastetext,pasteword,|,search,replace,|,bullist,numlist,|,outdent,indent,blockquote,|,undo,redo,|,link,unlink,anchor,image,cleanup,help,code,|,insertdate,inserttime,preview,|,forecolor,backcolor",
		theme_advanced_buttons3 : "tablecontrols,|,hr,removeformat,visualaid,|,sub,sup,|,charmap,emotions,iespell,media,advhr,|,print,|,ltr,rtl,|,fullscreen",
		theme_advanced_buttons4 : "insertlayer,moveforward,movebackward,absolute,|,styleprops,|,cite,abbr,acronym,del,ins,attribs,|,visualchars,nonbreaking,template,pagebreak",
		theme_advanced_toolbar_location : "top",
		theme_advanced_toolbar_align : "left",
		theme_advanced_statusbar_location : "bottom",
		theme_advanced_resizing : true,

		// Example content CSS (should be your site CSS)
		content_css : "css/content.css",

		// Drop lists for link/image/media/template dialogs
		template_external_list_url : "lists/template_list.js",
		external_link_list_url : "lists/link_list.js",
		external_image_list_url : "lists/image_list.js",
		media_external_list_url : "lists/media_list.js",

		// Replace values for the template plugin
		template_replace_values : {
			username : "Some User",
			staffid : "991234"
		}
	});
</script>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #F8F8F8;
}
-->
</style>
<style type="text/css">
<!--
#apDiv1 {
	position:relative;
	width:800px;
	height:74px;
	z-index:24;
	top: 14px;
	left: 16px;
}
-->
</style>
<style type="text/css"> 
@import "menuAdm.css";
</style>

<script type="text/javascript" src="../js/jquery.js"></script>
	<script type="text/javascript">
$(document).ready(function () {	
	
	$('#nav li').hover(
		function () {
			//show its submenu
			$('ul', this).slideDown(100);

		}, 
		function () {
			//hide its submenu
			$('ul', this).slideUp(100);			
		}
	);
	
});
	</script>
<link href="../assets/css/estilo.css" rel="stylesheet" type="text/css" />
<script type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor="#F1F1F2"><div align="left"><img src="../Assets/img/superiorAcademico.gif" width="779" height="111"></div></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="779" valign="top"><table width="779" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td colspan="3"> </td>
        </tr>
        <tr>
          <td width="20"> </td>
          <td width="739" class="txt_laranja_12_bold"> </td>
          <td width="20"> </td>
        </tr>
        <tr>
          <td width="20"> </td>
          <td width="739"> </td>
          <td width="20"> </td>
        </tr>
        <tr>
          <td width="20"> </td>
          <td width="739" class="txt_laranja_11_bold"><div align="left" class="txt_cinza_11_bold">GERENCIAMENTO DE CONTEÚDO PARA OS promocoes </div></td>
          <td width="20"> </td>
        </tr>
        <tr>
          <td> </td>
          <script language="JavaScript" type="text/javascript">
function Validar(form)
{
if (form.categoria.value == "0")
{ alert("Por favor selecione uma categoria "); form.categoria.focus(); return; }
if (form.ano.value == "0")
{ alert("Por favor selecione o ano "); form.ano.focus(); return; }
form.submit();
}
                    </script>
          <td width="739"><form action="promocoes.asp?opc=<%if opc = "editar" then%>atualizar<%else%>inserir<%end if%>" method="post" enctype="multipart/form-data" name="form1" id="form1" onSubmit="javascript:if (Validar(this)) return true; else return false;">
              <table width="739" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td class="txt_laranja_11"> </td>
                  <td valign="top"> </td>
                  <td width="240" rowspan="9" valign="top"><div align="center">
                    <% if opc = "editar" then %>
                    <% if var_imagem <> "" then %>
                    <img src="../assets/img/images/<%=var_imagem%>" height="140" border="1">
                      <%end if%>
                    <%end if%>
                  </div></td>
                </tr>
                <tr>
                  <td width="159" class="txt_laranja_11"><div align="right"><span class="txt_cinza_11">Título</span> </div></td>
                  <td width="340" valign="top"><div align="left">
                      <input name="titulo" type="text" class="txt" id="titulo" value="<% if opc = "editar"then %><%=var_titulo%><% end if %>" size="50" />
                      <input name="id" type="hidden" id="id" value="<% if opc = "editar" then %><%=var_id%><%end if%>">
                  </div></td>
                </tr>
                <tr>
                  <td valign="top" class="txt_laranja_11"><div align="right"><span class="txt_cinza_11">Chamada</span> </div></td>
                  <td valign="top"><div align="left">
                      <input name="chamada" type="text" class="txt" id="chamada" value="<% if opc = "editar"then %><%=var_chamada%><% end if %>" size="50" />
                  </div></td>
                </tr>
                <tr>
                  <td valign="top" class="txt_laranja_11"><div align="right"><span class="txt_cinza_11">Conteúdo</span> </div></td>
                  <td valign="top"><div align="left">
                    <textarea id="conteudo" name="conteudo" rows="15" style="width: 100%;"><% if opc = "editar"then %><%=var_conteudo%><% end if %>
                    </textarea>
                  </div></td>
                </tr>
                <tr>
                  <td valign="top" class="txt_laranja_11"><div align="right"><span class="txt_cinza_11">Exibir</span> </div></td>
                  <td valign="top"><div align="left">
                      <input name="exibir" type="radio" value="Sim" <% if opc = "editar"then %><% if var_exibir = "Sim" then %>checked<% end if %><% end if %>>
                      <span class="txt_cinza_11">Sim</span> 
                      <input name="exibir" type="radio" value="Não" <% if opc = "editar"then %><% if var_exibir = "Não" then %>checked<% end if %><% end if %>>
                      <span class="txt_cinza_11">Não</span></div></td>
                </tr>
                <tr>
                  <td valign="top" class="txt_laranja_11"><div align="right" class="txt_cinza_11">Arquivo </div></td>
                  <td valign="top"><input name="file4" type="file" class="txt"></td>
                </tr>
                <tr>
                  <td valign="top" class="txt_laranja_11"><div align="right" class="txt_cinza_11">Arquivo </div></td>
                  <td valign="top"><input name="file3" type="file" class="txt"></td>
                </tr>
                <tr>
                  <td valign="top" class="txt_laranja_11"><div align="right" class="txt_cinza_11">Arquivo </div></td>
                  <td valign="top"><input name="file2" type="file" class="txt"></td>
                </tr>
                <tr>
                  <td valign="top" class="txt_laranja_11"><div align="right" class="txt_cinza_11">Arquivo </div></td>
                  <td valign="top"><input name="file" type="file" class="txt"></td>
                </tr>
                <% if opc = "editar" then %>
                <tr>
                  <td height="20" valign="middle"><div align="right">
                      <input name="Button2" type="button" class="botao" value="novo" onClick="MM_goToURL('parent','promocoes.asp');return document.MM_returnValue"/>
                     </div></td>
                  <td height="20" colspan="2" valign="middle"><div align="left">
                      <input name="Submit23" type="submit" class="botao" value="atualizar" />
                     
                    <input name="Submit32" type="button" class="botao" value="excluir" onClick="MM_goToURL('parent','promocoes.asp?opc=excluir&id=<%=var_id%>');return document.MM_returnValue"/>
                  </div></td>
                </tr>
                <% end if %>
                <% if opc <> "editar" then %>
                <tr>
                  <td height="20" valign="middle"><div align="right"></div></td>
                  <td height="20" colspan="2" valign="middle"><div align="left">
                      <input name="Submit222" type="submit" class="botao" value="inserir" />
                  </div></td>
                </tr>
                <% end if %>
              </table>
          </form>
              <strong></strong></td>
          <td> </td>
        </tr>
        <tr>
          <td> </td>
          <td><div align="left"><span class="txt_cinza_11_bold">CONTEÚDO DE promocoes  CADASTRADOS</span></div></td>
          <td> </td>
        </tr>
        <tr>
          <td> </td>
          <td><table width="779" border="0" cellspacing="2" cellpadding="0">
            <tr>
              <td width="47" bgcolor="#DFDFDF" class="txt_cinza_11_bold"> </td>
              <td bgcolor="#DFDFDF" class="txt_cinza_11_bold"><div align="left"> Título</div></td>
              <td width="43" bgcolor="#DFDFDF" class="txt_cinza_11_bold"><div align="left"> Exibir</div></td>
              <td width="122" bgcolor="#DFDFDF" class="txt_cinza_11_bold"><div align="left"> Adicionada</div></td>
            </tr>
            <%			
			cont = 0
			While (Not cs_listar.EOF)
			var_titulo = cs_listar.Fields.Item("titulo").Value
			var_exibir = cs_listar.Fields.Item("exibir").Value
			var_adicionado = cs_listar.Fields.Item("data_add").Value&" - "&cs_listar.Fields.Item("hora_add").Value
			var_id = cs_listar.Fields.Item("id").Value
			if cont mod 2 = 0 then
			cor_fundo = "#F2F2F2"
			else
			cor_fundo = "#FFFFFF"
			end if
%>
            <tr>
              <td bgcolor="<%=cor_fundo%>"><div align="center"><a href="promocoes.asp?opc=editar&id=<%=var_id%>" class="link_cinza_under">editar</a></div></td>
              <td bgcolor="<%=cor_fundo%>"><div align="left" class="txt_cinza_11"> <%=var_titulo%></div></td>
              <td bgcolor="<%=cor_fundo%>"><div align="left" class="txt_cinza_11"> <%=var_exibir%></div></td>
              <td bgcolor="<%=cor_fundo%>"><div align="left" class="txt_cinza_11"> <%=var_adicionado%></div></td>
            </tr>
            <%
			cont = cont + 1
			cs_listar.MoveNext()
			Wend
%>
            <% if cont = 0 then %>
            <tr>
              <td colspan="4" bgcolor="#EAEAEA"><div align="center" class="txt_laranja_11">Não há  notícias cadastradas!!! </div></td>
            </tr>
            <% end if %>
          </table></td>
          <td> </td>
        </tr>
        <tr>
          <td> </td>
          <td> </td>
          <td> </td>
        </tr>
        <tr>
          <td> </td>
          <td width="739"><div align="left"><a href="menu.asp" class="link_laranja_under">voltar</a></div></td>
          <td> </td>
        </tr>
      </table></td>
    <td width="455" valign="top"><div align="left"><img src="../Assets/img/imgLateral.gif" width="83" height="460"></div></td>
  </tr>
</table>
</body>
</html>

Arquivo Conexão

<% 
Servidor 	= "localhost"
base_de_dados 	= "nomedobancoaqui"
login 		= "usuariodobancoaqui"
senha 		= "senhadobancoaqui"
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Driver={MySQL ODBC 3.51 Driver}; SERVER="&servidor&"; DATABASE="&base_de_dados&"; UID="&login&"; PWD="&senha&""

caminhoImagens = "E:\vhosts\caminhofisicodoservidoraqui.com.br\httpdocs\Assets\img\images"
%>