10/08/2010, 11:00
|
| | Fecha de Ingreso: abril-2009 Ubicación: Bogota
Mensajes: 217
Antigüedad: 15 años, 8 meses Puntos: 1 | |
Respuesta: abrir un archivo en el servidor bueno sabiendo lo anterior pues me puse a investigar y encontre codigo muy paresido que si es para aspx pero aun no me funciona, el codigo es:
Dim nombre As String ="c:\carpeta...\Denuncias\asd.txt" 'por seguridad no doy la ruta real
' pero la ruta no tiene nada raro en si asi que no es el problema
Dim nsi, nsf As Double
nsi = nombre.LastIndexOf("\")
nsf = nombre.Length - nsi
Dim strFileName As String = nombre.Substring(nsi + 1, nsf - 1)
Dim s As String = LCase(Right(nombre, 4))
Select Case s
Case ".asf"
ContentType = "video/x-ms-asf"
Case ".avi"
ContentType = "video/avi"
Case ".txt"
ContentType = "text/plain"
Case ".doc"
ContentType = "application/msword"
Case ".zip"
ContentType = "application/zip"
Case ".xls"
ContentType = "application/vnd.ms-excel"
Case ".gif"
ContentType = "image/gif"
Case ".jpg", "jpeg"
ContentType = "image/jpeg"
Case ".wav"
ContentType = "audio/wav"
Case ".mp3"
ContentType = "audio/mpeg3"
Case ".mpg", "mpeg"
ContentType = "video/mpeg"
Case ".rtf"
ContentType = "application/rtf"
Case ".htm", "html"
ContentType = "text/html"
Case ".asp"
ContentType = "text/asp"
Case ".pdf"
ContentType = "application/pdf"
Case Else
'Handle All Other Files
ContentType = "application/octet-stream"
End Select
Try
Response.Clear()
Response.ClearContent()
Response.ClearHeaders()
Response.Buffer = False
Response.ContentType = ContentType
Dim stringname As String = strFileName.Substring(0, (strFileName.Length - strFileName.LastIndexOf(".")) - 1)
Response.AppendHeader("Content–Disposition", "attachment; filename=" & stringname)
Response.Clear()
Response.Flush()
'Response.WriteFile("Denuncias/" & strFileName)
Response.Write("Denuncias/" & strFileName)
'Response.TransmitFile("Denuncias/" & strFileName)
'Response.TransmitFile(nombre)
Catch ex As Exception
desplegarMensajeOperacionAjax(Me, [GetType], "error", True, ex.Message)
Response.End()
End Try
resulta que me sale el siguiente error:
Sys.Webforms.pagerequestmanagerparsererrorexceptio n: the message received from the server could not be parsed. Common
causes for this error are when response is modified by calls to response. write(), response filters, HttpModules, or
server trace is enabled
details: Error parsing near 'Denuncias/asd.txt92\'
pero no se por que se agrega es 92\ siendo que no e insertado nada que aga eso, ademas como se daran cuenta en la parte final del codigo engo comentariados unos response es porque estos me generan un error similar pero con el inicio de la ruta, ayuda
__________________ cuidensen y que arceus los acompanhe |