Pessoal,
Alguém tem algum manual ou exemplo de uso do componente ASP ASPSimpleUpload?
O site do fabricante era www.asphelp.com mas o domínio esta a venda.
Obrigado
Publicidade
|
|
Page 1 of 1
Componente ASPSimpleUpload???? Alguem tem o manual para usar o componen
#2
Posted 12 August 2005 - 06:27 PM
Um exemplo simplão aeee...
Página upload.asp
Abraços!
QUOTE
<html>
<head>
<title>ASP Simple Upload - Formulário</title>
</head>
<body>
<form method="POST" action="upload.asp" enctype="multipart/form-data">
Select a file to upload: <input type="file" name="File1" size="30">
<input type="submit" name="submit" value="Enviar">
</form>
</body>
</html>
<head>
<title>ASP Simple Upload - Formulário</title>
</head>
<body>
<form method="POST" action="upload.asp" enctype="multipart/form-data">
Select a file to upload: <input type="file" name="File1" size="30">
<input type="submit" name="submit" value="Enviar">
</form>
</body>
</html>
Página upload.asp
QUOTE
<%
Option Explicit
Dim upl, NewFileName
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
If Len(upl.Form("File1")) > 0 Then
NewFileName = "/uploads/" & upl.ExtractFileName(upl.Form("File1"))
If upl.SaveToWeb("File1", NewFileName) Then
Response.Write("Arquivo enviado com sucesso!")
Else
Response.Write("Nao foi possível efetuar o upload!")
End If
End If %>
Option Explicit
Dim upl, NewFileName
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
If Len(upl.Form("File1")) > 0 Then
NewFileName = "/uploads/" & upl.ExtractFileName(upl.Form("File1"))
If upl.SaveToWeb("File1", NewFileName) Then
Response.Write("Arquivo enviado com sucesso!")
Else
Response.Write("Nao foi possível efetuar o upload!")
End If
End If %>
Abraços!
Share this topic:
Page 1 of 1
Similar Topics
| Topic | Forum | Started By | Stats | Last Post Info | |
|---|---|---|---|---|---|
|
Efeito BLUR
Alguem sabe? |
Flash & ActionScript |
ixnow
|
|
|
|
Red Hat Enterprise Linux 6 Release Candidate disponível para parceiros
|
Plataforma Linux e Software Livre |
xanburzum
|
|
|
|
Dispara o número de "fazendeiros virtuais" no Brasil, diz Ibope
|
Notícias |
Notícias
|
|
|
|
Microsoft cria tradutor de documentos para cegos
|
Notícias |
Notícias
|
|
|
|
Tabelas diferenciadas
imprimir em tabelas separadas |
ColdFusion |
Rafael Capucho.
|
|
|
|
BEA Systems concorda em ser adquirida pela Oracle por US$8,5 bi
|
Notícias |
Notícias
|
|
|
|
5CLICKS | Vaga para designer - MG
|
Mercado / Vagas |
Marlos Carmo
|
|
|
|
Vostu lança game Rede do Crime, do Orkut, para celulares
|
Notícias |
Notícias
|
|
Publicidade
|
|

Help













