Mostrar imagen
Publicado por Marco Antonio Cervantes Salaza (14 intervenciones) el 13/05/2004 16:39:12
hola que tal, alguien podrá ayudarme??
tengo este script el cual ayer el Gran señor Victor Collado me ayudo a que funcionara perfectamente:
<script runat="server">
Sub BotonCargar_Click(Source As Object, e As EventArgs)
If Not (RutaArchivo.PostedFile Is Nothing) Then
try
If Session("DirectorioCreado")= 0 then
Session("Directorio")= "C:\Inetpub\wwwroot\SolariaReps\Uploads\" + Session.SessionID
system.IO.Directory.CreateDirectory (Session("Directorio"))
Session("DirectorioCreado")= 1
end if
dim NombreArchivo as string
NombreArchivo = RutaArchivo.PostedFile.FileName
NombreArchivo = NombreArchivo.Substring(NombreArchivo.LastIndexOf("\")+1)
RutaArchivo.PostedFile.SaveAs(Session("Directorio") + "\"+NombreArchivo)
EtiquetaMensajes.text = "Archivo Cargado."
EtiquetaDocsAdjuntos.visible= true
GridAdjuntos.Visible = True
call Llenar_Grid()
Catch ex As Exception
EtiquetaMensajes.text = "No se pudo cargar el archivo."
End Try
End If
End Sub
</script>mi problema es el siguiente: quiero que en el momento que se presione el boton que ejecuta el script, se ejecute antes algo asi "ImagenCargando.visible = true". lo he intentado por varios metodos y no me funciona, siempre muestra la imagen hasta que el script alla finalizado, como lo puedo hacer??? gracias...
tengo este script el cual ayer el Gran señor Victor Collado me ayudo a que funcionara perfectamente:
<script runat="server">
Sub BotonCargar_Click(Source As Object, e As EventArgs)
If Not (RutaArchivo.PostedFile Is Nothing) Then
try
If Session("DirectorioCreado")= 0 then
Session("Directorio")= "C:\Inetpub\wwwroot\SolariaReps\Uploads\" + Session.SessionID
system.IO.Directory.CreateDirectory (Session("Directorio"))
Session("DirectorioCreado")= 1
end if
dim NombreArchivo as string
NombreArchivo = RutaArchivo.PostedFile.FileName
NombreArchivo = NombreArchivo.Substring(NombreArchivo.LastIndexOf("\")+1)
RutaArchivo.PostedFile.SaveAs(Session("Directorio") + "\"+NombreArchivo)
EtiquetaMensajes.text = "Archivo Cargado."
EtiquetaDocsAdjuntos.visible= true
GridAdjuntos.Visible = True
call Llenar_Grid()
Catch ex As Exception
EtiquetaMensajes.text = "No se pudo cargar el archivo."
End Try
End If
End Sub
</script>mi problema es el siguiente: quiero que en el momento que se presione el boton que ejecuta el script, se ejecute antes algo asi "ImagenCargando.visible = true". lo he intentado por varios metodos y no me funciona, siempre muestra la imagen hasta que el script alla finalizado, como lo puedo hacer??? gracias...
Valora esta pregunta
0