网络编程
位置:首页>> 网络编程>> Asp编程>> 判断数据库里存在的BIG5码

判断数据库里存在的BIG5码

  发布时间:2009-04-09 18:31: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

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com