- 用ASP学做一个在线调查
- 检测整数和长整数的函数
- ASP进阶之文章在线管理更新(2)
- SQL Server中单引号的两种处理技巧
- 制作我们自己的Ebay(拍卖系统)(5)
- XMLHTTP(readyState,status)对应的状态值
- SQL注入程序带来的攻击及防范
- 如何用SAFileUp上传文件？
- XML、Web服务和.NET框架(1)
- 不用java的垂直滚动看板
- 用ASP+XML打造留言本(1)
- Microsoft .NET 框架常见问题（二）
- ASP无惧缓存类 V1.0
- ASP常用函数:CheckBoxScript()
- 从Access数据库恢复BMP图像并显示在WEB页面(microsoft)
- 关于JMAIL如何在收件人处指定多个收件人
- Microsoft 脚本编码器(1) --- 概述
- 一条sql 语句搞定数据库分页
- ASP学习:urldecode 方法补遗
- 深入讲解 ASP+ 验证（三）
- 关于页面缓存清除的方法小结
- 配置ＩＩＳ４实现应用程序隔离
- ASP系列讲座（七）使用组件和对象
- 域名是如何被“劫持”的
- Webservice调用方式
- 通过事例学习.net的WebForms技术(三)
- VPN技术详解(上)
- 输出到html页面的字符串的格式化
- 使用ASP调用C#写的COM组件
- ASP程序中使用断开的数据记录集
检查字符串strSource是否为big或big5码
作者：佚名 ASP网站建设编辑：admin 更新时间：2022-07-23
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
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
- 上一篇文章： ASP限制只能中文输入的方法
- 下一篇文章： 避免asp的SQL的执行效率低