一些经常会用到的vbscript检测函数

最新推荐文章于 2021-05-19 06:24:08 发布
最新推荐文章于 2021-05-19 06:24:08 发布
阅读量810 收藏 1
点赞数
分类专栏： ASP 文章标签： vbscript function 正则表达式 电话 手机
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/fzzf/article/details/528567
版权
'----------------------------------------------------------------------------------------------------
' Function Name : Length
' Function Desc : 返回字符串的实际长度, 一个汉字算2个长度
'----------------------------------------------------------------------------------------------------
Public Function Length(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "[^/x00-/xff]"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
Length = Len(oRegExp.Replace(sInput, "**"))

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidDate
' Function Desc : 判断输入是否是有效的短日期格式 - "YYYY-MM-DD"
'----------------------------------------------------------------------------------------------------
Public Function IsValidDate(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^/d{4}-/d{2}-/d{2}$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
If oRegExp.Test(sInput) Then
IsValidDate = IsDate(sInput)
Else
IsValidDate = False
End If

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidTime
' Function Desc : 判断输入是否是有效的时间格式 - "HH:MM:SS"
'----------------------------------------------------------------------------------------------------
Public Function IsValidTime(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^/d{2}:/d{2}:/d{2}$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
If oRegExp.Test(sInput) Then
IsValidTime = IsDate(sInput)
Else
IsValidTime = False
End If

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidEmail
' Function Desc : 判断输入是否是有效的电子邮件
'----------------------------------------------------------------------------------------------------
Public Function IsValidEmail(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^/w+((-/w+)|(/./w))*/@[A-Za-z0-9]+((/.|-)[A-Za-z0-9]+)*/.[A-Za-z0-9]+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidEmail = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidDatetime
' Function Desc : 判断输入是否是有效的长日期格式 - "YYYY-MM-DD HH:MM:SS"
'----------------------------------------------------------------------------------------------------
Public Function IsValidDatetime(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^/d{4}-/d{2}-/d{2} /d{2}:/d{2}:/d{2}$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
If oRegExp.Test(sInput) Then
IsValidDatetime = IsDate(sInput)
Else
IsValidDatetime = False
End If

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidInteger
' Function Desc : 判断输入是否是一个整数
'----------------------------------------------------------------------------------------------------
Public Function IsValidInteger(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^(-|/+)?/d+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidInteger = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidPositiveInteger
' Function Desc : 判断输入是否是一个正整数
'----------------------------------------------------------------------------------------------------
Public Function IsValidPositiveInteger(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^(/+)?/d+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidPositiveInteger = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidNegativeInteger
' Function Desc : 判断输入是否是一个负整数
'----------------------------------------------------------------------------------------------------
Public Function IsValidNegativeInteger(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^-/d+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidNegativeInteger = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidNumber
' Function Desc : 判断输入是否是一个数字
'----------------------------------------------------------------------------------------------------
Public Function IsValidNumber(sInput)

IsValidNumber =  IsNumeric(sInput)

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidLetters
' Function Desc : 判断输入是否是一个由 A-Z / a-z 组成的字符串
'----------------------------------------------------------------------------------------------------
Public Function IsValidLetters(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^[a-zA-Z]+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidLetters = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidDigits
' Function Desc : 判断输入是否是一个由 0-9 组成的数字
'----------------------------------------------------------------------------------------------------
Public Function IsValidDigits(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^[1-9][0-9]*$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidDigits = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidAlphanumeric
' Function Desc : 判断输入是否是一个由 0-9 / A-Z / a-z 组成的字符串
'----------------------------------------------------------------------------------------------------
Public Function IsValidAlphanumeric(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^[a-zA-Z0-9]+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidAlphanumeric = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidString
' Function Desc : 判断输入是否是一个由 0-9 / A-Z / a-z / . / _ 组成的字符串
'----------------------------------------------------------------------------------------------------
Public Function IsValidString(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^[a-zA-Z0-9/s./-_]+$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidString = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidPostalcode
' Function Desc : 判断输入是否是一个有效的邮政编码
'----------------------------------------------------------------------------------------------------
Public Function IsValidPostalcode(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^/d{6}$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidPostalcode = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidPhoneNo
' Function Desc : 判断输入是否是一个有效的电话号码
'----------------------------------------------------------------------------------------------------
Public Function IsValidPhoneNo(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "(^0/d{2,3}/-[1-9]/d{2,7}$)|(^[1-9]/d{2,7}$)|(^/(0[1-9]{2,3}/)[1-9]/d{2,7}$)"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidPhoneNo = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function

'----------------------------------------------------------------------------------------------------
' Function Name : IsValidMobileNo
' Function Desc : 判断输入是否是一个有效的手机号码
'----------------------------------------------------------------------------------------------------
Public Function IsValidMobileNo(sInput)

Dim oRegExp

'建立正则表达式
Set oRegExp = New RegExp

'设置模式
oRegExp.Pattern = "^0?13/d{9}$"
'设置是否区分字符大小写
oRegExp.IgnoreCase = True
'设置全局可用性
oRegExp.Global = True

'执行搜索
IsValidMobileNo = oRegExp.Test(sInput)

Set oRegExp = Nothing

End Function
fzzf
关注
专栏目录
网络攻防中黑客常用技术跨站脚本技术：DOM XSS高发场景透视及修复技巧、取值写入页面或动态执行、使用HTML5 postMessage进行跨域通讯、使用存在缺陷的第三方库或通用组件
代码讲故事
03-08 341
网络攻防中黑客常用技术跨站脚本技术：DOM XSS高发场景透视及修复技巧、取值写入页面或动态执行、使用HTML5 postMessage进行跨域通讯、使用存在缺陷的第三方库或通用组件。 DOM-Based XSS是一种基于文档对象模型(Document Object Model,DOM)的Web前端漏洞，简单来说就是JavaScript代码缺陷造成的漏洞。与普通XSS不同的是，DOM XSS是在浏览器的解析中改变页面DOM树，且恶意代码并不在返回页面源码中回显，这使我们无法通过特征匹配来检测DOM XSS
常用ASP+VBSCRIPT判断函数
xqf222的专栏
01-22 1423
Function IsValidQQNumber(QQString)判断QQ号码格式IsValidQQNumber=Trueif Len(QQString)12 thenIsValidQQNumber=Falseelsefor i = 1 to Len(QQString)   testchar = Lcase(Mid(QQString, i, 1))   if not IsNumeric(t
判定VBscript方法是否存在
weixin_33734785的博客
04-05 130
有时我们被逼在旧式IE下使用vbscript来模拟标准浏览器的一些高级特性，需要用到这个 <script type="text/VBScript"> function VBMethod(a,b) VBMethod = a + b end function ...
【案例】 今天还玩点不一样的，判断素数（VBScript 版）？
Jia ming 的日常学习笔记
09-19 367
哈哈哈，咱们继续看一个 VB 的小栗子。
判断某个字符串是否为数字
我的博客
06-08 1万+
判断某个字符串是否为数字，各个语言实现方法里不尽相同。在VBS中，IsNumeric()函数的实际作用是判断参数表达式是否是数值，而这个所谓的“数值”不仅仅包含普通的数字，还包括（但可能不限于）如下情况：　　科学计数法表达式，如“2e7”和“2d7”；　　十六进制数，如“&H0A”；　　八进制数，如“&6”；　　当前区域下设置的货币金额表达式，如“￥12.44”；　　加圆括号的数字，如“(34
VBS基础篇 - 数据类型
柚子茶0902
12-17 859
VBScript只有一种数据类型 ——Variant，它是根据上下文来判断是数字还是字符串。因为Variant是VBScript中唯一的数据类型，所以它也是VBScript中所有函数的返回值的数据类型。为了进一步区分数据类型，它包含如下数据子类型：   子类型 描述 Empty 未初始化的Variant。对于数值变量，值为0；对
c语言 strcpy函数实现,自己实现strcpy函数的实现方法
weixin_39560245的博客
05-19 1979
自己实现strcpy函数的实现方法复制代码 代码如下:#include#include using namespace std;void myStrcpy(char* Dest, const char *Src){assert((Dest!= NULL)&&(Src!=NULL));while((*Dest = *Src)!='\0'){Dest++;Src++;}}int mai...
ASP中常用到的函数，给大家分享
Gunter's Blog
07-25 793
//----------本站公用函数----------------//    *******************************************************    函数名：checkVb()    作  用：检测数据库操作否正确    参  数：无    返回值：true    --出错             false   --正确    *
javascript,VBScript关键字and保留字
10-08
保留字是指尚未用作关键字，但未来可能会被用到的词汇。例如，`abstract`、`boolean`、`byte`、`char`等，虽然在JavaScript中目前不是关键字，但不应作为变量名使用，以防未来版本中被定义为关键字。 VBScript ...
SecureCRT脚本编写方法.pdf
08-07
二、SecureCRT工具常用到的几个函数 SecureCRT提供了许多实用的函数，能够满足各种自动化操作的需求。 1. crt.Screen.WaitForString 该函数用于等待屏幕上的字符串，WaitForString 函数是单字符串判断，KeyString...
vba判断是否为数字的方法小集
热门推荐
miaozk2006的专栏
09-02 1万+
在VBA中，判断一个字符是否为数字的方法有很多。可以用isNumeric函数，也可以调用工作表isnumber函数，也可以用like运算符比较等 检查是否为数字   Sub s2()    Debug.Print VBA.IsNumeric(Range("a1"))    Debug.Print Application.WorksheetFunction.IsNumber(Range("A1...
Vbs 脚本编程简明教程之一
OxYGC
05-08 1万+
—为什么要使用 Vbs ？ 在 Windows 中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动 计算机第一件事情就是打开 WORD ，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某 些数据进行整理，把各式各样的数据按照某种规则排列起来……...
VBScript语法速查及实例说明
发现之旅
08-13 767
VBScript 函数 　　功能说明 　　例子 　　Abs （数值） 绝对值。一个数字的绝对值是它的正值。空字符串 (null) 的绝对值，也是空字符串。未初始化的变数，其绝对为 0 例子：ABS(-2000) 　　结果：2000 　　Array （以逗点分隔的数组元素） Array 函数传回数组元素的值。 例子： 　　A=Array(1,2,3)　　B=A(2)　　结果： 2　　说明：变量Ｂ为Ａ
判断是否为数字
smile_juan
03-21 1446
<br />1. 判断数字<br />第一种方式<br />var mem_value = frm.mem_id.value;<br />for(var i=0; i<mem_value.length; i++) { <br />if(mem_value.charAt(i)<'0'|| mem_value.charAt(i)>'9') { <br />alert("会员号只能是数字"); returnfalse; <br />} <br />}<br /><br /><br />第二种方式<b
判断字符串内容是否为数字
Donthan Space
12-14 1107
用正则表达式判断的例子 /// /// 判断是否是数字的一个函数 /// /// 传入的字符串 /// 返回是或否，布尔类型 public bool IsNumeric(string str) { Regex reg = new Regex("^[0-9]+$");
vba 判断是否为数字
weixin_30429201的博客
06-13 7648
1.先设置单元格为 保留2位小数。 2.判断单元格内容 Dim line1 as single Dim line2 as single If Cells(2,2).Value = "" Then 　　line1 = 0 Else 　　if Not IsNumeric(Cells(2, 2).Text) Then 　　　　MsgBox "Input Data Error!" ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值