VBScript
<Script language = "VBScript">
Function str2asc (strstr)
Str2asc = hex (ASC (strstr ))
End Function
Function asc2str (ascasc)
Asc2str = CHR (ascasc)
End Function
</SCRIPT>
Javascript
<Script language = "JavaScript">
Function urlencode (STR)
{
VaR ret = "";
VaR strspecial = "! \ "# $ % & () * +,/:; <=>? [] ^ '{| }~ % "; Var TT = "";
For (VAR I = 0; I <Str. length; 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;
}
}
Return ret;
}
Function urldecode (STR ){
VaR ret = "";
For (VAR I = 0; I <Str. length; 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;
}
}
Else
{
RET + = CHR;
}
}
Return ret;
}
</SCRIPT>