以前写的一些老的验证脚本
用来 检验表单内容是否符合要求 的一些个VBScript脚本
//**********************************************************************
//* 文件名:dbscheck.vbs *
//* 功能:检验表单内容是否符合要求 *
//* Language:VbScript Version 1.0 *
//* CopyRight By dingbaosheng, Edit 2001-10-15. *
//* 引用时请不要删去以上文字,谢谢合作... *
//*********************************************************************
function IsCard(val)
if (val.value="")or(isnull(val.value))or(isempty(val.value)) then
Msgbox "请输入您的身份证号码!",48+0,"没有输入内容"
val.Select
IsCard=false
ElseIf Not IsNumeric(val.value) then
Msgbox "身份证号码必须为数字,请输入正确的身份证号码,注意不要有空格!",64+0,"错误身份证号码"
val.Select
IsCard=false
ElseIf (len(val.value)<15)or(len(val.value)>18)or(len(val.value)=16)or(len(val.value)=17) then
Msgbox "请输入正确的身份证号码,注意不要有空格!",64+0,"身份证号码位数不对"
val.Select
IsCard=false
else
IsCard=true
end if
end function
function IsAddress(val)
BadChar="><,[]{}?/+=|//'/:;~!@#$%^&`"
CharNum=len(val.value)
CheckChar=val.value
for i=1 to CharNum
OneChar=mid(CheckChar,i,1)
if (instr(BadChar,OneChar)>0)or(OneChar=Chr(34)) then
Msgbox "联系地址中不能包含非法字符 "&BadChar,64+0,"联系地址有错"
val.Select
IsAddress=false
exit for
else
IsAddress=true
end if
next
end function
function IsTel(val)
if (val.value="")or(isnull(val.value))or(isempty(val.value)) then
Msgbox "请输入您的电话号码!",48+0,"没有输入内容"
val.Select
IsTel=false
else
if instr(val.value,"-")<1 then
Msgbox "请用分隔符号-将区号和电话号码隔开!如:0459-6286001",48+0,"格式不对"
val.Select
IsTel=false
else
tel=split(val.value,"-")
for i=0 to ubound(tel)
if Not isNumeric(tel(i)) then
Msgbox "请输入正确的电话号码!除了分隔符'-'外,注意不要带有其他非法字符.",64+0,"错误电话号码"
val.Select
IsTel=false
exit for
else
IsTel=true
end if
next
end if
end if
end function
function IsEmail(val)
if Not((instr(val.value,"@")>0)and(instr(val.value,".")>0)and(len(val.value)>4)) then
Msgbox "请输入正确的电子信箱地址!",64+0,"错误的E_MAIL地址"
val.Select
IsEmail=false
else
BadChar="><,[]{}?/+=|//'/:;~!#$%^&`"
CharNum=len(val.value)
CheckChar=val.value
for i=1 to CharNum
OneChar=mid(CheckChar,i,1)
if (instr(BadChar,OneChar)>0)or(OneChar=Chr(34)) then
msgbox " 请注意了,E_mail地址中只能包含如下字符:"&chr(13)&"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789.-_@",64+0,"电子信箱错了"
val.Select
IsEmail=false
exit for
else
IsEmail=true
end if
next
end if
end function
function IsBrith(val)
dbs=true
if instr(val.value," ")>0 then
Msgbox "请输入正确的出生日期!注意不要带有空格符",64+0,"错误的生日"
val.Select
IsBrith=false
dbs=false
elseif (len(val.value)<>10)or(instr(val.value,"-")<0) then
Msgbox "请输入正确的出生日期!年月日之间用-隔开,"&chr(13)&"月份或天数不足两位数请以0补足两位数."&chr(13)&"如:1978-06-14,1978-12-01.",64+0,"生日位数不足"
val.Select
IsBrith=false
dbs=false
else
BrithDay=split(val.value,"-")
for i=0 to ubound(BrithDay)
if Not isNumeric(BrithDay(i)) then
Msgbox "出生日期不对,请检查是否您输入的出生日期中除了分隔符'-'外,还带有其他字符!",64+0,"生日中含有非法字符"
val.Select
IsBrith=false
dbs=false
exit for
end if
next
end if
if dbs then
if (CInt(left(val.value,4))>=year(date())) then
Msgbox "出生日期不对,您不能输入一个未来的日期!",64+0,"您还未出生吗? 别逗了^_^"
val.Select
IsBrith=false
elseif (year(date())-CInt(left(val.value,4))>100) then
passNum=msgbox("您可真是老当益壮啊,您真的这么大年纪么?",64+1,"请确认")
if passNum=1 then
IsBrith=true
else
msgbox "请修改您的出生年月!",64+0,"谢谢合作."
val.Select
IsBrith=false
end if
else
IsBrith=true
end if
end if
end function
function IsProperDate(val)
if isDate(trim(val.value)) then
IsProperDate=true
else
msgbox "请输入一个有效的日期.",64+0,"日期无效."
val.select
IsProperDate=false
end if
end function
function IsUrl(val)
if instr(val.value,"://")>0 then
BadChar="><,[]+|//'/;~!$*@^`"
url=true
CharNum=len(val.value)
CheckChar=val.value
for i=1 to CharNum
OneChar=mid(CheckChar,i,1)
if (instr(BadChar,OneChar)>0)or(OneChar=Chr(34)) then
msgbox "网址中包含非法字符 "&BadChar&chr(13)&"请输入正确的网址,形式如:http://dbs.myrice.com",64+0,"网址错啦."
val.select
IsUrl=false
exit for
else
IsUrl=true
end if
next
else
msgbox "请输入正确的网址,形式如:http://dbs.myrice.com",64+0,"网址错啦."
val.select
IsUrl=false
end if
end function
function IsBP(val)
if instr(val.value,"-")<1 then
Msgbox "请用分隔符号-将台号和BP机号码隔开!如:198-6286001",48+0,"格式不对"
val.Select
IsBP=false
else
BP=split(val.value,"-")
for i=0 to ubound(BP)
if Not isNumeric(BP(i)) then
Msgbox "请输入正确的BP机号码!注意除了分隔符'-'外,不要带有其他字符.",64+0,"错误BP机号码"
val.Select
IsBP=false
exit for
else
IsBP=true
end if
next
end if
end function
以前写的一些老的验证脚本相关推荐
- 教你用Python写一个京东自动下单抢购脚本(Python实现京东自动抢购)
很多朋友都有网购抢购限量商品的经历,有时候蹲点抢怎么也抢不到,今天小编带你们学习怎么用Python写一个京东自动下单抢购脚本,以后再也不用拼手速拼网速啦,快来一起看看吧 1 问题背景 经过无数次抢购失 ...
- python传奇自动打怪脚本_简单挂如何设置定时传奇挂机自动打怪过验证脚本
自从简单挂上线定时功能之后得到了很多用户的喜爱,当然也有很多一部分用户不知道该如何使用这个定时脚本.之前简单挂官网也跟大家强调过了,定时脚本不能执行带打怪动作的脚本,否则会容易混乱,现在教下大家如何用 ...
- [js] 写一个方法,实时验证input输入的值是否满足金额如:3.56(最多只有两位小数且只能数字和小数点)的格式,其它特殊字符禁止输入
[js] 写一个方法,实时验证input输入的值是否满足金额如:3.56(最多只有两位小数且只能数字和小数点)的格式,其它特殊字符禁止输入 <body><input type=&qu ...
- 便携式三星mysql_三星集团某站点MySQL盲注一枚(附python验证脚本)
漏洞概要 缺陷编号:WooYun-2014-082219 漏洞标题:三星集团某站点MySQL盲注一枚(附python验证脚本) 相关厂商:三星集团 漏洞作者:lijiejie 提交时间:2014-11 ...
- AutoHotKey写一个改键的小脚本
应D君邀请写一个小的改键软件,用了一上午选择使用的脚本语言,下午开始去写.晚饭的时候,基本的功能完成了.先所说我要完成的脚本的功能吧.软件有一定编程基础的D君用,用户比较特定,功能越简单越好.因此,软 ...
- python秒数转化为时间用户jianpang_Python写了个域名注册查询脚本,支持自定义数字,字母,拼音组合以及域名长度....
Python写了个域名注册查询脚本,支持自定义数字,字母,拼音组合以及域名长度. python版本3.5,需要安装requests, lxml库 1.[代码][Python]代码 import req ...
- 【电子邮件提醒】用python写个能发邮件的脚本
[电子邮件提醒]用python写个能发邮件的脚本 文章目录 [电子邮件提醒]用python写个能发邮件的脚本 邮箱使用 使用python发邮件 封装一个发邮件的类 发邮件类 使用说明 前言 : 使用p ...
- 写了一个播放quic的脚本,其他文件单独上传
写了一个播放quic的脚本 import com.jd.forcebot.toolkit.parameterized.latest.AsciiFileAccessArbitrarily; import ...
- 为了帮学姐完成了钢琴家梦想,我用Python写了一个自动弹钢琴脚本,轻松弹奏出《天空之城》
人生苦短,我用Python 絮叨絮叨 效果展示 功能实现 代码实现 准备演奏 絮叨絮叨 事情是这样的,学姐马上要毕业了,前两天跟我彻夜长谈,还说自己一直有个钢琴家的梦想. 这不为了帮学姐圆梦,在我经过 ...
最新文章
- 快过HugeCTR:用OneFlow轻松实现大型推荐系统引擎
- 通信网络设计(最小生成树+图的联通)
- Python 之父:救救中国程序员
- 如何根据字典中值的大小,对字典中的项排序
- Java设计模式(六):命令设计模式
- mysql数据库建新分区_mysql数据库分区
- python做成绩表_自学Python笔记:用Python做成绩分析(2)
- 给定圆的半径r,求圆的面积。
- 修改telnet提示并非_俊翔:修改ECU数据解除奔驰GL350尿素限制
- Android实战经验之图像处理及特效处理的集锦
- Java的多线程机制系列:(四)不得不提的volatile及指令重排序(happen-before)
- Ibatis.Net 数据库操作(四)
- JAVA minaio模型_Mina的线程模型
- USB转TTL设备驱动不能使用
- PhotoScissors 6 for Mac(mac抠图软件)
- 《特征工程入门与实践》读书笔记一
- 非线性优化中的KTT条件(知乎文章的理解)
- 理财项目中宏涌晟五个投资理财基础知识
- 一条简单的sql语句导致的系统问题(r4笔记第51天)
- 在linux上运行python脚本(安装pytorch踩坑记录,pyinstaller使用方式,构建docker镜像)
热门文章
- RT-Thread学习笔记五——临界区与临界区保护
- Fetion 操作台
- console常用方法
- 特斯拉2021年自动驾驶,特斯拉自动驾驶技术专利
- 【JVM进阶之路】内存结构(一)
- 全志A10s datasheet,A10s 数据手册,A10s规格书
- linux,rpm, tar, gz, bz, bz2, rar, zip, lha, deb, 解压
- 领域驱动设计(DDD)实践之路(一)
- Google搜索命令“site:”运算符高级使用技巧:
- [BZOJ 1296][SCOI2009]粉刷匠