erickmm

Vixe não entendi nada...rs to procurando algo aqui, vamos ver se acho mais ta dificil, queria apenas renomear a imagem com o id do usuario a data e hora mais vamos ver se acho valeu olha oque eu achei Set dir = CreateObject("Scripting.FileSystemObject") 'Cria o FSO if dir.FileExists(caminho_e_nome_do arquivo) then end if Para renomear, use: dir.MoveFile caminho/nomeantigo, caminho/nomenovo só não entendi onde devo mudar para colocar o id do usuario no começo do nome da imagem e nem onde coloco no meu codigo ve se você entende

É amigo ta dificil...rs quase ninguém sabe muito sobre esse componente mais fico no aguardo valeu

O próprio sistema númera caso haja arquivos com o mesmo nome? como fazer isso? acho que é algo por aqui que tem q mudar, mais não sei oque Eu tambem não sei o nome desse componente, mais deve ser o SaFileUp porque é o que roda na locaweb onde o site esta hospedado e esta rodando 'A linha a seguir é onde está setada a pasata para qual será upado os arquivos, se fores usar FSO, acrescente por aqui Const VirtualFolder = ("fotos") Dim DestinationPath, virtDestinationPath DestinationPath = Server.mapPath(VirtualFolder) & "\" virtDestinationPath = "http://" + Request.ServerVariables("SERVER_NAME") _ + GetPath(Request.ServerVariables("SCRIPT_NAME") ) _ + "/" + VirtualFolder + "/" Dim RS: Set RS = OpenUploadRS Dim FileField For Each FileField in Form.Files.Items if len(FileField.FileName)> 0 then 'File is specified. Dim DestinationFileName DestinationFileName = DestinationPath & FileField.FileName FileField.SaveAs DestinationFileName espero que ajude valeu

Boas Estou com um sitema de album de fotos, esta pefeito, faz upload das fotos, grava no banco o endereço da mesma tudo certo, só que eu gostaria de renomear o nome da imagem para que outros usuario não façam upload com o mesmo nome, talvez até colocar o id no começo do nome, sei lá vou portar o codigo se alguém puder me ajudar segue o codigo <% Server.ScriptTimeout = 500000 Dim Form: Set Form = New ASPForm %> <!--#INCLUDE FILE="_upload.asp"--> <% Server.ScriptTimeout = 10000 Form.SizeLimit = 10240*1024'10MB if len(Request.QueryString("UploadID"))>0 then Form.UploadID = Request.QueryString("UploadID")'{/b} end if Const fsCompletted = 0 If Form.State = fsCompletted Then 'A linha a seguir é onde está setada a pasata para qual será upado os arquivos, se fores usar FSO, acrescente por aqui Const VirtualFolder = ("fotos") Dim DestinationPath, virtDestinationPath DestinationPath = Server.mapPath(VirtualFolder) & "\" virtDestinationPath = "http://" + Request.ServerVariables("SERVER_NAME") _ + GetPath(Request.ServerVariables("SCRIPT_NAME") ) _ + "/" + VirtualFolder + "/" Dim RS: Set RS = OpenUploadRS Dim FileField For Each FileField in Form.Files.Items if len(FileField.FileName)> 0 then 'File is specified. Dim DestinationFileName DestinationFileName = DestinationPath & FileField.FileName FileField.SaveAs DestinationFileName 'Este comentário fiz questão de colocar, aqui é onde você acrecenta o nome dos campos que estão na sua tabela RS.AddNew RS("data") = Form("Desc-" & FileField.Name) RS("codigo") = Form("Desc-" & FileField.Name) RS("foto") = FileField.FileName RS("DestFileName") = VirtualFolder '... RS.Update end if Next 'fiz uma mudança aqui para retornar a pagina onde estavamos sem perder a querystring("data") response.write "<meta http-equiv='refresh' content='0; url=java script:history.go(-1)'/>" Dim Field: For Each Field in Form.Files.Items 'Response.write "<br>&nbsp;" & Field.FileName Next '{b}Save file to the destination '{/b} ElseIf Form.State > 10 then Const fsSizeLimit = &HD Select case Form.State case fsSizeLimit: response.write "<br><Font Color=red>O seu limite de upload é de 10mb (" & Form.TotalBytes & "B) e voc~e exedeu esse limite. (" & Form.SizeLimit & "B)</Font><br>" case else response.write "<br><Font Color=red>Some form error.</Font><br>" end Select End If'Form.State = 0 then Function OpenUploadRS() Dim RS : Set RS = CreateObject("ADODB.Recordset") 'Achei interessante comentar essa parte, pois é aqui que vai o nome da sua tabela, no meu caso era "fotos" RS.Open "fotos", GetConnection, 2, 2 Set OpenUploadRS = RS end Function Function GetConnection() dim Conn: Set Conn = CreateObject("ADODB.Connection") Conn.Provider = "Microsoft.Jet.OLEDB.4.0" Conn.open "Data Source=" & Server.MapPath("../../../dados/database.mdb") set GetConnection = Conn end function Function SplitFileName(FullPath) Dim Pos, PosF PosF = 0 For Pos = Len(FullPath) To 1 Step -1 Select Case Mid(FullPath, Pos, 1) Case ":", "/", "\": PosF = Pos + 1: Pos = 0 End Select Next If PosF = 0 Then PosF = 1 SplitFileName = PosF End Function Function GetPath(FullPath) GetPath = left(FullPath, SplitFileName(FullPath)-1) End Function Dim UploadID, PostURL UploadID = Form.NewUploadID PostURL = Request.ServerVariables("SCRIPT_NAME") & "?UploadID=" & UploadID'{/b} %> espero que possam me ajudar valeu ate +

Isso mesmo que eu quero amigo fazer upload da imagem e automaticamente ser renomeado e depois gravar o caminha no bd O Claudio colocou um exemplo ae, só que onde é renomeado a imagem? e onde coloco a tabela a ser gravada?

Fazer o upload de uma imagem, renomeando e gravando o endereço dela no banco de dados entendeu?

Olá Já procurei em toda parte e não consigo achar tenho um site hospedado na locaweb, e eles usam o componente para uploa SaFileUp fazer o uploa esta tudo certinho como o exemplo deles, porem gostaria de encrementar mais gostaria de gravar o end da imagem no banco e a imagem na pasta já renomenado a mesma tem como? espero que possam me ajudar vou postar o codigo do upload aqui <HTML> <BODY> <% Set upl = Server.CreateObject("SoftArtisans.FileUp") %> <% upl.Path = "e:\home\web\up_foto" %> <% upl.Save %> Total de Bytes Enviados: <%=upl.TotalBytes%> <% Set upl = Nothing %> </BODY> </HTML> aguardo ate +

Acho que entendi mais eu tenho q cadastrar o usuario e só depois posso add a foto? para add a foto o usuario tem que fazer login? ou posso fazer o cadastro em 2 partes, tipo assim: o usuario se cadastra, nome e email, assim que apertar o botão cadastrar o formulario é cadastrado e vai para uma pagina, nessa pagina posso colocar o campo foto para add a foto? assim consigo achar o id e criar a pasta com o numero do id? fico no aguardo ate +

Não entendi muito bem eu tenho que colocar no formulario um campo de usuario e senha? só consigo criar a pasta quando o usuario fizer o login? não entendi pode me explicar? agradeço ate +

Amigo Rafael Fiz uns testes aqui e nada de funcionar mais se você precerber o codigo que postei ae em cima ele cria uma pasta padrão chamada teste dentro da pasta imagens mais a imagem fica fora dessa pasta, eu queria em vez de criar essa pasta padrão teste eu queria criar a pasta com o numero do id do usuario que esta sendo cadastrado e salvar a imagem dentro dessa pasta dá uma olhada nessa parte vou postar denovo só ela <% ' pasta onde as imagens serao guardadas pasta = Server.MapPath("imagens/") nome_foto = "/"&nome&""&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 chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if Set pasta = Server.CreateObject("Scripting.FileSystemObject") If Not pasta.FolderExists("e:\home\baixadasexy\web\upload\imagens\Teste") Then pasta.CreateFolder("e:\home\baixadasexy\web\upload\imagens\Teste") Response.Write "Pasta criada com sucesso!" Else Response.Write "Esta pasta já existe!" End if Set pasta = nothing %>> ve se agora deu pra entender gostaria de em vez de criar essa pasta Teste que criasse a pasta com o numero do id do usuario que esta sendo cadastrado aguardo amigo ate + Erick

O usuario se cadastra no formulario, o formulario é eviado ao banco que cria um id para o usuario gostaria de pegar esse id e criar a pasta com o nome do id cadastrado no banco deu pra entender amigo?

Então quero salvar a umagem numa pasta criada pelo formulario com o nome do id do usuario que esta se cadastrando isso vem do bd deu pra entender?

Boas, Estou montando um sistema de cadastro de usuario com foto, o usuario preenche o formulario escolhe a imagem e envia quando envia automaticamente a imagem sobe para o servidor e grava o endereço da imagem enviada no banco de dados ate ae esta tudo ok, o sistema esta funcionando Mais agora quero fazer upload da imagem dentro da pasta com o nome do id do usuario eu consegui jpa criar a pasta com um nome padrão, gostaria de agora criar a pasta com o id do usuario e salvar a imagem lá dentro, tem como? vou postar aqui a pagina que criei, se alguém puder me ajudar <!-- #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 ---------------------- nome = UploadRequest.Item("nome").Item("Value") email = UploadRequest.Item("email").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("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("foto").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("imagens/") nome_foto = "/"&nome&""&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 chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if Set pasta = Server.CreateObject("Scripting.FileSystemObject") If Not pasta.FolderExists("e:\home\baixadasexy\web\upload\imagens\Teste") Then pasta.CreateFolder("e:\home\baixadasexy\web\upload\imagens\Teste") Response.Write "Pasta criada com sucesso!" Else Response.Write "Esta pasta já existe!" End if Set pasta = nothing ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("..\..\..\baixadasexy\dados\banco.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados sql = "Insert into lojas (nome,email,foto) values ('"& nome &"', '"& email &"', '"& cfoto &"')" Conexao.Execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "Dados Cadastrados com Sucesso!" ' Redireciona após 5 segundos response.write "<br><br>você será redirecionado em 5 segundos..<br>" response.write "<meta http-equiv='refresh' content='5; url=index.asp'/>" %>[/codebox] fico no aguardo ate +

Bom dia, Tenho um programação de newsletter que esta rodando perfeitamente, ele pega os dados do banco de dados, nome e email e envia para todos os emails cadastrados, ate ae tudo bem só que tenho varios emails em um arquivo TXT gostaria de fazer ele enviar atraves desse arquivo, tem como? vou postar o codigo aqui, se puderem me ajudar <% 'Abre a conexao com o banco de dados Set Conex = Server.CreateObject ("ADODB.Connection") Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("dados.mdb") 'Pega os dados digitados no form assunto = request("assunto") mensagem = request("mensagem") 'Faz a listagem dos usuarios para pegar o nome Set listar = Server.CreateObject("ADODB.Recordset") sql = "Select * from usuarios" listar.open sql, conex, 1,1 'Faz um while while not listar.eof 'Pega o nome e o email do usuario Set nome = Server.CreateObject("ADODB.Recordset") sql = "Select * from usuarios where id="&listar("id") nome.open sql, conex, 1,1 while not nome.eof 'envia o e-mail Set objmail = Server.CreateObject("CDONTS.NewMail") objmail.from = nome_admin & "<"&email_admin&">" objmail.to = nome("email") objmail.subject = assunto objmail.body = "Olá <b>"& nome("nome") & "</b><br><br> " & mensagem objMail.Bodyformat = strBody objMail.MailFormat = CDontsEMailFormatText objmail.send 'Move para o próximo registro nome.movenext wend listar.movenext wend 'Exibe a mensagem de que os emails foram enviados com sucesso response.Write("Os e-mails foram enviados com sucesso.") %> [/codebox] aguardo ate +

Boas Eu tenho um cadastro de usuarios que esta funcionado perfeitamente mais gostaria que o usuario colocase fotos , tipo assim a primeira parte do cadastro é só textos, nome, end, email ...etc a segunda parte colocaria fotos, tipo a do orkut com no minimo 5 fotos por exemplo depois finalizaria o cadastro dele será que tem como alguém me ajudar? fico no aguardo obrigado