Ir para conteúdo

POWERED BY:

Arquivado

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

Ewerton93

update no aspsmartupload

Por , em ASP Clássico

Recommended Posts

Ewerton93    0

Ewerton93
Postado

ai boa tarde a todos ja to a duas semana mexendo nesse codigo mas esta complicado alguem pode me dar uma luz.....

me ajudem

por favor.... http://forum.imasters.com.br/public/style_emoticons/default/upset.gif http://forum.imasters.com.br/public/style_emoticons/default/upset.gif http://forum.imasters.com.br/public/style_emoticons/default/upset.gif http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

 

uso componete aspsmartupload porem eu consigo grava no bd e inseri a imagem na pasta porem não consigo altera alguem pode me ajudar

 

segue codigo da primeira pagina

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="cp/conn.asp" --><%Set Database = Server.CreateObject("ADODB.Connection")	Database.open = strconnif opc = "" then   sql = "select * from timagem where codimagem <> 0 "   set tgrupo = Database.Execute(sql)end if %><script language="javascript">function ImagemSelecionada(){	//var ImagemSelecionada = document.SelecionarImagem.ImagemEscolha;	//var ImagemMostrar = ImagemSelecionada.options[ImagemSelecionada.selectedIndex].value	document.getElementById("imagemmudar").src= form1.fun.value}function submeter1(){	if (form1.fun.value == "")   	{	   alert('Favor Verificar,Pois Campo procura não aceita valor em branco!');	   form1.fun.focus();	   return false;	}	else	{	   if (form1.Submit.value == "Gravar")	   {		  form1.action = "up.asp?codigo=A";		  form1.submit();		  return;	   }	} }</script><html><head><script language="JavaScript" type="text/JavaScript"><!--function MM_reloadPage(init) {  //reloads the window if Nav4 resized  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {	document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();}MM_reloadPage(true);//--></script><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>Salvar Imagens</title></head><body topmargin="0" rightmargin="0" leftmargin="0" style="word-spacing:0; margin:0"><form  name="form1" method="post" enctype="multipart/form-data"><input type="hidden" name="opc" value=""><table width="100%" border="0" cellspacing="0" cellpadding="0">  <tr>	<td>	<table width="100%" border="0" cellspacing="0" cellpadding="0">  <tr>	<td bgcolor="#3399CC"> </td>  </tr></table><table width="100%" border="0" cellspacing="0" cellpadding="0">  <tr>	<td width="14%" align="center"><div align="center">Imagem:</div></td>	<td width="17%" align="center"><img src="images/temp01.gif" id="imagemmudar"></td>	<td width="69%" align="center"> </td>  </tr></table></td>  </tr></table><table width="100%" border="0" cellspacing="0" cellpadding="0">  <tr>	<td width="14%"><div align="center">Procura:</div></td>	<td width="65%">	  <div align="center">		<input type="file" name="fun" size="70">		</div></td><td width="21%"><div align="center"><input type="button" name="pro" value="Carregar Foto" onClick="ImagemSelecionada()"></div></td>  </tr></table><table width="100%" border="0" cellspacing="0" cellpadding="0">  <tr>	<td bgcolor="#3399CC"> </td>  </tr></table><table width="8%" align="center" border="0" cellspacing="0" cellpadding="0">  <tr>	<td><div align="center">	  <input type="button" name="Submit" onClick="return submeter1();" value="Gravar" accesskey="g">	</div></td>  </tr></table><br><iframe src="saveimg1.asp" frameborder="0" width="100%" scrolling="auto" height="450"></iframe></form></body></html><%  'Database.close 	  set cceps = nothing  set Database = Nothing%>

 

segunda pagina

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="cp\conn.asp" --><%'vgrupot = ucase(Request.Form("grupo"))imag = Request.Form("chs")opc = Request.Form("opc")'cdel = Request.QueryString("cdel")z = 1Set Database = Server.CreateObject("ADODB.Connection")	Database.open = strconnif opc = "" then   sql = "select * from timagem where codimagem <> 0"   set tgrupo = Database.Execute(sql)end if 'if cdel <> "" then'	   query =  "delete from tgrupotele where codgrupotele =" & cdel '	  Database.Execute(query)'end ifif opc = "D" then	cont = 1	  geral = session("geral")		while cont < geral		 chs = Request.Form("chs" & cont)	 wendend if%><script language="JavaScript">function delpc(){     if(confirm('Deseja realmente Alterar?'))   {  	  form1.action = "up.asp?codigo="+form1.chs.value;	  form1.submit();	  return;   }   else   { return false; }  }function selecionar_todas(retorno){if(retorno==true)	{		for(i=0;i<form1.length;i++)		{			if(form1.elements[i].type=="checkbox" && form1.elements[i].name!="todas")			{			  if(form1.elements[i].checked==false)			  {					form1.elements[i].checked=true;	   		  }			}		}	} 	else {		for(i=0;i<form1.length;i++)		{			if(form1.elements[i].type=="checkbox" && form1.elements[i].name!="todas")			{			  if(form1.elements[i].checked==true)			 {	   			form1.elements[i].checked=false;			   }			}		}	}}</script><html><head><title>Exebição de Imagem</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="css/style.css" rel="stylesheet" type="text/css"></head><body  topmargin="0" leftmargin="0" rightmargin="0" style="margin:0; word-spacing:0"><form  name="form1" method="post" enctype="multipart/form-data"><input type="hidden" name="opc" value=""><input type="hidden" name="check" value="<%=session("geral")%>"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr>   <td>	<table width="100%" border="0" cellspacing="0" cellpadding="0">	   <tr> 		<td width="8%" bgcolor="#3399CC"><div align="center">		  <input name="todas" type="checkbox" id="todas" value="checkbox" onClick="selecionar_todas(this.checked)">		</div></td>		 <td width="92%" bgcolor="#3399CC"><div align="left">Imagem:</div></td>		  </tr>		   </table>  			<table width="100%" border="0" cellspacing="0" cellpadding="0">			<% 			 linha = "LinhaTab1" 			 do While not tgrupo.eof			 %>			<tr class="<%=LINHA%>"> 			<td width="8%"><div align="center">			<input type="checkbox" name="chs" value="<%=tgrupo("codimagem")%>" onClick="delpc();"></div></td>			<td width="92%"><img src="fotos/<%=tgrupo("imagem")%>" height="40" width="45"></td>			</tr>		  <%			 if linha = "LinhaTab1" then			 linha = "LinhaTab2"			 else			 linha = "LinhaTab1"			 end if			 tgrupo.MoveNext()			 z = z + 1			 session("geral") = z			 loop		  %>		   </table>		<table width="100%" border="0" cellspacing="0" cellpadding="0">	  <tr>	<td bgcolor="#3399CC"> </td>  </tr></table></td>  </tr></table> </form></body></html><%	Database.close 		set rspe = Nothing	set tgrupo = Nothing	set Database = Nothing%>

e a pagina que esta dando problema o up.asp que faz o upload

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="cp/conn.asp" --><%Set Database = Server.CreateObject("ADODB.Connection")	Database.open = strconn' Coloque um número grande para o tempo de finalização do script, pois o upload pode demorar alguns minutos. Se o servidor estiver com o tempo baixo, pode haver erro no uploadServer.scripttimeout = 10000' Caso houver algum erro o código vai prosseguir até o final. Isso evita que seja mostrada aquela página de erro padrão do Internet ExplorerOn Error Resume Next'nome = File.FileName'response.Write(nome)' Aqui criamos uma instância do objeto do ASP Smart UploadSet Upload = Server.CreateObject("ASPSmartUpload.SmartUpload")' Aqui criamos uma lista dos formatos de arquivos que poderão ser enviadosUpload.AllowedFilesList = "gif,jpg,png,bmp"'Se você quiser ao invés de fazer uma lista com arquivos permitidos, fazer uma lista com os arquivos que não podem ser enviados, modifique a linha 9 por:'Upload.DeniedFilesList = "bmp,png"' Aqui configuramos o tamanho máximo de cada arquivo enviado em bytesUpload.MaxFileSize = 10000000' Aqui configuramos o tamanho total para os arquivos enviados. Todos os arquivos juntos não podem passar deste tamanhoUpload.TotalMaxFileSize = 40000000' Aqui é efetuado o envio dos arquivosUpload.Upload' Selecionamos cada arquivo que foi submetido do formulário'For each File in Upload.Files' Aqui checamos se o tamanho dele é maior que 0 byte. Isso é necessário pois se a pessoa submeter o formulário com o endereço do arquivo errado, será criado umIf File.Size > 0 ThenUpload.Save ("C:\Arquivos de programas\Apache Group\Apache2\htdocs\telematica\fotos")'if  request.QueryString("codigo") = "A" then'sql = "insert into timagem(imagem) values ('"& File.FileName & "')"'Database.Execute(sql)'end if'z = 1'response.Redirect("saveimg.asp")' Aqui exibiremos as informações sobre o arquivo caso ele seja enviado com sucesso'Response.Write "Nome do arquivo: " & File.FileName & "<br>"'Response.Write "Extensão do arquivo: " & File.FileExt & "<br>"'Response.Write "Tamanho do arquivo: " & File.Size & "<br>"'Response.Write "Endereço do arquivo: " & File.FilePathName & "<br>"'Response.Write "Tipo de arquivo: " & File.ContentType & "<br>"'Response.Write "A Imagem foi salva com sucesso"' Caso for um arquivo inválido, ou seja, o tamanho dele for igual a zero então aparecerá a mensagem e em seguida terminamos a condição.ElseResponse.Write "O arquivo enviado é inválido"End if' Caso mais de um arquivo tenha sido enviado, enviamos o sistema para o próximo.'Next' Se houver algum erro será exibida essa mensagem e a descrição do erroIf Err ThenResponse.Write "Houve um erro: " & Err.DescriptionEnd ifIf  request.QueryString("codigo") <> "A"  then	sqp = "update timagem set imagem='" & File.FileName & "' where codimagem=" &  request.QueryString("codigo")	Database.Execute(sqp)	sql = "select * from timagem where codimagem= " &  request.QueryString("codigo")	set ccliente = Database.Execute(sql)end if' Aqui destruímos a instância do objeto ASP Smart Upload para não haver, casualmente, travas no sistema e outros erros%><%	Database.close 		Set Upload = Nothing	set ccliente = Nothing	set Database = Nothing%>

 

ok obrigado....

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