最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

如何正確顯示數(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)文章

最新評論

红河县| 三台县| 确山县| 昔阳县| 肥西县| 罗平县| 黄陵县| 天水市| 阿尔山市| 江油市| 平塘县| 深泽县| 河北省| 乌兰浩特市| 平邑县| 宁波市| 兴安盟| 手游| 武威市| 延长县| 黄梅县| 烟台市| 托克托县| 微博| 临夏县| 石嘴山市| 金阳县| 永定县| 响水县| 景东| 栾川县| 长治市| 天峨县| 大石桥市| 甘谷县| 获嘉县| 柯坪县| 遂川县| 偏关县| 吉首市| 台中市|