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.(一般企业里,跟你们交付软件接触得最多的是她们)

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

仓酷云

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。