Galera é uma coisa simples, mais que muita gente ainda fica perdido.
Antigamente eu ficava também, usava upload sem componentes, mais ai achei uma solução para o o Persits.Upload, apesar de não usar muito ele.
Esse script é muito simples, manda para a internet e pega o nome da imagem. Essa era uma grande complicação para a galera, cada um tinha seu jeito de fazer, creio que não achei o mais simples, mais achei um menos complicado!!
<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
%>
Pergunta
Ted k'
Galera é uma coisa simples, mais que muita gente ainda fica perdido.
Antigamente eu ficava também, usava upload sem componentes, mais ai achei uma solução para o o Persits.Upload, apesar de não usar muito ele.
Esse script é muito simples, manda para a internet e pega o nome da imagem. Essa era uma grande complicação para a galera, cada um tinha seu jeito de fazer, creio que não achei o mais simples, mais achei um menos complicado!!
<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 %>Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
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.