当前位置: 首页 > 图文教程 > 网络编程 > ASP > 检查字符串strSource是否为big或big5码

ASP
分享一段代码show.asp?id=26变成show/?26的形式
SQL存储过程初探
asp下载防盗链代码
解决ASP(图像)上传漏洞的方法
获取远程flash并保存到本地
多域名一网站时如果返回最原来的域名
一些值得一看的代码asp
[原创]完美解决ASP 不能更新。数据库或对象为只读。
5天学会asp
超精华的asp代码大全
用xmlhttp编写web采集程序
非常不错的flash采集程序测试通过
淘特ASP木马扫描器的代码
ASP编程入门进阶(一):安装配置服务器
ASP编程入门进阶(二):认识表单
6行代码实现无组件上传(author:stimson)
ASP编程入门进阶(七):内置对象Server
有关Server.Mappath详细接触
利用SA FileUp组件进行多文件上传
个性验证码的制作方法

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 38 ::
收藏到网摘: n/a

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