¿Cómo codificar y decodificar URL en caracteres chinos en ASP?

lt; ******************************* Función: URLEncode(strURL) Parámetros: Ninguno Autor: alici Fecha: 2007/7/ 15 Descripción: Ejemplo de función de codificación de URL y codificación inversa: URLEncode(strURL) ****************************

Función URLEncode(strURL)

Dim I

Dim tempStr

For I = 1 To Len( strURL)

Si Asc(Mid (strURL, I, 1)) lt; 0 entonces

tempStr = "" amp; Derecha(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2)

tempStr = "" amp; Left(CStr(Hex(Asc(Medio(strURL, I, 1)))), Len(CStr(Hex(Asc(Medio(strURL, I, 1))) )) )- 2) amp; tempStr

URLEncode = URLEncode amp; tempStr

ElseIf (Asc(Mid(strURL, I, 1)) gt; = 65 y Asc(Mid (strURL) , I, 1)) lt; = 90) o (Asc(Mid(strURL, I, 1)) = 97 And Asc(Mid(strURL, I, 1)) lt; = 122) Entonces

URLEncode = URLEncode & Mid(strURL, I, 1)

De lo contrario

URLEncode = URLEncode & "" & Hex(Asc(Mid(strURL, I, 1)))

Finalizar si

Siguiente

Finalizar función

Función URLDecode(strURL)

Atenuar I

Si InStr(strURL, "") = 0 Entonces URLDecode = strURL.Función de salida

Para I = 1 a Len(strURL)

Si Mid(strURL, I, 1) = "" Entonces

If eval("amp; H" amp; Mid(strURL, I 1, 2)) gt 127 Entonces

URLDecode = URLDecode Chr; (eval("H" amp; Mid(strURL, I 1, 2) amp; Mid(strURL, I 4, 2)))

I = I 5

Else

URLDecode = URLDecode amp; > Finalizar si

si no

URLDecode = URLDecode & Mid( strURL, I, 1)

Finalizar si

Siguiente

Finalizar función

gt ;