Upload

04/08/2004 - 20:09 por Luis Esteban Valencia Muñoz perrohijueputa | Informe spam
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.

Preguntas similare

Leer las respuestas

#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.


Respuesta 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.
>
>


Respuesta 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.
>
>


Respuesta 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.


Respuesta 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.
> >
> >
>
>


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida