如何正确显示数据库里同时存在的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
相关文章
如何编写一个过滤掉HTML代码的函数？...2006-11-11
如何防止未经注册的用户绕过注册界面直接进入应用系统？...2006-11-11
如何编写翻页函数？...2006-11-11
为什么用磁盘序列号加密过的代码不能被复制安装？...2006-11-11
这篇文章主要为大家介绍了为什么数组下标是从0 开始而不是 1 呢的问题解析，有需要的朋友可以借鉴参考下，希望能够有所帮助，祝大家多多进步，早日升职加薪2023-04-04
如何提示用户打开Cookie？...2006-11-11
如何实现在下拉菜单里输入文字？...2006-11-11
如何利用数据库内容建立一个下拉式列表？...2006-11-11
如何实现文件上传并自动归类功能？...2006-11-11
如何在网站中插播广告？...2006-11-11
最新评论