Página de alteração em arquivos uploadados

[valdo 0]

Pessoal estou com uma dúvida...estou usando o código abaixo para fazer upload e agora preciso de uma página para fazer as alterações nos arquivos inseridos, será que alguém pode me ajudar?<!-- #include file = "upload_funcoes.asp" --><%' Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin' Recuperando os Dados Digitados ----------------------nome = UploadRequest.Item("nome").Item("Value")email = UploadRequest.Item("email").Item("Value")' Tipo de arquivo que esta sendo enviadotipo_foto = UploadRequest.Item("foto").Item("ContentType")tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType")' Caminho completo dos arquivos enviadoscaminho_foto = UploadRequest.Item("foto").Item("FileName")caminho_foto2 = UploadRequest.Item("foto2").Item("FileName")' Nome dos arquivos enviadosnome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))' Conteudo binario dos arquivos enviadosfoto = UploadRequest.Item("foto").Item("Value")foto2 = UploadRequest.Item("foto2").Item("Value")' pasta onde as imagens serao guardadaspasta = Server.MapPath("imagens/")nome_foto = "/"&nome_fotonome_foto2 = "/"&nome_foto2' pasta + nome dos arquivoscfoto = "imagens/lojas" + nome_fotocfoto2 = "imagens/lojas" + nome_foto2' Fazendo o Upload do arquivo selecionadoif 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.Closeend ifif foto2 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2) For i = 1 to LenB(foto2) MyFile.Write chr(AscB(MidB(foto2,i,1))) Next MyFile.Closeend if' Conecta-se ao Banco de Dadosurl_conexao = Server.MapPath("banco.mdb")set conexao = Server.CreateObject("ADODB.Connection")conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dadossql = "Insert into lojas (nome,email,foto,foto2) values ('"& nome &"', '"& email &"', '"& cfoto &"', '"& cfoto2 &"')"Conexao.Execute(sql)' Mostra Mensagem de Confirmação na TelaResponse.write "Dados Cadastrados com Sucesso!"' Redireciona após 5 segundosresponse.write "<br><br>você será redirecionado em 5 segundos..<br>"response.write "<meta http-equiv='refresh' content='5; url=index.asp'/>"%>

[jrcardozo 4]

que tipo de alteração precisa fazer? no nome do arquivo ou editar o texto?

 

para as duas possibilidades que citei você utiliza fso, vai depender da finalidade

 

 

 

obs: quando postar o código fonte coloque entre as tags para melhor visualização

[valdo 0]

No caso, preciso alterar as imagens mas o código não está aceitando, por que será?

que tipo de alteração precisa fazer? no nome do arquivo ou editar o texto?para as duas possibilidades que citei você utiliza fso, vai depender da finalidade obs: quando postar o código fonte coloque entre as tags para melhor visualização