用asp實現(xiàn)檢測文件編碼
更新時間：2007年01月03日 00:00:00 作者：
最近，在搞這個東西，網(wǎng)上也找不到asp相關的，如果有人很早弄出來了，也不要笑話偶；費了好久，總算搞定；
原理：用stream對象預讀文件的頭兩個字節(jié),分析判斷出utf-8，unicode，ANSI(簡體中文操作系統(tǒng)，即gb2312)編碼
相關資料：
ANSI： 無格式定義；
Unicode： 前兩個字節(jié)為FFFE；
Unicode big endian： 前兩字節(jié)為FEFF；
UTF-8： 前兩字節(jié)為EFBB；
補充：
謝小雨提醒，先前的簡直是胡扯；ANSI的本地編碼，都是各國自己定義的，沒有固定的文件頭格式，在大陸中文操作系統(tǒng)下，是可讀的gb2312，在其他語言的系統(tǒng)下，就是亂碼，所以這部分沒必要再詳細區(qū)分
得到文件編碼，stream流就能按照需要的編碼打開，就不會亂碼了
原理：用stream對象預讀文件的頭兩個字節(jié),分析判斷出utf-8，unicode，ANSI(簡體中文操作系統(tǒng)，即gb2312)編碼
相關資料：
ANSI： 無格式定義；
Unicode： 前兩個字節(jié)為FFFE；
Unicode big endian： 前兩字節(jié)為FEFF；
UTF-8： 前兩字節(jié)為EFBB；
復制代碼 代碼如下:
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
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
補充：
謝小雨提醒，先前的簡直是胡扯；ANSI的本地編碼，都是各國自己定義的，沒有固定的文件頭格式，在大陸中文操作系統(tǒng)下，是可讀的gb2312，在其他語言的系統(tǒng)下，就是亂碼，所以這部分沒必要再詳細區(qū)分
得到文件編碼，stream流就能按照需要的編碼打開，就不會亂碼了
相關文章
asp實現(xiàn)樹型結構...2007-03-03
ASP將Excel數(shù)據(jù)導入到SQLServer的實現(xiàn)代碼
ASP將Excel數(shù)據(jù)導入到SQLServer的代碼,有點亂，大家根據(jù)需要自己查找下。2010-04-04
沒有完美的東西，所以有漏洞在所難免，漏洞產生后隨之而來的就是各種應對的招數(shù)，比如改數(shù)據(jù)庫的后綴、修改數(shù)據(jù)庫的名字等等。很多人以為只要這么做就可以解決問題了，但事實往往不如你我所愿，即使你這么做了也難逃被高手攻擊的命運。2015-04-04
下列代碼運行將出錯(不能為新插入的行確定標識),即新記錄不能為自己的另一個字段賦予新生成標識的值2008-10-10
asp ADO GetString函數(shù)與用GetString來提高ASP的速度
沒想到asp下有getstring這個東西,看樣子不熟悉這塊啊，以后考慮用這個，應該不錯，另外還有getrows等，都是asp下提高性能不錯的函數(shù)。2007-12-12
asp將table生成xls文件的實現(xiàn)代碼。2009-11-11
將首頁轉成靜態(tài)html頁的asp文件...2007-03-03
應用程序服務器被,或最終將被Web服務器所使用，它通常是運行 ASP 頁面的 IIS 計算機。ASP 是您的對象的唯一客戶機。它帶來了專門的線程和安全考慮，本文介紹ASP的開發(fā)準則，一起來看2015-10-10
ASP調用遠程XML數(shù)據(jù)的代碼(alexa排名數(shù)據(jù))
調用網(wǎng)易新聞的XML數(shù)據(jù)為例進行講解如果通過ASP遠程調取XML文件，并讀出數(shù)據(jù)。其實我們之前就使用了asp讀取alexa官方的數(shù)據(jù)。2011-09-09
最近在寫功能的時候需要判斷某個文件是否存在，存在則調用，不存在則動態(tài)顯示頁面的功能，用到了下面的代碼，特分享一下需要的朋友可以參考一下2020-09-09