联系方式

站长:
联系人:赵先生
手机:18183869808

QQ 64816414
保健茶:

联系人:罗小姐

电话:15368244381

QQ 834856496

如何正确显示数据库里同时存在的GB码和BIG5码?
发布者:zaq 类型:杂器快贴 发布时间:2018-11-19 4:15:07 浏览:4407次 [回复] [查看回复]
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
源地址:http://www.zaqi.net/word_view.asp?files_id=1552
上一篇:他的爱让我支离破碎
下一篇:昨夜我想你!
回复主题回复者浏览回复时间
 如何让浏览器在https和http之间转化?zaq243002008-1-18
共1条  [1]  
零售:¥45元
零售:¥35元
批发:¥29元
零售:¥148元
零售:¥35元
杂器网络版权所有  免责声明