客家人客家网检查字符串strSource是否为big或big5码--天南地北客家人客家人的网上家园 | hakka 客家论坛客家网站山歌在线客家新闻客家风情客家聊天室免费电影软件下载中心客家算命源码编程技术

设为首页

加入收藏

繁體中文

首页 ┆ 客家风情 ┆ 客家影音 ┆ 山歌在线 ┆ 客家商城 ┆ 聊天室 ┆ 留言墙 ┆ 测字算命 ┆ 下载中心 ┆ IT 技术 ┆ 客家论坛

您当前的位置：客家网 | 天南地北客家人 -> IT 技术-> ASP -> 正文

退出登录

用户管理

栏目导航

· ASP	· JSP
· 网络安全	· NET专区
· XML专区	· PHP专区

热门文章

· ASP+JavaScript的完整的..
· [图文] 防范非法用户的侵..
· ASP从数据库中获取文件..
· 网络管理中的常用命令
· [图文] 千年虫二世诞生业..
· [图文] FSO组件操作实例..
· 网络常见木马的手工清除..
· 利用ASP远程获取内容
· [图文] 简单购物车教程
· 一个ASP（VBScript）简..
· asp常用数据库连接方法..
· 网络常见木马的手工清除..

· 检查当前目录下是否存在..
· XCodeFactory 强化静态检..
· 检查有日文片假名的新闻..
· 帮你检查网络安全

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

作者：佚名来源：动网发布时间：2007-8-30 12:59:17 发布人：Admin

减小字体增大字体

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

[] [返回上一页] [打印] [收藏]

上一篇文章：构建免受 FSO 威胁虚拟主机（一）

下一篇文章：无需数据库循环的无级分类代码

∷相关文章评论∷　　　（评论内容只代表网友观点，与本站立场无关！） [更多评论…]