Foros del Web » Programando para Internet » ASP Clásico »

Decodificar URL

Estas en el tema de Decodificar URL en el foro de ASP Clásico en Foros del Web. Hola a todos, tengo una página asp que lee información de una biblioteca de documentos de Sharepoint. El problema está en que cuando obtengo la ...
  #1 (permalink)  
Antiguo 05/05/2005, 01:41
Avatar de TomaHawkk  
Fecha de Ingreso: diciembre-2001
Ubicación: España
Mensajes: 422
Antigüedad: 22 años, 6 meses
Puntos: 1
Exclamación Decodificar URL

Hola a todos,

tengo una página asp que lee información de una biblioteca de documentos de Sharepoint.

El problema está en que cuando obtengo la Url del documento y realizo un Response.Write de la misma, me aparece con caracteres raros: %20 en lugar de un espacio, etc...

Buscando por internet lo único que encuentro es la función "Server.Urlencode" pero lo que necesito es lo contrario. En javascript es "unescape" pero necesito una función de servidor no de cliente.

Espero puedan ayudarme, gracias!
Un saludo.
__________________
ThE MaTriX HaS YoU
  #2 (permalink)  
Antiguo 05/05/2005, 02:17
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 19 años, 9 meses
Puntos: 18
replace("%20"," ") o
replace("%20"," ")
%3A --> :
%2F --> /
%2E --> .
%3F --> ?
.
.
.
Igual hay algo mejor....

Última edición por trasgukabi; 05/05/2005 a las 02:24
  #3 (permalink)  
Antiguo 05/05/2005, 02:20
Avatar de TomaHawkk  
Fecha de Ingreso: diciembre-2001
Ubicación: España
Mensajes: 422
Antigüedad: 22 años, 6 meses
Puntos: 1
Hola,

me aparecen muchos más que el espacio, acentos y otros caracteres, no puedo saber todos los que son.

Un saludo
__________________
ThE MaTriX HaS YoU
  #4 (permalink)  
Antiguo 05/05/2005, 02:30
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 19 años, 9 meses
Puntos: 18
' An inverse to Server.URLEncode
function URLDecode(str)
dim re
set re = new RegExp

str = Replace(str, "+", " ")

re.Pattern = "%([0-9a-fA-F]{2})"
re.Global = True
URLDecode = re.Replace(str, GetRef("URLDecodeHex"))
end function

' Replacement function for the above
function URLDecodeHex(match, hex_digits, pos, source)
URLDecodeHex = chr("&H" & hex_digits)
end function
  #5 (permalink)  
Antiguo 05/05/2005, 02:34
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 19 años, 9 meses
Puntos: 18
purpose:

The URLDecode function decodes a URL encoded string back into the original text.

syntax:

string = URLDecode(encodedstring)

example usage:

<% = URLDecode( Server.URLEncode( "@ can't find ... that & this?" ) ) %>

source code:

Código:
<%
Private Function URLDecode(byVal encodedstring)
	Dim strIn, strOut, intPos, strLeft
	Dim strRight, intLoop
	strIn  = encodedstring : strOut = _
		 "" : intPos = Instr(strIn, "+")
	Do While intPos
		strLeft = "" : strRight = ""
		If intPos > 1 then _
			strLeft = Left(strIn, intPos - 1)
		If intPos < len(strIn) then _
			strRight = Mid(strIn, intPos + 1)
		strIn = strLeft & " " & strRight
		intPos = InStr(strIn, "+")
		intLoop = intLoop + 1
	Loop
	intPos = InStr(strIn, "%")
	Do while intPos
		If intPos > 1 then _
			strOut = strOut & _
				Left(strIn, intPos - 1)
		strOut = strOut & _
			Chr(CInt("&H" & _
				mid(strIn, intPos + 1, 2)))
		If intPos > (len(strIn) - 3) then
			strIn = ""
		Else
			strIn = Mid(strIn, intPos + 3)
		End If
		intPos = InStr(strIn, "%")
	Loop
	URLDecode = strOut & strIn
End Function
%>
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:14.