你如何正确显示GB码和BIG5码存在于数据库中的同一时间

公共函数的CheckBIG（strsource字符串）作为布尔
昏暗的IDX长
Dim ByteTemp（）字节
checkbig = false
对于IDX = 1 Len（strsource）
bytetemp = StrConv（MID（strsource，编号，1），vbfromunicode）
如果UBound（bytetemp）> 0
如果（ByteTemp（1）或64（bytetemp）和（1）然后< = 126）
checkbig =真
退出
最后如果
最后如果
下一个编号
端功能