<% response.buffer=true Server.ScriptTimeout = 99999999 response.Expires=0 %> <% ' função reponsável por retornar a extensão do arquivo Function retornaExtensaoArquivo1(arquivo1) retornaExtensaoArquivo1 = right(arquivo1, 4) End Function Function retornaExtensaoArquivo2(arquivo2) retornaExtensaoArquivo2 = right(arquivo2, 4) End Function Function retornaExtensaoArquivo3(arquivo3) retornaExtensaoArquivo3 = right(arquivo3, 4) End Function Function retornaExtensaoArquivo4(arquivo4) retornaExtensaoArquivo4 = right(arquivo4, 4) End Function ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin 'If byteCount > 5097152 Then 'response.write "Tamanho do arquivo: " & byteCount & "
" 'Response.Write "Não deu certo... tamanho do arquivo não pode ser maior que 2MB (5.097.152 bytes)...
voltar" 'Response.End 'End If ' Recuperando os Dados Digitados ---------------------- altera = UploadRequest.Item("altera").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_arquivo1 = UploadRequest.Item("foto1").Item("ContentType") tipo_arquivo2 = UploadRequest.Item("foto2").Item("ContentType") tipo_arquivo3 = UploadRequest.Item("foto3").Item("ContentType") tipo_arquivo4 = UploadRequest.Item("foto4").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_arquivo1 = UploadRequest.Item("foto1").Item("FileName") caminho_arquivo2 = UploadRequest.Item("foto2").Item("FileName") caminho_arquivo3 = UploadRequest.Item("foto3").Item("FileName") caminho_arquivo4 = UploadRequest.Item("foto4").Item("FileName") ' Nome dos arquivos enviados nome_arquivo1 = Right(caminho_arquivo1,Len(caminho_arquivo1)-InstrRev(caminho_arquivo1,"\")) nome_arquivo2 = Right(caminho_arquivo2,Len(caminho_arquivo2)-InstrRev(caminho_arquivo2,"\")) nome_arquivo3 = Right(caminho_arquivo3,Len(caminho_arquivo3)-InstrRev(caminho_arquivo3,"\")) nome_arquivo4 = Right(caminho_arquivo4,Len(caminho_arquivo4)-InstrRev(caminho_arquivo4,"\")) ' Conteudo binario dos arquivos enviados arquivo1 = UploadRequest.Item("foto1").Item("Value") arquivo2 = UploadRequest.Item("foto2").Item("Value") arquivo3 = UploadRequest.Item("foto3").Item("Value") arquivo4 = UploadRequest.Item("foto4").Item("Value") ' Conecta-se ao Banco de Dados %> <% 'dim conexaodb call abreconexao ' cadastra os dados no banco de dados 'sql = "Insert into Documentos (De, Para, Pasta, Data, Assunto, Mensagem) values ('"& De &"', '" & Para & "', '" & VPasta & "', '"&Data&"', '"&Assunto&"', '"& Mensagem &"')" 'Conexaodb.Execute(sql) ' recupera o id do cadastro 'sql = "Select Max(Id) As Id From Documentos" 'Set rsId = Conexaodb.Execute(sql) 'id = rsId("Id") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("fotos") IF arquivo1 <> "" Then nome_arquivo1 = "/foto_" & id & "_1" & retornaExtensaoArquivo1(nome_arquivo1) ELSE nome_arquivo1 = "" End IF IF arquivo2 <> "" Then nome_arquivo2 = "/foto_" & id & "_1" & retornaExtensaoArquivo2(nome_arquivo2) ELSE nome_arquivo2 = "" End IF IF arquivo3 <> "" Then nome_arquivo3 = "/foto_" & id & "_1" & retornaExtensaoArquivo3(nome_arquivo3) ELSE nome_arquivo3 = "" End IF IF arquivo4 <> "" Then nome_arquivo4 = "/foto_" & id & "_1" & retornaExtensaoArquivo4(nome_arquivo4) ELSE nome_arquivo4 = "" End IF 'nome_arquivo = "/arquivo_" & id & "_1" & retornaExtensaoArquivo(nome_arquivo) sql = "Update produtos Set foto1 = '" & nome_arquivo1 & "' foto2 = '" & nome_arquivo2 & "' foto3 = '" & nome_arquivo3 & "' foto4 = '" & nome_arquivo4 & "' Where Id = " & altera Conexaodb.Execute(sql) ' Fazendo o Upload do arquivo selecionado if arquivo1 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo1) For i = 1 to LenB(arquivo1) MyFile.Write chr(AscB(MidB(arquivo1,i,1))) Next MyFile.Close end if if arquivo2 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo2) For i = 1 to LenB(arquivo2) MyFile.Write chr(AscB(MidB(arquivo2,i,1))) Next MyFile.Close end if if arquivo3 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo3) For i = 1 to LenB(arquivo3) MyFile.Write chr(AscB(MidB(arquivo3,i,1))) Next MyFile.Close end if if arquivo4 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo4) For i = 1 to LenB(arquivo4) MyFile.Write chr(AscB(MidB(arquivo4,i,1))) Next MyFile.Close end if %>