Cómo convertir "?key=E4B8" en la URL generada por el programa asp al chino simplificado
Codificación de URL
Simplemente use esta función.
función urldecode(encodestr)
newstr=""
newstr="" p>
havechar=false
lastchar=""
para i=1 a len(encodestr)
char_c=mid (encodestr,i, 1)
if char_c=" " entonces
newstr=newstr amp " "
elseif char_c="" entonces
next_1_c =mid(encodestr, i 1, 2)
next_1_num=cint("amp; H" amp; next_1_c)
si havechar entonces
havechar=false
newstr=newstr amp;(chr(cint("amp; H" amp; lastchar amp; next_1_c))
else
if abs(next_1_num)lt ;=127 entonces
newstr=newstr amp; chr(next_1_num)
else
havechar=true
lastchar=next_1_c
p>
finalizar si
finalizar si
i=i 2
si no
newstr=newstr amp; char_c
p>
finalizar si
siguiente
urldecode=newstr
finalizar función
response.write urldecode("E4B8")
Así quedó