<SCRIPT type = "text/VBScript">
Function str2asc (strstr)
Str2asc = hex (ASC (strstr ))
End Function
Function asc2str (ascasc)
Asc2str = CHR (ascasc)
End Function
</SCRIPT>
<SCRIPT type = "text/JavaScript">
/* Urlencode and urldecode functions at the beginning */
Function urlencode (STR ){
VaR ret = "";
VaR strspecial = "! \ "# $ % & '() * +,/:; <=>? [] ^ '{| }~ % ";
VaR TT = "";
for (VAR I = 0; I var CHR = Str. charat (I);
var c = str2asc (CHR);
tt + = CHR + ":" + C + "N ";
If (parseint ("0x" + C)> 0x7f) {
RET + = "%" + C. slice (0, 2) + "%" + C. slice (-2);
}else {
If (CHR = "")
RET + = "+ ";
else if (strspecial. indexof (CHR )! =-1)
RET + = "%" + C. tostring (16);
else
RET + = CHR;
}< BR >}< br> return ret;
}< br> function urldecode (STR) {
var ret = "";
for (VAR I = 0; I var CHR = Str. charat (I);
If (CHR = "+") {
RET + = "";
}else if (CHR = "%") {
var ASC = Str. substring (I + 1, I + 3);
If (parseint ("0x" + ASC)> 0x7f) {
RET + = asc2str (parseint ("0x" + ASC + Str. substring (I + 4, I + 6);
I + = 5;
}else {
RET + = asc2str (parseint ("0x" + ASC);
I + = 2;
}< BR >}else {
RET + = CHR;
}< BR >}< br> return ret;
}< br> alert (urldecode ("% C2 % D2 % C2 % Eb");