Respuesta : Upload

#1 Franco Figún

04/08/2004 - 21:12 | Informe spam

<%@ Page Language="vb" %>
<Script Language="VB" RunAt="Server">
Sub Page_Load(Sender as Object, e as EventArgs)

Dim MyPath, MyName as string
MyPath = "C:\temp"
MyName = Dir(MyPath, vbDirectory)

if MyName=""
MkDir("C:\temp")
span2.InnerHtml="La carpeta (C:\temp) es creada en el Page_Load"
end if
End Sub

Sub Upload_Click(Sender as Object, e as EventArgs)

FileName.InnerHtml = MyFile.PostedFile.FileName
FileContent.InnerHtml = MyFile.PostedFile.ContentType
FileSize.InnerHtml = MyFile.PostedFile.ContentLength
UploadDetails.visible = True

Dim strFileName as string
strFileName = MyFile.PostedFile.FileName
Dim c as string = System.IO.Path.GetFileName(strFileName)
Try
MyFile.PostedFile.SaveAs("C:\temp\" + c)
Span1.InnerHtml = "Your File Uploaded Sucessfully at server as :
C:\temp\" & c

catch Exp as exception
span1.InnerHtml = "Ocurrió un error. Por favor verifique el
archivo."
UploadDetails.visible = false
span2.visible=false
End Try
End Sub
</Script>
<html>
<Body>
<B>Subir archivos en ASP.NET<P>
<Form Method="Post" EncType="Multipart/Form-Data" RunAt="Server">
Elija un archivo para subir:<BR>
<Input ID="MyFile" Type="File" RunAt="Server" Size="40"><BR>
<Input Type="Submit" Value="Upload" OnServerclick="Upload_Click"
RunAt="Server"><br>
<Div ID="UploadDetails" Visible="False" RunAt="Server">
Nombre del archivo: <Span ID="FileName" RunAt="Server"/> <BR>
Tipo de archivo: <Span ID="FileContent" RunAt="Server"/>
<BR>
Tamaño de archivo: <Span ID="FileSize" RunAt="Server"/>bytes
<BR></Div>
<Span ID="Span1" Style="Color:Red" RunAt="Server"/>
<Span ID="Span2" Style="Color:Red" RunAt="Server"/>
</Form>
</Body>
</html>

FF
www.francofigun.com.ar
www.microsofties.com.ar
Yahoo MSN:

"Luis Esteban Valencia Muñoz "
escribió en el mensaje
news:e$

Como es el codigo para hacer un upload al servidor?

Que pasa si por ejemplo solo queiro dejar subir extensiones.GIF y que no
sean de mas de 100KB.

Favor explicarlo en codigo.

Responder a este mensaje

#2 Luis Esteban Valencia

05/08/2004 - 05:10 | Informe spam

Como hago para bloquear las extensiones?
Es decir que solo se puedan subir archivos GIF
se me ocurre un regular expression validator?
SI es asi cual seria la expresion
?
"Franco Figún" escribió en el mensaje
news:

<%@ Page Language="vb" %>
<Script Language="VB" RunAt="Server">
Sub Page_Load(Sender as Object, e as EventArgs)

Dim MyPath, MyName as string
MyPath = "C:\temp"
MyName = Dir(MyPath, vbDirectory)

if MyName=""
MkDir("C:\temp")
span2.InnerHtml="La carpeta (C:\temp) es creada en el Page_Load"
end if
End Sub

Sub Upload_Click(Sender as Object, e as EventArgs)

FileName.InnerHtml = MyFile.PostedFile.FileName
FileContent.InnerHtml = MyFile.PostedFile.ContentType
FileSize.InnerHtml = MyFile.PostedFile.ContentLength
UploadDetails.visible = True

Dim strFileName as string
strFileName = MyFile.PostedFile.FileName
Dim c as string = System.IO.Path.GetFileName(strFileName)
Try
MyFile.PostedFile.SaveAs("C:\temp\" + c)
Span1.InnerHtml = "Your File Uploaded Sucessfully at server as :
C:\temp\" & c

catch Exp as exception
span1.InnerHtml = "Ocurrió un error. Por favor verifique el
archivo."
UploadDetails.visible = false
span2.visible=false
End Try
End Sub
</Script>
<html>
<Body>
<B>Subir archivos en ASP.NET<P>
<Form Method="Post" EncType="Multipart/Form-Data" RunAt="Server">
Elija un archivo para subir:<BR>
<Input ID="MyFile" Type="File" RunAt="Server" Size="40"><BR>
<Input Type="Submit" Value="Upload" OnServerclick="Upload_Click"
RunAt="Server"><br>
<Div ID="UploadDetails" Visible="False" RunAt="Server">
Nombre del archivo: <Span ID="FileName" RunAt="Server"/> <BR>
Tipo de archivo: <Span ID="FileContent" RunAt="Server"/>
<BR>
Tamaño de archivo: <Span ID="FileSize" RunAt="Server"/>bytes
<BR></Div>
<Span ID="Span1" Style="Color:Red" RunAt="Server"/>
<Span ID="Span2" Style="Color:Red" RunAt="Server"/>
</Form>
</Body>
</html>

FF
www.francofigun.com.ar
www.microsofties.com.ar
Yahoo MSN:

"Luis Esteban Valencia Muñoz "
escribió en el mensaje
news:e$
> Como es el codigo para hacer un upload al servidor?
>
> Que pasa si por ejemplo solo queiro dejar subir extensiones.GIF y que no
> sean de mas de 100KB.
>
> Favor explicarlo en codigo.
>
>

Responder a este mensaje

#3 Luis Esteban Valencia

05/08/2004 - 05:12 | Informe spam

estoy haciendo esto en mi servidor local

Dim SaveLocation As String = Server.MapPath("C:\inetpub\wwwroot\") & "\" &
id & ".gif"

y me sale este error

Detalles de la excepción: System.ArgumentException: Ruta de acceso de
MapPath 'C:\inetpub\wwwroot\' no válida. Se esperaba una ruta de acceso
virtual.

"Franco Figún" escribió en el mensaje
news:

<%@ Page Language="vb" %>
<Script Language="VB" RunAt="Server">
Sub Page_Load(Sender as Object, e as EventArgs)

Dim MyPath, MyName as string
MyPath = "C:\temp"
MyName = Dir(MyPath, vbDirectory)

if MyName=""
MkDir("C:\temp")
span2.InnerHtml="La carpeta (C:\temp) es creada en el Page_Load"
end if
End Sub

Sub Upload_Click(Sender as Object, e as EventArgs)

FileName.InnerHtml = MyFile.PostedFile.FileName
FileContent.InnerHtml = MyFile.PostedFile.ContentType
FileSize.InnerHtml = MyFile.PostedFile.ContentLength
UploadDetails.visible = True

Dim strFileName as string
strFileName = MyFile.PostedFile.FileName
Dim c as string = System.IO.Path.GetFileName(strFileName)
Try
MyFile.PostedFile.SaveAs("C:\temp\" + c)
Span1.InnerHtml = "Your File Uploaded Sucessfully at server as :
C:\temp\" & c

catch Exp as exception
span1.InnerHtml = "Ocurrió un error. Por favor verifique el
archivo."
UploadDetails.visible = false
span2.visible=false
End Try
End Sub
</Script>
<html>
<Body>
<B>Subir archivos en ASP.NET<P>
<Form Method="Post" EncType="Multipart/Form-Data" RunAt="Server">
Elija un archivo para subir:<BR>
<Input ID="MyFile" Type="File" RunAt="Server" Size="40"><BR>
<Input Type="Submit" Value="Upload" OnServerclick="Upload_Click"
RunAt="Server"><br>
<Div ID="UploadDetails" Visible="False" RunAt="Server">
Nombre del archivo: <Span ID="FileName" RunAt="Server"/> <BR>
Tipo de archivo: <Span ID="FileContent" RunAt="Server"/>
<BR>
Tamaño de archivo: <Span ID="FileSize" RunAt="Server"/>bytes
<BR></Div>
<Span ID="Span1" Style="Color:Red" RunAt="Server"/>
<Span ID="Span2" Style="Color:Red" RunAt="Server"/>
</Form>
</Body>
</html>

FF
www.francofigun.com.ar
www.microsofties.com.ar
Yahoo MSN:

"Luis Esteban Valencia Muñoz "
escribió en el mensaje
news:e$
> Como es el codigo para hacer un upload al servidor?
>
> Que pasa si por ejemplo solo queiro dejar subir extensiones.GIF y que no
> sean de mas de 100KB.
>
> Favor explicarlo en codigo.
>
>

Responder a este mensaje

#4 Sashka

05/08/2004 - 07:13 | Informe spam

Aca tienes un ejemplo que sólo te deja subir imágenes de tamaño menor a
10kb...

http://www.1perlstreet.com/vb/scrip...?txtCodeId50&lngWid

Sashka

"Luis Esteban Valencia Muñoz "
escribió en el mensaje
news:e$

Como es el codigo para hacer un upload al servidor?

Que pasa si por ejemplo solo queiro dejar subir extensiones.GIF y que no
sean de mas de 100KB.

Favor explicarlo en codigo.

Responder a este mensaje

#5 Sergio Florez M.

05/08/2004 - 14:49 | Informe spam

En la propiedad Accept del input puedes poner los MIME types que deseas
aceptar. El de gif es "image/gif"

Sergio Florez M.
Miembro activo www.AlianzaDev.net
El que persevera insiste
Medellín, Colombia
DCE 4

"Luis Esteban Valencia" escribió en el mensaje
news:

Como hago para bloquear las extensiones?
Es decir que solo se puedan subir archivos GIF
se me ocurre un regular expression validator?
SI es asi cual seria la expresion
?
"Franco Figún" escribió en el mensaje
news:
> <%@ Page Language="vb" %>
> <Script Language="VB" RunAt="Server">
> Sub Page_Load(Sender as Object, e as EventArgs)
>
> Dim MyPath, MyName as string
> MyPath = "C:\temp"
> MyName = Dir(MyPath, vbDirectory)
>
> if MyName=""
> MkDir("C:\temp")
> span2.InnerHtml="La carpeta (C:\temp) es creada en el Page_Load"
> end if
> End Sub
>
> Sub Upload_Click(Sender as Object, e as EventArgs)
>
> FileName.InnerHtml = MyFile.PostedFile.FileName
> FileContent.InnerHtml = MyFile.PostedFile.ContentType
> FileSize.InnerHtml = MyFile.PostedFile.ContentLength
> UploadDetails.visible = True
>
> Dim strFileName as string
> strFileName = MyFile.PostedFile.FileName
> Dim c as string = System.IO.Path.GetFileName(strFileName)
> Try
> MyFile.PostedFile.SaveAs("C:\temp\" + c)
> Span1.InnerHtml = "Your File Uploaded Sucessfully at server as :
> C:\temp\" & c
>
> catch Exp as exception
> span1.InnerHtml = "Ocurrió un error. Por favor verifique el
> archivo."
> UploadDetails.visible = false
> span2.visible=false
> End Try
> End Sub
> </Script>
> <html>
> <Body>
> <B>Subir archivos en ASP.NET<P>
> <Form Method="Post" EncType="Multipart/Form-Data" RunAt="Server">
> Elija un archivo para subir:<BR>
> <Input ID="MyFile" Type="File" RunAt="Server" Size="40"><BR>
> <Input Type="Submit" Value="Upload" OnServerclick="Upload_Click"
> RunAt="Server"><br>
> <Div ID="UploadDetails" Visible="False" RunAt="Server">
> Nombre del archivo: <Span ID="FileName" RunAt="Server"/> <BR>
> Tipo de archivo: <Span ID="FileContent" RunAt="Server"/>
> <BR>
> Tamaño de archivo: <Span ID="FileSize" RunAt="Server"/>bytes
> <BR></Div>
> <Span ID="Span1" Style="Color:Red" RunAt="Server"/>
> <Span ID="Span2" Style="Color:Red" RunAt="Server"/>
> </Form>
> </Body>
> </html>
>
> FF
> www.francofigun.com.ar
> www.microsofties.com.ar
> Yahoo MSN:
>
> "Luis Esteban Valencia Muñoz "
> escribió en el mensaje
> news:e$
> > Como es el codigo para hacer un upload al servidor?
> >
> > Que pasa si por ejemplo solo queiro dejar subir extensiones.GIF y que

no

> > sean de mas de 100KB.
> >
> > Favor explicarlo en codigo.
> >
> >
>
>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Upload

Preguntas similare

Leer las respuestas