检查字符串strSource是否为big或big5码

检查字符串strSource是否为big或big5码作者：佚名文章来源：不详点击数：更新时间：2005-1-30

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

网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）　　去网站高手技术论坛讨论...

文章录入：admin 责任编辑：admin 【发表评论】【告诉好友】【打印此文】【关闭窗口】
	上一篇文章： ASP包含文件方法详解下一篇文章：怎么样写一段高效，安全的sql查询代码