D7编码:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := HTTPEncode(UTF8Encode(Edit1.Text));
end;
JS解码:
<html>
<body>
<script type="text/javascript">
document.write(decodeURI("ab%E4%B8%AD123")+ "<br />")
</script>
</body>
</html>