js中 urlencode编码

在JavaScript中，可以使用`encodeURI()`和`encodeURIComponent()`函数来进行URL编码。其中，`encodeURI()`函数用于对整个URL进行编码，而`encodeURIComponent()`函数则用于对URL中的参数进行编码。这两个函数都是按照UTF-8编码规则进行编码的。

以下是使用`encodeURIComponent()`函数对URL参数进行编码的例子：

var url = "http://www.example.com/search?q=JavaScript 中的 urlencode 编码";
var encodedUrl = encodeURIComponent(url);
console.log(encodedUrl); // 输出：http%3A%2F%2Fwww.example.com%2Fsearch%3Fq%3DJavaScript%20%E4%B8%AD%E7%9A%84%20urlencode%20%E7%BC%96%E7%A0%81

如果需要按照ANSI编码规则进行URL编码，可以自己编写代码实现。以下是一个使用VBScript自定义函数实现ANSI编码的例子：

function encodeUrl(url) {
  var shell = new ActiveXObject("WScript.Shell");
  var encodedUrl = shell.ExpandEnvironmentStrings("%TEMP%\\encodedUrl.txt");
  var fso = new ActiveXObject("Scripting.FileSystemObject");
  var file = fso.CreateTextFile(encodedUrl, true);  file.Write(url);
  file.Close();
  var encodedUrlContent = shell.Exec("cmd /c cscript //nologo encodeUrl.vbs " + encodedUrl).StdOut.ReadAll();
  fso.DeleteFile(encodedUrl);
  return encodedUrlContent;
}

其中，`encodeUrl.vbs`是一个VBScript文件，用于实现ANSI编码。以下是`encodeUrl.vbs`的代码：

Dim objArgs
Set objArgs = WScript.Arguments
Dim fso, file, url, encodedUrl
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(objArgs(0), 1)
url = file.ReadAll
file.Close
encodedUrl = ""
For i = 1 To Len(url)
  If Asc(Mid(url, i, 1)) < 128 Then
    encodedUrl = encodedUrl & Chr(Asc(Mid(url, i, 1)))
  Else
    encodedUrl = encodedUrl & "%" & Hex(Asc(Mid(url, i, 1)))
  End If
Next
WScript.StdOut.Write encodedUrl

使用以上代码，可以实现按照ANSI编码规则进行URL编码。但需要注意的是，这种方法并不是标准的URL编码方式，可能会导致一些兼容性问题。