Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
Ted k'

Usando o Persits.Upload e pegando o nome do arquivo

Recommended Posts

<form method="post" enctype="multipart/form-data" action="Teste.asp?Enviar=$">
Arquivo: <input type="file" name="Campo" />
<input type="submit" value="Enviar" />
</form>

<%
If CStr(Request.QueryString("Enviar")) <> "" Then
    Dim Upload, PegaNomeCampo, NomeCampo

    Set Upload = Server.CreateObject("Persits.Upload") ' Criando o Objeto
    Upload.Save Server.MapPath("fotos") ' Salvando na pasta
    PegaNomeCampo = Upload.Files("Campo").FileName '  Pegando o conteúdo do campo todo

    NomeCampo = Right(PegaNomeCampo, Len(PegaNomeCampo) - InstrRev(PegaNomeCampo,"\")) ' Pegar os últimos valores do campo
    Response.Write("Upload com Sucesso! O Nome da Foto: "&NomeCampo) ' Exibindo na tela
End If
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Visitante
Responder

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Processando...
Entre para seguir isso  

×
×
  • Criar Novo...