站內搜尋:Yahoo搜尋的結果,如果沒有給完整的網址,請在站內再搜尋一次!

2013-10-13

如何用ASP(vbscript)檢查所輸入的中文字,是否包含沒有Big5編碼的其他中文字?

先來看一下,以下的這個範例及執行後輸出的內容:


上述程式碼輸出的內容如下:
他=-23220
是=-21425
游=-19227
錫=-16388
?=63
嗎=-18724
?=63
還=-15911
是=-21425
王=-23299
建=-21544
?=63
啊=-20262
!=33

堃、煊是沒有Big5對應編碼的中文字,所以在Big5編碼的網頁下,會出現?(問號),ASCII的編碼是63,範例中也使用了?(問號),ASCII的編碼當然也是63,所以這裡給判斷輸入在頁面上的文字內容是否沒有Big5對應編碼的中文字,下了個規則:如果原輸入中文單字不是?(問號),但輸出結果的ASCII值等於63,這個中文單字就是沒有Big5編碼對應的其他中文字 ...
範例程式碼如下:
function CheckUnicode(strContent)
        dim intErr        //偵錯記號,0表示正常,1表示存在Big5以外的中文字
        intErr = 0
   
        For i=1 To len(strContent)
                If asc(mid(strContent,i,1))=63 And (mid(strContent,i,1)<>"?") Then
                        intErr = 1
            exit for
                end If
        Next
        if intErr = 1 then
                'CheckUnicode = "第" & i & "個字【" & mid(strContent,i,1) & "】:是Big5以外的中文字, 請調整!!" & vbCrlf
        else
                CheckUnicode = ""
        end if
end function

沒有留言:

張貼留言