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

如何正確顯示數(shù)據(jù)庫(kù)里同時(shí)存在的GB碼和BIG5碼?

 更新時(shí)間: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)文章

最新評(píng)論

广昌县| 宝山区| 鄂尔多斯市| 云和县| 湖南省| 监利县| 阿巴嘎旗| 衡阳县| 林州市| 淮北市| 太原市| 河池市| 永丰县| 北川| 泾阳县| 茌平县| 无极县| 兴化市| 九龙坡区| 新密市| 青浦区| 保康县| 大姚县| 虎林市| 克东县| 方城县| 绥宁县| 鸡泽县| 漠河县| 靖边县| 石棉县| 凉山| 衡东县| 修水县| 达拉特旗| 镇原县| 邹平县| 林周县| 明溪县| 松潘县| 旬阳县|