用asp实现检测文件编码

发布：dxy 发布日期：2007-1-3 字体：[增加减小] 类型：转载

最近，在搞这个东西，网上也找不到asp相关的，如果有人很早弄出来了，也不要笑话偶；费了好久，总算搞定；
原理：用stream对象预读文件的头两个字节,分析判断出utf-8，unicode，ANSI(简体中文操作系统，即gb2312)编码
相关资料：

ANSI：　　　　　　　　无格式定义；
Unicode：　　　　　　前两个字节为FFFE；
Unicode big endian：　前两字节为FEFF；　
UTF-8：　　　　　　　前两字节为EFBB；

[复制此代码]CODE:

function checkcode(path)  
set objstream=server.createobject("adodb.stream")  
objstream.Type=1  
objstream.mode=3  
objstream.open  
objstream.Position=0  
objstream.loadfromfile path  
bintou=objstream.read(2)  
If AscB(MidB(bintou,1,1))=&HEF And AscB(MidB(bintou,2,1))=&HBB Then  
checkcoder="utf-8"  
ElseIf AscB(MidB(bintou,1,1))=&HFF And AscB(MidB(bintou,2,1))=&HFE Then  
checkcode="unicode"  
Else  
checkcode="gb2312"  
End If  
objstream.close  
set objstream=nothing  
end function