Urlencode

SUB URL_ENCODE {MY $ TEXT = Shift; $ text = ~ s / ([^ a-z0-9 _.! ~ * '() -]) / Sprintf "%%% 02x", ORD ($ 1) / egi; $ TEXT = ~ Tr / / /; RETURN $ TEXT;}

Sub Url_Decode {MY $ TEXT = Shift; $ text = ~ tr // / /; $ text = ~ s /% ([A-F0-9] [A-F0-9]) / CHR (HEX ($ 1) ) / egi; return $ text;}

function URLEncode (plaintext) {// The Javascript escape and unescape functions do not correspond // with what browsers actually do ... var SAFECHARS = "0123456789" // Numeric "ABCDEFGHIJKLMNOPQRSTUVWXYZ" // Alphabetic "abcdefghijklmnopqrstuvwxyz" "- _.! ~ * '() "; // RFC2396 Mark Characters Var HEX =" 0123456789AbcDef ";

Var encoded = ""; for (var i = 0; i 255) {Alert ("Unicode Character '" "' Cannot Be Encoded Using Standard Url Encoding./N" "( " ( ) / n " " a space ( ) Will Be SubstitudeD ELSE {Encoded = "%"; Encoded = HEX.CHARAT (CHARCODE >> 4) & 0xF); Encoded = HEX.CHARAT (Charcode & 0xF); }}} // for

Return encoded;