Ir para conteúdo

POWERED BY:

Arquivado

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

gustavo.maturana

Upload

Por , em ASP Clássico

Recommended Posts

gustavo.maturana    0

gustavo.maturana
Postado

Ja procurei em varios forum varios sites e não consigo de jeito nenhum um codigo para cadastrar dentro de um banco de dados mysql um imagem com outros conteudo em um formulario

 

Estou mandando aqui o codigo para vocês.

 

cadastrar.asp

 

<!--#include file="conexao.asp"-->
<%

'====================================verifica===============

	session.timeout = 60

	usuario = session("usuario")
	id_site_agente = request("idsite")
	if id_site_agente <> "" then
	session("idsiteagente") = id_site_agente
	end if
	senha = session("senha")
	dominio = session("dominio")
	adm = session("adm")
	liberado = session("liberado")
	
	if (liberado = "ok") then
	

	op   = request("op")
	op2  = request("op2")
	op3  = request("op3")
	
	if (op = "listar") then
	ordem = request("ordem")
	else
	ordem = "asc"
	end if

    pag = request("pag")
	if pag = "sair" then
	session.abandon
	response.redirect "default.asp"
	end if

%>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="10%"> </td>
    <td width="90%">
 <FORM name="upload" method="post" ENCTYPE="multipart/form-data" ACTION="acoes.asp?op=addluademel" onsubmit="return valida_form(this);">
  <table border="0" width="190%" cellspacing="0" cellpadding="0">
    <tr>
      <td colspan="2" height="50"><div align="left"><font face=verdana size=2>Adicionar item em </font><b><font face="Verdana" color="blue" size="2">Lua-de-Mel </font></b></div></td>
    </tr>
    <tr>
      <td colspan="2" height="1" valign="middle">
      <p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"><font face="Verdana" size="1"><b>Imagem:</b></font>		</td>
	</tr>
	<trd>
      <td colspan="2" height="1" valign="middle">
	    
        <div align="left">
          <input type="hidden" name="imagem" value="">
          <INPUT NAME="filename" TYPE="hidden" ID="filename" SIZE="30" MAXLENGTH="255">
          <INPUT NAME="imagem" TYPE="FILE" id="imagem" style="font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #ffffff; border: 1 solid #000000" onChange="checa_imagem();" SIZE="30" maxlength="255">	  
        </div></td>
    </tr>
	    <tr>
      <td colspan="2" height="48" valign="top"><div align="left"><font face="Verdana" color="#CC3300" size="1"><b>Atenção:</b> Somente é permitido fazer upload de imagem no formato "JPG".<br>
        Caso você tenha arquivos em outro formato para enviar,<br>
        converta-os para o formato "JPG".<br>
        Dimensão indicada: <b>500 x 375 px</b>.</font></div></td>
    </tr>
    <tr>
      <td colspan="2" valign="bottom" height="20">
        <p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0">
	  <font face="Verdana" size="1"><b>Nome do Casal :</b></font></p>		</td>
	</tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="nomecasal" type="text" id="nomecasal" onKeyDown="textCounter(this.form.titulo,this.form.remLen2,50);" onKeyUp="textCounter(this.form.tituloo,this.form.remLen2,50);" size="40" wrap=physical>
          <br>
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Preço Safira :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="precosafira" type="text" id="precosafira" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="4" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>
        <label for="checkbox_row_6">Preço Esmeralda</label>
        :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="precoesmeralda" type="text" id="precoesmeralda" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="4" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Preço Rubi :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="precorubi" type="text" id="precorubi" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="4" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Preço Ouro :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="precoouro" type="text" id="precoouro" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="4" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Preço Diamante :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="precodiamante" type="text" id="precodiamante" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="4" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Banco :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="banco" type="text" id="banco" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="20" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Agencia :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="agencia" type="text" id="agencia" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="10" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Conta Corrente  :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="conta" type="text" id="conta" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="10" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Favorecido :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="favorecido" type="text" id="favorecido" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="40" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="12"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>E-mail :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="50">
        <div align="left">
          <input name="email" type="text" id="email" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="40" wrap="physical" />
          <br />
        </div></td>
    </tr>
    <tr>
      <td width="31%" height="40" align="right" valign="top"><div align="left"></div></td>
      <td width="69%" height="33"><div align="left"><font face="Verdana" size="1"><b>
        <INPUT name="envia" TYPE="submit" VALUE="Enviar" style="font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #EEEEEE; border: 1 solid #000000">
    
        <INPUT TYPE="button" NAME="Button" VALUE="Cancelar" onClick="javascript:history.back();" style="font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #EEEEEE; border: 1 solid #000000">
      </b></font></div></td>
    </tr>
  </table>
</form></td>
  </tr>
</table>
<%
'===================================verifica=======================
	else
	session.abandon
	response.redirect "index.asp"
	end if
'===================================fim verifica===================
%>

acoes.asp

 

<!--#include file="conexao.asp"-->
<%



'====================================verifica===============
	usuario = session("usuario")
	user= session("usuario")
	senha = session("senha")
	adm = session("adm")
	liberado = session("liberado")
	pagina = request.servervariables("http_referer")
	
	if (liberado = "ok") then
'====================================fim verifica==========

		op = request("op")	
		
'=======================Deletar Lua de mel ==================================
		if (op = "delserv") then
		id2 = request("id")
		deletar = "delete from luademel where id='"&id2&"';"
		conexao.execute(deletar)
		conexao.close
		set conexao=nothing
		
		response.redirect "clientes.asp?pag=serv"
		
'=======================Cadastrar Lua de mel====================================

        elseif (op = "addluademel") then
		
	nomecasal = request("nomecasal")
	precosafira = request("precosafira")
	precoesmeralda = request("precoesmeralda")
	precorubi = request("precorubi")
	precoouro = request("precoouro")
	precodiamante = request("precodiamante")
	banco = request("banco")
	agencia = request("agencia")
	conta = request("conta")
	favorecido = request("favorecido")
	email = request("email")
	imagem = request("imagem")
	
	
		
		else
		response.redirect "clientes.asp"
		end if
'===================================verifica=======================
	else
	'session.abandon
	response.redirect "index.asp"
	end if
'===================================fim verifica===================
%>

 

Muito obrigado

Quem puder me add no msn cidao.gu@hotmail.com

 

ate jogo uma graninha para quem puder me ajudar

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

que erro encontrou?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

se pretende mesmo que alguém faça por voce é melhor mover para a área de negócios

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gilberto Jr    26

Gilberto Jr
Postado

Gustavo, segue abaixo:

1º passo formulario criado, abaixo:

 

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Formulario</title>
</head>

<body>
<form  name="form1" method="post" action="upload.asp" enctype="multipart/form-data">
Nome Arquivo: <input type="text" name="nome" id="nome" /><br>
Arquivo Foto: <input type="file" name="arquivo" id="arquivo" /><br>
<input type="submit" name="enviar" id="enviar" value="Enviar" />
</form>
</body>
</html>

2º passo é criar a pagina que envia os dados, segue abaixo:

upload.asp

<!--#include file="config.asp" -->
		<% 
		'Instancia o componente
		SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") 
		server.ScriptTimeout=99999 ' aumenta o tempo para enviar aquivos maiores
 
			'Configura o caminho onde arquivo será salvo
			SaFileUp.Path = Server.MapPath("fotos/")
                        'Para Revenda substitua o caminho físico para E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\
 
			'Você pode usar também o caminho relativo se preferir
			'SaFileUp.Path = Server.MapPath("./upload/")
 
			'Caso o usuário não indique um arquivo para upload, informa erro.
			If SaFileUp.IsEmpty Then
					response.write "<center>Por favor, indique um arquivo para upload.</center><br>"
			Else
				'Salva o arquivo no servidor
			SaFileUp.Save
						
				nome_arq = Right(SaFileUp.Form("arquivo"),Len(SaFileUp.Form("arquivo"))-InstrRev(SaFileUp.Form("arquivo"),"\"))
				
				set rs = con.execute("INSERT INTO Noticia(Foto)VALUES('"&nome_arq&"')")
				
			End if
 
			'Gera um link html para retornar a pagina anterior
			response.write ("<script>alert('Notícia salva com sucesso!');location='index.asp'</script>")
 
		Set SaFileUp = Nothing 
		call disconnect
%>

No mais é isso ai cara, hehehe

 

Vou cobrar em kkkkkkkkkkkkkkk

Compartilhar este post

Link para o post
Compartilhar em outros sites

gustavo.maturana    0

gustavo.maturana
Postado

Galera onde eu estou errado me ajuda ai por favor ja estou entrando em desespero o cliente ta quase querendo cancelar o serviço

 

segue o link do projeto para vocês verem como ta ficando:

 

http://www.webagente.com.br/admrz/luademel/index.asp

 

User e Senha: planeta

 

codigo das paginas

No momento estou colocando so a imagem para gravar no banco de dados depois coloco o resto se alguem puder me ajudar

 

cadastrar.asp

 

<!--#include file="conexao.asp"-->
<%

'====================================verifica===============

	session.timeout = 60

	usuario = session("usuario")
	id_site_agente = request("idsite")
	if id_site_agente <> "" then
	session("idsiteagente") = id_site_agente
	end if
	senha = session("senha")
	dominio = session("dominio")
	adm = session("adm")
	liberado = session("liberado")
	
	if (liberado = "ok") then
	

	op   = request("op")
	op2  = request("op2")
	op3  = request("op3")
	
	if (op = "listar") then
	ordem = request("ordem")
	else
	ordem = "asc"
	end if

    pag = request("pag")
	if pag = "sair" then
	session.abandon
	response.redirect "default.asp"
	end if

%>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="10%"> </td>
    <td width="90%">
 <FORM name="upload" method="post" ENCTYPE="multipart/form-data" ACTION="acoes.asp?op=addluademel" onsubmit="return valida_form(this);">
  <table border="0" width="190%" cellspacing="0" cellpadding="0">
    <tr>
      <td colspan="2" height="50"><div align="left"><font face=verdana size=2>Adicionar item em </font><b><font face="Verdana" color="blue" size="2">Lua-de-Mel </font></b></div></td>
    </tr>
    <tr>
      <td colspan="2" height="1" valign="middle">
      <p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"><font face="Verdana" size="1"><b>Imagem:</b></font>		</td>
	</tr>
	<trd>
      <td colspan="2" height="1" valign="middle">
	    
        <div align="left">
          <input type="hidden" name="imagem" value="">
          <INPUT NAME="filename" TYPE="hidden" ID="filename" SIZE="30" MAXLENGTH="255">
          <INPUT NAME="File_1" TYPE="FILE" SIZE="30" maxlength="255" onChange="checa_imagem();" style="font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #ffffff; border: 1 solid #000000">	  
        </div></td>
    </tr>
	    <tr>
      <td colspan="2" height="48" valign="top"><div align="left"><font face="Verdana" color="#CC3300" size="1"><b>Atenção:</b> Somente é permitido fazer upload de imagem no formato "JPG".<br>
        Caso você tenha arquivos em outro formato para enviar,<br>
        converta-os para o formato "JPG".<br>
        Dimensão indicada: <b>500 x 375 px</b>.</font></div></td>
    </tr>
    <tr>
      <td colspan="2" valign="bottom" height="20">
        <p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0">
	  <font face="Verdana" size="1"><b>Nome do Casal :</b></font></p>		</td>
	</tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="nomecasal" type="text" id="nomecasal" onKeyDown="textCounter(this.form.titulo,this.form.remLen2,50);" onKeyUp="textCounter(this.form.tituloo,this.form.remLen2,50);" size="40" wrap=physical>
          <br>
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Preço Safira :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="precosafira" type="text" id="precosafira" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="4" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>
        <label for="checkbox_row_6">Preço Esmeralda</label>
        :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="precoesmeralda" type="text" id="precoesmeralda" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="4" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Preço Rubi :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="precorubi" type="text" id="precorubi" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="4" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Preço Ouro :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="precoouro" type="text" id="precoouro" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="4" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Preço Diamante :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="precodiamante" type="text" id="precodiamante" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="4" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Banco :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="banco" type="text" id="banco" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="20" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Agencia :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="agencia" type="text" id="agencia" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="10" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Conta Corrente  :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="conta" type="text" id="conta" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="10" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="20"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>Favorecido :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="22">
        <div align="left">
          <input name="favorecido" type="text" id="favorecido" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="40" wrap="physical" />
          <br />
      </div></td>
    </tr>
	<tr>
      <td colspan="2" valign="bottom" height="12"><p align="left" style="word-spacing: 0; margin-left: 0; margin-right: 10; margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><b>E-mail :</b></font></p></td>
    </tr>
	<tr>
      <td colspan="2" valign="top" height="50">
        <div align="left">
          <input name="email" type="text" id="email" onkeydown="textCounter(this.form.titulo,this.form.remLen2,50);" onkeyup="textCounter(this.form.tituloo,this.form.remLen2,50);" size="40" wrap="physical" />
          <br />
        </div></td>
    </tr>
    <tr>
      <td width="31%" height="40" align="right" valign="top"><div align="left"></div></td>
      <td width="69%" height="33"><div align="left"><font face="Verdana" size="1"><b>
        <INPUT name="envia" TYPE="submit" VALUE="Enviar" style="font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #EEEEEE; border: 1 solid #000000">
    
        <INPUT TYPE="button" NAME="Button" VALUE="Cancelar" onClick="javascript:history.back();" style="font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #EEEEEE; border: 1 solid #000000">
      </b></font></div></td>
    </tr>
  </table>
</form></td>
  </tr>
</table>
<%
'===================================verifica=======================
	else
	session.abandon
	response.redirect "index.asp"
	end if
'===================================fim verifica===================
%>

acoes.asp

 

<!--#include file="conexao.asp"-->
<%



'====================================verifica===============
	usuario = session("usuario")
	user= session("usuario")
	senha = session("senha")
	adm = session("adm")
	liberado = session("liberado")
	pagina = request.servervariables("http_referer")
	
	if (liberado = "ok") then
'====================================fim verifica==========

		op = request("op")	
		
'=======================Deletar Lua de mel ==================================
		if (op = "delserv") then
		id2 = request("id")
		deletar = "delete from luademel where id='"&id2&"';"
		conexao.execute(deletar)
		conexao.close
		set conexao=nothing
		
		response.redirect "clientes.asp?pag=serv"
		
'=======================Cadastrar Lua de mel====================================

        elseif (op = "addluademel") then
		
	 'Instancia o componente
                SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") 
                server.ScriptTimeout=99999 ' aumenta o tempo para enviar aquivos maiores
 
                        'Configura o caminho onde arquivo será salvo
                        SaFileUp.Path = Server.MapPath("c:\inetpub\webagentep\webagente\admrz\luademel\fotos")
                        'Para Revenda substitua o caminho físico para E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\
 
                        'Você pode usar também o caminho relativo se preferir
                        'SaFileUp.Path = Server.MapPath("./upload/")
 
                        'Caso o usuário não indique um arquivo para upload, informa erro.
                        If SaFileUp.IsEmpty Then
                                        response.write "<center>Por favor, indique um arquivo para upload.</center><br>"
                        Else
                                'Salva o arquivo no servidor
                        SaFileUp.Save
                                                
                                nome_arq = Right(SaFileUp.Form("imagem"),Len(SaFileUp.Form("imagem"))-InstrRev(SaFileUp.Form("imagem"),"\"))
                                
                                set rs = con.execute("INSERT INTO luademel VALUES('"&nome_arq&"')")
                                
                        End if
 
                        'Gera um link html para retornar a pagina anterior
                        response.write ("<script>alert('Notícia salva com sucesso!');location='gravar.html'</script>")
 
                Set SaFileUp = Nothing 
                call disconnect	
	
		
		else
		response.redirect "clientes.asp"
		end if
'===================================verifica=======================
	else
	'session.abandon
	response.redirect "index.asp"
	end if
'===================================fim verifica===================
%>

a imagem nao vai para a pasta que eu quero

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

é por que não conseguiu criar o objeto, ou seja, o servidor não tem o componente!

Compartilhar este post

Link para o post
Compartilhar em outros sites

gustavo.maturana    0

gustavo.maturana
Postado

Nossa que estranho

 

pq nesse servidor tem outros codigos que faz upload alguem conhece algum codigo para fazer upload sem esse componente?

 

Entrei em contato com o meu servidor de hospedagem

e me passaram esse codigo mais nao to conseguindo adaptar

Coloquei esse codigo aqui

 

agora nao ta dando erro nenhum mais tbm nao ta dando nenhuma ação nao grava e nen aparece a imagem na pasta

 

se alguem conseguir remover o idsite e novo codigo do strpath = path_fisico&"\"&idsite&"\*.*" sem der erro me da uma dica

 

Obrigado

 

 

elseif (op = "addluademel") then
        idsite = "teste"
        novocodigo = "005"
		
	 
         Set fs = CreateObject("Scripting.FileSystemObject") 
	
		if fs.FolderExists(path_fisico) = false then
			Set a = fs.CreateFolder(path_fisico)
				
	if fs.FolderExists(path_fisico) = true then
	sub DeleteFile(path)
	dim fs, file
	on error resume next
	set fs = CreateObject("Scripting.FileSystemObject")
	fs.DeleteFile(path)
		'fs.DeleteFolder(path_fisico)
	set fs = nothing
	end sub
	on error resume next
	'apaga diretorio temporario
        strpath = path_fisico&"\"&idsite&"\*.*"
	call DeleteFile(strpath)
	end if
	
	Set Upload = Server.CreateObject("Carnicelli.FileUpload")
	Upload.Save path_fisico, false


        on error goto 0
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set strFolder = objFSO.GetFolder(path_fisico)
	Set strFiles = strFolder.Files
	  intFileCount = strFolder.Files.Count
	Dim strPath		
	Dim objFolder	
	Dim objItem
	
	imagem = ""
	strpath = path_fisico
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	
	Set objFolder = objFSO.GetFolder(strPath)
	If intFileCount = "0" Then
	'response.write "Não existem imagens/fotos em seu diretório."
	Else
		For Each objItem In objFolder.Files
		      if right(objItem.Name, 4) <> ".scc"  and right(objItem.Name, 3) <> ".db" then
	         imagem =  objItem.Name 
	       end if
	   	Next
	End If
	
	Set objItem = Nothing
	Set objFolder = Nothing
	Set objFSO = Nothing

	'gera imagem tamanho normal
	set Image = Server.CreateObject("SimageUtil.Image")
	Image.OpenImageFile path_virtual&imagem

	Image.KeepAspect = false
	image.AllowEnlarge = true
	
	xDim=Image.Width
	yDim=Image.Height
	if xDim > yDim then 
	orientation="Landscape"
	else
	orientation="Portrait"
	end if
			
	Select Case orientation
	Case "Landscape"
	if xDim > 640 then
	sizeFactor=xDim/640
	yChange=yDim/sizeFactor
	Image.ChangeSize 640,yChange
	end if
	Case "Portrait"
	if yDim > 640 then
	sizeFactor=yDim/640
	xChange=xDim/sizeFactor
	Image.ChangeSize xChange,640
	end if
	end Select
	'Image.ChangeSize 500, 375
	'Image.ChangeSize 640
	Image.SaveJpgFile path_virtual & "\zoom\"&idsite&"_" &novocodigo&"_"& imagem, 75
	
	
        Image.KeepAspect = false
	image.AllowEnlarge = false
	Image.Thumb path_virtual & "\"&idsite&"\" & imagem, 60, 40, path_virtual & "\thumb\"&idsite&"_" &novocodigo&"_"& imagem, 75
	
	imagem = idsite&"_"&novocodigo&"_"&imagem


	set image = nothing

	Set fs = CreateObject("Scripting.FileSystemObject") 
	if fs.FolderExists(path_fisico) = true then
	sub DeleteFile2(path)
	dim fs, file
	on error resume next
	set fs = CreateObject("Scripting.FileSystemObject")
	fs.DeleteFile(path)
		fs.DeleteFolder(path_fisico)
	set fs = nothing
	end sub
	on error resume next
	'apaga diretorio temporario
	strpath = path_fisico&"\"&idsite&"\*.*"
	call DeleteFile2(strpath)
	end if

        inserir = "insert into luademel (foto)"&_
	"values ('"&imagem&"');"
	conexao.execute(inserir)

        conexao.close
	set conexao = nothing
end if

        response.redirect "clientes.asp?pag=serv"

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este link pode te ajudar

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