Ir para conteúdo
Fórum Script Brasil
  • 0

Nome ou número de arquivo inválido

ANDRE_GUSTAVO

Perguntado por ANDRE_GUSTAVO,

 Share

Pergunta

ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
Postado

Pessoal estou tentando fazer um cadastro com mysql, onde o cliente insere os dados do evento e também manda uma foto publicitaria do mesmo, porem quando é enviado, da o seguinte erro

Erro de tempo de execução do Microsoft VBScript (0x800A0034)

Nome ou número de arquivo inválido

/VISTEON_SOUND/painel_de_controle/salvaagenda.asp, line 95

linha 95 > Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)

if foto1 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)
For i = 1 to LenB(foto1)
MyFile.Write chr(AscB(MidB(foto1,i,1)))

o que tem de errado? pois já usei esse mesmo script para fazer outros uploads e funcionava beleza

desde já agradeço a todos pela ajuda

ate mais

Link para o comentário
Compartilhar em outros sites

48 respostass a esta questão

Posts Recomendados

  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Andre, verifica os seguintes pontos:

Caminho do bd está correto?

Essa pasta onde está tentando salvar existe?

Já tentou enviar um arquivo bem pequeno, < do que 50kb?

Se as respostas a estas perguntas não deram uma luz, as responda aqui no seu tópico junto com o código completo para darmos uma olhadinha, ok?

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado
Andre, verifica os seguintes pontos:

Caminho do bd está correto?

Essa pasta onde está tentando salvar existe?

Já tentou enviar um arquivo bem pequeno, < do que 50kb?

Se as respostas a estas perguntas não deram uma luz, as responda aqui no seu tópico junto com o código completo para darmos uma olhadinha, ok?

[]'s Rafael Spilki

Rafael, em relação as perguntas está tudo ok, o caminho esta certo, a pasta existe, estou mandando arquivos menores que 50kb, eu tinha testado umas 2 vezes e tinha dado certo, ai derrepente parou de funcionar, vou postar o codigo completo.

form

<%@LANGUAGE="VBSCRIPT" %>



<!-- #include file = "upload_funcoes.asp" -->



<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
<style type="text/css">
<!--
body,td,th {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 10px;
    color: #000000;
}
body {
    margin-left: 0px;
    margin-top: 0px;
    margin-right: 0px;
    margin-bottom: 0px;
    background-color: #FFE94F;
}
.style1 {
    font-size: 12px;
    font-weight: bold;
}
-->
</style></head>

<body>
<form action="salvaagenda.asp" method="post" enctype="multipart/form-data" name="form1" id="form1">
  <table width="100%" border="0" cellspacing="2" cellpadding="2">
    <tr>
      <td colspan="3"><div align="center" class="style1">Incluir Evento na Agenda </div></td>
    </tr>
    <tr>
      <td colspan="3"><div align="center">Preencha todos os campos</div></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="19%"><div align="right">Img Publicidade: </div></td>
      <td width="80%"><input name="txt_foto" type="file" id="txt_foto" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="35" /></td>
      <td width="1%">&nbsp;</td>
    </tr>
    <tr>
      <td><div align="right">Nome do Evento: </div></td>
      <td><input name="nome_evento" type="text" id="nome_evento" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"  size="35" /></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td><div align="right">Local:</div></td>
      <td><input name="local" type="text" id="local" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"  size="35" /></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td><div align="right">Data:</div></td>
      <td><input name="data1" type="text" id="data1" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="ex.: dd/mm/aaaa"  size="35" /> 
      (essa data aparecera na pagina principal) </td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td><div align="right">Data2:</div></td>
      <td><input name="dia" type="text" id="dia" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="dia"  size="3" /> 
        de 
        <input name="mes" type="text" id="mes" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="mes"  size="12" />
      de
      <input name="ano" type="text" id="ano" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="2008"  size="5" />
      (data da pagina agenda.Ex. <strong>01 de Março de 2008</strong>) </td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td><div align="right">Horário:</div></td>
      <td><input name="horario" type="text" id="horario" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="00:00"  size="35" /></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td><div align="right">Cidade/Estado:</div></td>
      <td><input name="cidade" type="text" id="cidade" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"  size="16" />
      &nbsp;
      <select name="TXTEstado" id="TXTEstado" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">
        <option value="-1">Selecione</option>
        <option value="AC">AC</option>
        <option value="AL">AL</option>
        <option value="AP">AP</option>
        <option value="AM">AM</option>
        <option value="BA">BA</option>
        <option value="CE">CE</option>
        <option value="DF">DF</option>
        <option value="ES">ES</option>
        <option value="GO" selected="selected">GO</option>
        <option value="MA">MA</option>
        <option value="MT">MT</option>
        <option value="MS">MS</option>
        <option value="MG">MG</option>
        <option value="PA">PA</option>
        <option value="PB">PB</option>
        <option value="PR">PR</option>
        <option value="PE">PE</option>
        <option value="PI">PI</option>
        <option value="RJ">RJ</option>
        <option value="RN">RN</option>
        <option value="RS">RS</option>
        <option value="RO">RO</option>
        <option value="RR">RR</option>
        <option value="SC">SC</option>
        <option value="SP">SP</option>
        <option value="SE">SE</option>
        <option value="TO">TO</option>
                        </select></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td valign="top"><div align="right">Descrição da Festa:</div></td>
      <td><textarea name="txtdescri" cols="35" rows="4" wrap="physical" id="txtdescri"></textarea></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td><div align="right"></div></td>
      <td><input type="submit" name="Submit" value="Incluir" /></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
  </table>
</form>
</body>
</html>
salva 
<%@LANGUAGE="VBSCRIPT"  %>


<% 

Dim nDia, nMes, nAno, nDiaSemana
Dim sDiaSemana, sMes

nDia = day(Date)
nMes = month(Date)
nAno = year(Date)
nDiaSemana = weekday(Date)

select case nDiaSemana
case 1 sDiaSemana = "Domingo"
case 2 sDiaSemana = "Segunda-Feira"
case 3 sDiaSemana = "Terça-Feira"
case 4 sDiaSemana = "Quarta-Feira"
case 5 sDiaSemana = "Quinta-Feira"
case 6 sDiaSemana = "Sexta-Feira"
case 7 sDiaSemana = "S&aacute;bado"
end select

select case nMes
case 1 sMes = "01"
case 2 sMes = "02"
case 3 sMes = "03"
case 4 sMes = "04"
case 5 sMes = "04"
case 6 sMes = "06"
case 7 sMes = "07"
case 8 sMes = "08"
case 9 sMes = "09"
case 10 sMes = "10"
case 11 sMes = "11"
case 12 sMes = "12"
end select


%>
<% session("data2") = nDia & "/" & sMes & "/" & nAno  %>

<!--#INCLUDE FILE ="../db_visteon/conexaodb.inc"-->
<!-- #include file = "upload_funcoes.asp" -->
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------

    varNomeEvento = UploadRequest.Item("nome_evento").Item("Value")
    varLocal = UploadRequest.Item("local").Item("Value")
    varData1 = UploadRequest.Item("data1").Item("Value")
     varDia = UploadRequest.Item("dia").Item("Value")
    varMes = UploadRequest.Item("mes").Item("Value")
    varAno = UploadRequest.Item("ano").Item("Value")
    varHorario = UploadRequest.Item("horario").Item("Value")
    varCidade = UploadRequest.Item("cidade").Item("Value")
    varEstado = UploadRequest.Item("TXTEstado").Item("Value")
    varDescricao = UploadRequest.Item("txtdescri").Item("Value")
    DataCadastro = session("data2")
    
    
    
    
' Tipo de arquivo que esta sendo enviado
tipo_foto1 = UploadRequest.Item("txt_foto").Item("ContentType")


' Caminho completo dos arquivos enviados
caminho_foto1 = UploadRequest.Item("txt_foto").Item("FileName")

' Nome dos arquivos enviados
nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))

' Conteudo binario dos arquivos enviados
foto1 = UploadRequest.Item("txt_foto").Item("Value")


' pasta onde as imagens serao guardadas
pasta = Server.MapPath("../agenda/imagens")
nome_foto1 = "/"&varNomeEvento&nome_foto1


' pasta + nome dos arquivos

cfoto1 = "imagens" + nome_foto1

' Fazendo o Upload do arquivo selecionado
if foto1 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)
For i = 1 to LenB(foto1)
MyFile.Write chr(AscB(MidB(foto1,i,1)))

Next
MyFile.Close
end if


' Conecta-se ao Banco de Dados
call abreconexao

function LimparTexto(str)
str = trim(str)
str = lcase(str)
str = replace(str,"=","")
str = replace(str,"'","")
str = replace(str,"""""","")
str = replace(str," or ","")
str = replace(str," and ","")
str = replace(str,"(","")
str = replace(str,")","")
str = replace(str,"<","[")
str = replace(str,">","]")
str = replace(str,"update","")
str = replace(str,"-shutdown","")
str = replace(str,"--","")
str = replace(str,"'","")
str = replace(str,"#","")
str = replace(str,"$","")
str = replace(str,"%","")
str = replace(str,"¨","")
str = replace(str,"&","")
str = replace(str,"'or'1'='1'","")
str = replace(str,"--","")
str = replace(str,"insert","")
str = replace(str,"drop","")
str = replace(str,"delet","")
str = replace(str,"xp_","")
str = replace(str,"select","")
str = replace(str,"*","")
LimparTexto = str
end function
%>
<%

CALL LimparTexto(varNomeEvento)
CALL LimparTexto(varLocal)
CALL LimparTexto(varData1)
CALL LimparTexto(varDia)
CALL LimparTexto(varMes)
CALL LimparTexto(varAno)
CALL LimparTexto(varHorario)
CALL LimparTexto(varCidade)
CALL LimparTexto(varEstado)
CALL LimparTexto(varDescricao)


' cadastra os dados no banco de dados
sql = " Insert into agenda ( Foto, NomeFesta , Local , MiniData , DiaFesta , MesFesta , AnoFesta , Horario , Cidade , Estado , Descricao , Data) values ( '"&cfoto1&"', '"&varNomeEvento&"', '"&varLocal&"', '"&varData1&"', "&varDia&", '"&varMes&"', '"&varAno&"', '"&varHorario&"', '"&varCidade&"', '"&varEstado&"', '"&varDescricao&"', '"&DataCadastro&"')"
SET rsSQL = ConexaoDB.Execute(sql)




response.Redirect("agenda.asp")

%>

Link para o comentário
Compartilhar em outros sites
  • 0
kuroi

kuroi

Postado
Postado

experimenta antes de

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)
adicionar o seguinte codigo: 
Response.Write (pasta & nome_foto1)
Response.End()[/code]
ai ele deve mostrar o nome da pasta de do arquivo q ele ta tentando criar. ai você pode conferir se ele ta montando certo o nome da pasta (se vai apontar pra um caminho q existe de verdade).
Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado
Exatamente andré... faça isso que o Kuroi sugeriu e volte a barra a posição invertida! "\" Eu achei que não fosse mais local...

Depois poste o resultado desse debug que o kutoi lhe passou aqui!

[]'s Rafael Spilki

o resultado do debug

D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens\D:\@Trabalho\stock images\full\828273-016.JPG

Link para o comentário
Compartilhar em outros sites
  • 0
kuroi

kuroi

Postado
Postado

e esse endereco existe?? quem tem q saber é você e não a gente.

olha q ta aparecendo D: duas vezes, isso não existe não. e essas arroba tão certo tb??

da uma olhada, a impressao q eu tenho é q o problema é q D:\@Trabalho ta sendo inserido duas vezes. mas quem pode dizer melhor é você. qual é o endereco q era pra aparecer de verdade??

Depois poste o resultado desse debug que o kutoi lhe passou aqui!

quem??

Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado
e esse endereco existe?? quem tem q saber é você e não a gente.

olha q ta aparecendo D: duas vezes, isso não existe não. e essas arroba tão certo tb??

da uma olhada, a impressao q eu tenho é q o problema é q D:\@Trabalho ta sendo inserido duas vezes. mas quem pode dizer melhor é você. qual é o endereco q era pra aparecer de verdade??

Depois poste o resultado desse debug que o kutoi lhe passou aqui!

quem??

Esses endereços existem.

olha so esse aqui é onde tem que ser salvo os aquivos do upload

D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens

esse outro, é onde os aquivos que estou fazendo os testes estao localizados

D:\@Trabalho\stock images\full\828273-016.JPG

esses 2 endereços são reais eles existem

os arquivos q utilizo nos testes estao neste endereço: D:\@Trabalho\stock images\full

e a pasta de destino é nesse endereço: D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens

Link para o comentário
Compartilhar em outros sites
  • 0
kuroi

kuroi

Postado
Postado
Esses endereços existem.

olha so esse aqui é onde tem que ser salvo os aquivos do upload

D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens

esse outro, é onde os aquivos que estou fazendo os testes estao localizados

D:\@Trabalho\stock images\full\828273-016.JPG

esses 2 endereços são reais eles existem

os arquivos q utilizo nos testes estao neste endereço: D:\@Trabalho\stock images\full

e a pasta de destino é nesse endereço: D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens

ta os 2 existem, mas você ta tentando dar createfile no endereco assim: D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens\D:\@Trabalho\stock images\full\828273-016.JPG

tem q ser ou um ou otro. imagina no seu hd q tem no c: as pastas pasta1 e a pasta2. ai você vai acessar esse endereco C:\pasta1C:\pasta2\

isso não existe.

não entendi direito, mas o q você ta querendo é copiar o arquivo de uma pasta pra otra?? ai você pode usar o metodo CopyFile do FileSystemObject e não o CreateTextFile. tipo assim:

ScriptObject.CopyFile(endereco_de_origem, endereco_de_destino)

Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado (editado)
e esse endereco existe?? quem tem q saber é você e não a gente.

olha q ta aparecendo D: duas vezes, isso não existe não. e essas arroba tão certo tb??

da uma olhada, a impressao q eu tenho é q o problema é q D:\@Trabalho ta sendo inserido duas vezes. mas quem pode dizer melhor é você. qual é o endereco q era pra aparecer de verdade??

Depois poste o resultado desse debug que o kutoi lhe passou aqui!

quem??

Esses endereços existem.

olha so esse aqui é onde tem que ser salvo os aquivos do upload

D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens

esse outro, é onde os aquivos que estou fazendo os testes estao localizados

D:\@Trabalho\stock images\full\828273-016.JPG

esses 2 endereços são reais eles existem

os arquivos q utilizo nos testes estao neste endereço: D:\@Trabalho\stock images\full

e a pasta de destino é nesse endereço: D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens

Aterei os nomes das variaveis

foto1 p/ foto

nome_foto1 p/ nome_foto

caminho_foto1 p/ caminho_foto

cfoto1 p/ cfoto

agora esta exibindo o seguinte erro

(0x800A0005)

Chamada de procedimento ou argumento inválido

/VISTEON_SOUND/painel_de_controle/salvaagenda.asp, line 100

linha 100 >>>> MyFile.Write chr(AscB(MidB(foto,i,1)))

' 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

alguém... me da uma luz!!!!

porque ta dando esse erro?

Editado por ANDRE_GUSTAVO
Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado
e esse endereco existe?? quem tem q saber é você e não a gente.

olha q ta aparecendo D: duas vezes, isso não existe não. e essas arroba tão certo tb??

da uma olhada, a impressao q eu tenho é q o problema é q D:\@Trabalho ta sendo inserido duas vezes. mas quem pode dizer melhor é você. qual é o endereco q era pra aparecer de verdade??

Depois poste o resultado desse debug que o kutoi lhe passou aqui!

quem??

Esses endereços existem.

olha so esse aqui é onde tem que ser salvo os aquivos do upload

D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens

esse outro, é onde os aquivos que estou fazendo os testes estao localizados

D:\@Trabalho\stock images\full\828273-016.JPG

esses 2 endereços são reais eles existem

os arquivos q utilizo nos testes estao neste endereço: D:\@Trabalho\stock images\full

e a pasta de destino é nesse endereço: D:\@Trabalho\@Site\SiteVisteon-designerforsound\@sitevisteon\agenda\imagens

Aterei os nomes das variaveis

foto1 p/ foto

nome_foto1 p/ nome_foto

caminho_foto1 p/ caminho_foto

cfoto1 p/ cfoto

agora esta exibindo o seguinte erro

(0x800A0005)

Chamada de procedimento ou argumento inválido

/VISTEON_SOUND/painel_de_controle/salvaagenda.asp, line 100

linha 100 >>>> MyFile.Write chr(AscB(MidB(foto,i,1)))

' 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

alguém... me da uma luz!!!!

porque ta dando esse erro?

Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado
você está testando dentro da pasta WWWROOT "localhost" correto ??? ... posta como tá o seu código agora ....

<%@LANGUAGE="VBSCRIPT" codepage="65001" LCID="1046"  %>

<%Session.CodePage = 65001%>
<% RESPONSE.Expires=0 %>

<% 

Dim nDia, nMes, nAno, nDiaSemana
Dim sDiaSemana, sMes

nDia = day(Date)
nMes = month(Date)
nAno = year(Date)
nDiaSemana = weekday(Date)

select case nDiaSemana
case 1 sDiaSemana = "Domingo"
case 2 sDiaSemana = "Segunda-Feira"
case 3 sDiaSemana = "Terça-Feira"
case 4 sDiaSemana = "Quarta-Feira"
case 5 sDiaSemana = "Quinta-Feira"
case 6 sDiaSemana = "Sexta-Feira"
case 7 sDiaSemana = "S&aacute;bado"
end select

select case nMes
case 1 sMes = "01"
case 2 sMes = "02"
case 3 sMes = "03"
case 4 sMes = "04"
case 5 sMes = "04"
case 6 sMes = "06"
case 7 sMes = "07"
case 8 sMes = "08"
case 9 sMes = "09"
case 10 sMes = "10"
case 11 sMes = "11"
case 12 sMes = "12"
end select


%>
<% session("data2") = nDia & "/" & sMes & "/" & nAno  %>

<!--#INCLUDE FILE ="../db_visteon/conexaodb.inc"-->
<!-- #include file = "upload_funcoes.asp" -->
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------

    varNomeEvento = UploadRequest.Item("nome_evento").Item("Value")
    varLocal = UploadRequest.Item("local").Item("Value")
    varData1 = UploadRequest.Item("data1").Item("Value")
     varDia = UploadRequest.Item("dia").Item("Value")
    varMes = UploadRequest.Item("mes").Item("Value")
    varAno = UploadRequest.Item("ano").Item("Value")
    varHorario = UploadRequest.Item("horario").Item("Value")
    varCidade = UploadRequest.Item("cidade").Item("Value")
    varEstado = UploadRequest.Item("TXTEstado").Item("Value")
    varDescricao = UploadRequest.Item("txtdescri").Item("Value")
    DataCadastro = session("data2")
    
    
    
    
' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("txt_foto").Item("ContentType")


' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("txt_foto").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("txt_foto").Item("Value")


' pasta onde as imagens serao guardadas
pasta = Server.MapPath("../agenda/imagens")
nome_foto = "/"&nome_foto


' pasta + nome dos arquivos

cfoto = "imagens" + nome_foto

' 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 chrB(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if




' Conecta-se ao Banco de Dados
call abreconexao

function LimparTexto(str)
str = trim(str)
str = lcase(str)
str = replace(str,"=","")
str = replace(str,"'","")
str = replace(str,"""""","")
str = replace(str," or ","")
str = replace(str," and ","")
str = replace(str,"(","")
str = replace(str,")","")
str = replace(str,"<","[")
str = replace(str,">","]")
str = replace(str,"update","")
str = replace(str,"-shutdown","")
str = replace(str,"--","")
str = replace(str,"'","")
str = replace(str,"#","")
str = replace(str,"$","")
str = replace(str,"%","")
str = replace(str,"¨","")
str = replace(str,"&","")
str = replace(str,"'or'1'='1'","")
str = replace(str,"--","")
str = replace(str,"insert","")
str = replace(str,"drop","")
str = replace(str,"delet","")
str = replace(str,"xp_","")
str = replace(str,"select","")
str = replace(str,"*","")
LimparTexto = str
end function
%>
<%




CALL LimparTexto(varNomeEvento)
CALL LimparTexto(varLocal)
CALL LimparTexto(varData1)
CALL LimparTexto(varDia)
CALL LimparTexto(varMes)
CALL LimparTexto(varAno)
CALL LimparTexto(varHorario)
CALL LimparTexto(varCidade)
CALL LimparTexto(varEstado)
CALL LimparTexto(varDescricao)


' cadastra os dados no banco de dados
sql = " Insert into agenda ( Foto, NomeFesta , Local , MiniData , DiaFesta , MesFesta , AnoFesta , Horario , Cidade , Estado , Descricao , Data) values ( '"&cfoto&"', '"&varNomeEvento&"', '"&varLocal&"', '"&varData1&"', "&varDia&", '"&varMes&"', '"&varAno&"', '"&varHorario&"', '"&varCidade&"', '"&varEstado&"', '"&varDescricao&"', '"&DataCadastro&"')"
SET rsSQL = ConexaoDB.Execute(sql)




response.Redirect("agenda.asp")

%>
ai esta o codigo completo essa é a parte onde esta dando o erro: 
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chrB(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado

altere para:

if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto,true)
For i = 1 to LenB(foto)
MyFile.Write chrB(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if
não sei como ele deve escrever os binarios pra montar o arquivo... mais talvez mudando a linha 
MyFile.Write chrB(AscB(MidB(foto,i,1)))
por 
MyFile.WriteLine chrB(AscB(MidB(foto,i,1)))

possa surtir resultados..

Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado
altere para:

if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto,true)
For i = 1 to LenB(foto)
MyFile.Write chrB(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if
não sei como ele deve escrever os binarios pra montar o arquivo... mais talvez mudando a linha 
MyFile.Write chrB(AscB(MidB(foto,i,1)))
por 
MyFile.WriteLine chrB(AscB(MidB(foto,i,1)))

possa surtir resultados..

bareta..

ta registrando, porem não esta sendo criado o arquivo na pasta de destino

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado

veja se escreve o nome do arquivo...

response.write "<b><h4>foto="&foto&"</h4></b><br><br>"

if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto,true)
For i = 1 to LenB(foto)
MyFile.Write chrB(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if

Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado
veja se escreve o nome do arquivo...

response.write "<b><h4>foto="&foto&"</h4></b><br><br>"

if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto,true)
For i = 1 to LenB(foto)
MyFile.Write chrB(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if

apareceu um monte de caracteres, mas não o nome

foto=í£¿îƒ¿á€€ä™Šä™‰Ä€Ää €ä €

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      651,9k
×
×
  • Criar Novo...