Publicentral.com - alta en buscadores, registro buscadores, promocionaPromocion en buscadores y negocios online
Mostrando Codigo - Asp net
Code

Asp net - Upload de archivos al servidor

Códigos Asp net

Efectivo script para ofrecer a nuestros visitantes subir archivos al servidor.
Visitas: 25,332 - 05/10/2003 15.48.47
Archivo descargable »
CODIGO SIN DEMOSTRACIONDownloadComentario
EXPLICACION
Este script debe estar en la misma carpeta que nuestros archivos a subir. La carpeta debe de contener permisos de escritura. Este codigo no lo ofrecemos ejecutable, por motivos de seguridad :-)
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1.    <script language="VB" runat=server>
  2.  Sub DoUpload(Sender As Object, e As System.EventArgs)
  3.           Dim sPath as String
  4.           Dim sFile as String
  5.           Dim sFullPath as String
  6.           Dim sSplit() as String
  7.           Dim sPathsubir as String
  8. sPath = Server.MapPath(".")
  9.          If Right(sPath, 1) <> "" then
  10.             sPathsubir = sPath 'CArpeta a subir
  11.             sPath = sPath & ""
  12.         Else
  13.             sPathsubir = Left(sPath, Len(sPath) - 1)
  14.         End If
  15. sFile = txtUpload.PostedFile.FileName
  16.           sSplit = Split(sFile, "")
  17.           sFile = sSplit(Ubound(sSplit))
  18. sFullPath = sPath & sFile
  19.           Try
  20.           txtUpload.PostedFile.SaveAs(sFullPath)
  21.          lblResults.Text = "El archivo " & sFile & " to " & sPathsubir & " subio correctamente"
  22.           Catch Ex as Exception
  23. lblResults.Text = "El archivo " & sFile & " to " & sPathsubir & " No pudo subirse al servidor por la siguiente razon: " & Ex.Message
  24.          Finally
  25.             lblResults.Font.Bold = True
  26.             lblResults.Visible = true
  27.          End Try
  28.  End Sub
  29. </script>
  30.  
  31. <html>
  32.  <body>
  33.  <form enctype="multipart/form-data" runat=server>
  34.   <FONT face = +1><B> </b></FONT>
  35.   <table width="100%"  border="0" cellspacing="0" cellpadding="0">
  36.     <tr>
  37.       <td bgcolor="#990000"><font face = +1><b><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Selecciona un archivo
  38.         a subir:</font></b></font> <font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">
  39.         <input name="file" type=file id="txtUpload" runat=server>
  40.         </font> </td>
  41.     </tr>
  42.   </table>
  43.   <P align = CENTER>
  44.           <asp:button id=btnUpload Text="Upload File" OnClick="DoUpload" runat=server/>
  45.     <hr noshade>
  46. <asp:label id="lblResults" Visible=false runat=server/>
  47.  </form>
  48. </body>
  49. </html>



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Upload de archivos al servidor" href="http://www.tutores.org/codigo/549/" target="_blank">Upload de archivos al servidor</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
Sin definir
2 5
como puedo majera el máximo del archivo a cargar, ya que al parecer tiene un tope máximo

salu2
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.