仓酷云
标题:
ASP网页编程之一些常常会用到的vbscript检测函数
[打印本页]
作者:
谁可相欹
时间:
2015-1-16 22:13
标题:
ASP网页编程之一些常常会用到的vbscript检测函数
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊!vbscript|函数----------------------------------------------------------
FunctionName:Length
FunctionDesc:前往字符串的实践长度,一个汉字算2个长度
---------------------------------------------------------
PublicFunctionLength(sInput)
DimoRegExp
创建正则表达式
SetoRegExp=NewRegExp
设置形式
oRegExp.Pattern="[^x00-xff]"
设置是不是辨别字符巨细写
oRegExp.IgnoreCase=True
设置全局可用性
oRegExp.Global=True
实行搜刮
Length=Len(oRegExp.Replace(sInput,"**"))
SetoRegExp=Nothing
EndFunction
-----------------------------------------------------------------
FunctionName:IsValidDate
FunctionDesc:判别输出是不是是无效的短日期格局-"YYYY-MM-DD"
----------------------------------------------------------------
PublicFunctionIsValidDate(sInput)
DimoRegExp
创建正则表达式
SetoRegExp=NewRegExp
设置形式
oRegExp.Pattern="^d{4}-d{2}-d{2}$"
设置是不是辨别字符巨细写
oRegExp.IgnoreCase=True
设置全局可用性
oRegExp.Global=True
实行搜刮
IfoRegExp.Test(sInput)Then
IsValidDate=IsDate(sInput)
Else
IsValidDate=False
EndIf
SetoRegExp=Nothing
EndFunction
-------------------------------------------------------------
FunctionName:IsValidTime
FunctionDesc:判别输出是不是是无效的工夫格局-"HH:MM:SS"
--------------------------------------------------------------
PublicFunctionIsValidTime(sInput)
DimoRegExp
创建正则表达式
SetoRegExp=NewRegExp
设置形式
oRegExp.Pattern="^d{2}:d{2}:d{2}$"
设置是不是辨别字符巨细写
oRegExp.IgnoreCase=True
设置全局可用性
oRegExp.Global=True
实行搜刮
IfoRegExp.Test(sInput)Then
IsValidTime=IsDate(sInput)
Else
IsValidTime=False
EndIf
SetoRegExp=Nothing
EndFunction
---------------------------------------------------------
FunctionName:IsValidEmail
FunctionDesc:判别输出是不是是无效的电子邮件
---------------------------------------------------------
PublicFunctionIsValidEmail(sInput)
DimoRegExp
创建正则表达式
SetoRegExp=NewRegExp
设置形式
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)
SetoRegExp=Nothing
EndFunction
------------------------------------------------------------
FunctionName:IsValidDatetime
FunctionDesc:判别输出是不是是无效的永日期格局-"YYYY-MM-DDHH:MM:SS"
------------------------------------------------------------
PublicFunctionIsValidDatetime(sInput)
DimoRegExp
创建正则表达式
SetoRegExp=NewRegExp
设置形式
oRegExp.Pattern="^d{4}-d{2}-d{2}d{2}:d{2}:d{2}$"
设置是不是辨别字符巨细写
oRegExp.IgnoreCase=True
设置全局可用性
oRegExp.Global=True
实行搜刮
IfoRegExp.Test(sInput)Then
IsValidDatetime=IsDate(sInput)
Else
IsValidDatetime=False
EndIf
SetoRegExp=Nothing
EndFunction
----------------------------------------------------------------
FunctionName:IsValidInteger
FunctionDesc:判别输出是不是是一个整数
----------------------------------------------------------------
PublicFunctionIsValidInteger(sInput)
DimoRegExp
创建正则表达式
SetoRegExp=NewRegExp
设置形式
oRegExp.Pattern="^(-|+)?d+$"
设置是不是辨别字符巨细写
oRegExp.IgnoreCase=True
设置全局可用性
oRegExp.Global=True
实行搜刮
IsValidInteger=oRegExp.Test(sInput)
SetoRegExp=Nothing
EndFunction
-------------------------------------------------------------
FunctionName:IsValidPositiveInteger
FunctionDesc:判别输出是不是是一个正整数
-----------------------------------------------------------
PublicFunctionIsValidPositiveInteger(sInput)
DimoRegExp
创建正则表达式
SetoRegExp=NewRegExp
设置形式
oRegExp.Pattern="^(+)?d+$"
设置是不是辨别字符巨细写
oRegExp.IgnoreCase=True
设置全局可用性
oRegExp.Global=True
实行搜刮
IsValidPositiveInteger=oRegExp.Test(sInput)
SetoRegExp=Nothing
EndFunction
-------------------------------------------------------------
FunctionName:IsValidNegativeInteger
FunctionDesc:判别输出是不是是一个负整数
-------------------------------------------------------------
PublicFunctionIsValidNegativeInteger(sInput)
DimoRegExp
创建正则表达式
SetoRegExp=NewRegExp
设置形式
oRegExp.Pattern="^-d+$"
设置是不是辨别字符巨细写
oRegExp.IgnoreCase=True
设置全局可用性
oRegExp.Global=True
实行搜刮
IsValidNegativeInteger=oRegExp.Test(sInput)
SetoRegExp=Nothing
EndFunction
-------------------------------------------------------
FunctionName:IsValidNumber
FunctionDesc:判别输出是不是是一个数字
------------------------------------------------------
PublicFunctionIsValidNumber(sInput)
IsValidNumber=IsNumeric(sInput)
EndFunction
----------------------------------------------------------
FunctionName:IsValidLetters
FunctionDesc:判别输出是不是是一个由A-Z/a-z构成的字符串
----------------------------------------------------------
PublicFunctionIsValidLetters(sInput)
DimoRegExp
创建正则表达式
SetoRegExp=NewRegExp
设置形式
oRegExp.Pattern="^[a-zA-Z]+$"
设置是不是辨别字符巨细写
oRegExp.IgnoreCase=True
设置全局可用性
oRegExp.Global=True
实行搜刮
IsValidLetters=oRegExp.Test(sInput)
SetoRegExp=Nothing
EndFunction
----------------------------------------------------------
FunctionName:IsValidDigits
FunctionDesc:判别输出是不是是一个由0-9构成的数字
----------------------------------------------------------
PublicFunctionIsValidDigits(sInput)
DimoRegExp
创建正则表达式
SetoRegExp=NewRegExp
设置形式
oRegExp.Pattern="^[1-9][0-9]*$"
设置是不是辨别字符巨细写
oRegExp.IgnoreCase=True
设置全局可用性
oRegExp.Global=True
实行搜刮
IsValidDigits=oRegExp.Test(sInput)
SetoRegExp=Nothing
EndFunction
--------------------------------------------------------------
FunctionName:IsValidAlphanumeric
FunctionDesc:判别输出是不是是一个由0-9/A-Z/a-z构成的字符串
---------------------------------------------------------------
PublicFunctionIsValidAlphanumeric(sInput)
DimoRegExp
创建正则表达式
SetoRegExp=NewRegExp
设置形式
oRegExp.Pattern="^[a-zA-Z0-9]+$"
设置是不是辨别字符巨细写
oRegExp.IgnoreCase=True
设置全局可用性
oRegExp.Global=True
实行搜刮
IsValidAlphanumeric=oRegExp.Test(sInput)
SetoRegExp=Nothing
EndFunction
-------------------------------------------------------------
FunctionName:IsValidString
FunctionDesc:判别输出是不是是一个由0-9/A-Z/a-z/./_构成的字符串
-------------------------------------------------------------
PublicFunctionIsValidString(sInput)
DimoRegExp
创建正则表达式
SetoRegExp=NewRegExp
设置形式
oRegExp.Pattern="^[a-zA-Z0-9s.-_]+$"
设置是不是辨别字符巨细写
oRegExp.IgnoreCase=True
设置全局可用性
oRegExp.Global=True
实行搜刮
IsValidString=oRegExp.Test(sInput)
SetoRegExp=Nothing
EndFunction
-----------------------------------------------------------------
FunctionName:IsValidPostalcode
FunctionDesc:判别输出是不是是一个无效的邮政编码
----------------------------------------------------------------
PublicFunctionIsValidPostalcode(sInput)
DimoRegExp
创建正则表达式
SetoRegExp=NewRegExp
设置形式
oRegExp.Pattern="^d{6}$"
设置是不是辨别字符巨细写
oRegExp.IgnoreCase=True
设置全局可用性
oRegExp.Global=True
实行搜刮
IsValidPostalcode=oRegExp.Test(sInput)
SetoRegExp=Nothing
EndFunction
-------------------------------------------------------------------
FunctionName:IsValidPhoneNo
FunctionDesc:判别输出是不是是一个无效的德律风号码
-------------------------------------------------------------------
PublicFunctionIsValidPhoneNo(sInput)
DimoRegExp
创建正则表达式
SetoRegExp=NewRegExp
设置形式
oRegExp.Pattern="(^0d{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)
SetoRegExp=Nothing
EndFunction
--------------------------------------------------------------------
FunctionName:IsValidMobileNo
FunctionDesc:判别输出是不是是一个无效的手机号码
---------------------------------------------------------------------
PublicFunctionIsValidMobileNo(sInput)
DimoRegExp
创建正则表达式
SetoRegExp=NewRegExp
设置形式
oRegExp.Pattern="^0?13d{9}$"
设置是不是辨别字符巨细写
oRegExp.IgnoreCase=True
设置全局可用性
oRegExp.Global=True
实行搜刮
IsValidMobileNo=oRegExp.Test(sInput)
SetoRegExp=Nothing
EndFunction写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)
作者:
简单生活
时间:
2015-1-25 05:43
从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了
作者:
透明
时间:
2015-2-2 16:42
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
作者:
飘灵儿
时间:
2015-2-8 02:32
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
作者:
分手快乐
时间:
2015-2-24 02:20
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
作者:
小女巫
时间:
2015-3-7 10:31
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
作者:
因胸联盟
时间:
2015-3-15 00:43
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
作者:
仓酷云
时间:
2015-3-21 17:51
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
欢迎光临 仓酷云 (http://ckuyun.com/)
Powered by Discuz! X3.2