搞清楚文本文件的编码很重要，尤其是网页文件，如果编码设置得不正确，浏览的人将会看到的是乱码。当然，这里的编码主要是指中文。常见的中文编码有UTF-8、Unicode、GB2312等，我们这里有一个VBScript脚本来检测文件的编码格式。

'检测文件的编码格式，可检测的类型有：UTF-8、Unicode、GB2312

'测试调用
Msgbox GetFileEncoding("D:\test.asp")

'检测函数
Function GetFileEncoding(filePath)
       Dim adoStream, binHeader
       Set adoStream=createobject("ADODB.Stream")
       adoStream.Type=1
       adoStream.mode=3
       adoStream.open
       adoStream.Position=0
       adoStream.LoadFromFile filePath
       binHeader=adoStream.read(2)
       If AscB(MidB(binHeader, 1, 1))=&HEF And AscB(MidB(binHeader, 2, 1))=&HBB Then
               GetFileEncoding="UTF-8"
       ElseIf AscB(MidB(binHeader, 1, 1))=&HFF And AscB(MidB(binHeader, 2, 1))=&HFE Then
               GetFileEncoding="Unicode"
       Else
               GetFileEncoding="GB2312"
       End If
       adoStream.Close : Set adoStream=Nothing
End Function