asp(JavaScript)自动判断网页编码并转换的代码

为了实现ASP（JavaScript）自动判断网页编码并转换的代码，我们需要进行以下步骤：

1. 获取网页内容
   我们可以使用XMLHttpRequest对象获取网页内容，具体代码如下：

var xhr = new XMLHttpRequest();
xhr.open('GET', url, true);
xhr.onreadystatechange = function() {
    if (xhr.readyState === 4 && xhr.status === 200) {
        var responseText = xhr.responseText;
        // ... 其他操作
    }
};
xhr.send();

1. 判断编码
   我们可以使用RegExp对象对网页内容进行正则匹配，查找其中的<meta>标签，然后判断charset属性的值，以确定网页的编码格式，具体代码如下：

var regex = /<meta.*charset=['"]?([a-zA-Z0-9\-_]+)['"]?.*>/gi;
var match = regex.exec(responseText);
var encoding = match ? match[1].toLowerCase() : null;

if (!encoding) {
    encoding = "utf-8";
}

这段代码首先定义了一个正则表达式，用于匹配<meta>标签的charset属性。然后通过String.prototype.exec()方法执行正则表达式，获取匹配结果，进而确定网页编码。

1. 转换编码
   我们可以使用TextDecoder对象将网页内容从当前编码格式转换为UTF-8编码格式，具体代码如下：

var decoder = new TextDecoder(encoding);
var utf8Text = decoder.decode(responseText);

这段代码首先创建了一个TextDecoder对象，用于将当前编码格式的网页内容解码为UTF-8编码格式。然后通过对象的decode方法 进行解码，获取UTF-8编码格式的字符串。

1. 示例代码
   下面是一个完整的ASP（JavaScript）自动判断网页编码并转换的示例：

<%
Function HttpRequest(url)
    Dim xhr: Set xhr = Server.CreateObject("MSXML2.XMLHTTP")
    xhr.open "GET", url, False
    xhr.send

    If xhr.ReadyState = 4 And xhr.Status = 200 Then
        Dim responseText: responseText = xhr.ResponseText

        Dim regex: Set regex = New RegExp
        regex.Global = True
        regex.Pattern = "<meta.*charset=['""]?([a-zA-Z0-9\-_]+)['""]?.*>"
        Dim match: Set match = regex.Execute(responseText)
        Dim encoding
        If match.Count > 0 Then
            encoding = LCase(match.item(0).SubMatches.item(0))
        Else
            encoding = "utf-8"
        End If

        Dim decoder: Set decoder = Server.CreateObject("ADODB.Stream")
        decoder.Type = 2 ' adTypeText
        decoder.Charset = encoding
        decoder.Open
        decoder.WriteText responseText
        decoder.Position = 0
        responseText = decoder.ReadText(-1, True)
        decoder.Close

        HttpRequest = responseText
    Else
        HttpRequest = ""
    End If
End Function
%>

这个示例代码中使用了VBScript编写ASP代码，但是其中的JavaScript代码可以直接使用，不需要任何修改。在这里，我们首先定义了一个HttpRequest函数，用于获取指定URL的网页内容，并自动判断网页编码，并转换为UTF-8编码格式。在函数中，我们使用了RegExp和ADODB.Stream对象来实现自动判断编码和转换编码。在最后，我们将转换后的字符串返回，供后续操作使用。

1. 示例
   最后，我们给出另一个使用JavaScript实现的自动判断网页编码并转换的示例代码，供参考：

var xhr = new XMLHttpRequest();
xhr.open('GET', 'http://www.example.com/', true);
xhr.onreadystatechange = function() {
    if (xhr.readyState === 4 && xhr.status === 200) {
        var responseText = xhr.responseText;

        var regex = /<meta.*charset=['"]?([a-zA-Z0-9\-_]+)['"]?.*>/gi;
        var match = regex.exec(responseText);
        var encoding = match ? match[1].toLowerCase() : null;
        if (!encoding) {
            encoding = "utf-8";
        }

        var decoder = new TextDecoder(encoding);
        var utf8Text = decoder.decode(responseText);

        // 输出转换后的内容
        console.log(utf8Text);
    }
};
xhr.send();