如何正確顯示數(shù)據(jù)庫里同時存在的GB碼和BIG5碼？
更新時間：2006年11月16日 00:00:00 作者：
Public Function CheckBIG(strSource As String) As Boolean
Dim idx As Long
Dim ByteTemp() As Byte
CheckBIG = False
For idx = 1 To Len(strSource)
ByteTemp = StrConv(Mid(strSource, idx, 1), vbFromUnicode)
If UBound(ByteTemp) > 0 Then
If (ByteTemp(1) >= 64) And (ByteTemp(1) <= 126) Then
CheckBIG = True
Exit For
End If
End If
Next idx
End Function
相關(guān)文章
如何編寫一個過濾掉HTML代碼的函數(shù)？...2006-11-11
如何防止未經(jīng)注冊的用戶繞過注冊界面直接進入應(yīng)用系統(tǒng)？
如何防止未經(jīng)注冊的用戶繞過注冊界面直接進入應(yīng)用系統(tǒng)？...2006-11-11
如何編寫翻頁函數(shù)？...2006-11-11
為什么用磁盤序列號加密過的代碼不能被復(fù)制安裝？...2006-11-11
問題解析：為什么數(shù)組下標(biāo)從0?開始而不是?1?？
這篇文章主要為大家介紹了為什么數(shù)組下標(biāo)是從0?開始而不是?1?呢的問題解析，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進步，早日升職加薪2023-04-04
如何提示用戶打開Cookie？...2006-11-11
如何實現(xiàn)在下拉菜單里輸入文字？...2006-11-11
如何利用數(shù)據(jù)庫內(nèi)容建立一個下拉式列表？
如何利用數(shù)據(jù)庫內(nèi)容建立一個下拉式列表？...2006-11-11
如何實現(xiàn)文件上傳并自動歸類功能？...2006-11-11
如何在網(wǎng)站中插播廣告？...2006-11-11