ASP网页编程之判别Email地点是不是无效
只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天在用ASP编写页面时，假如触及到邮件发送，一样平常会请求输出Email地点。毛病的Email地点常常带来很多不用要的贫苦，用上面的函数IsValidEmail就可以判别出一个Email地点是不是无效。函数源代码：
<%
FunctionIsValidEmail(Email)
ValidFlag=False
If(Email"")And(InStr(1,Email,"@")>0)And(InStr(1,Email,".")>0)Then
atCount=0
SpecialFlag=False
ForatLoop=1ToLen(Email)
atChr=Mid(Email,atLoop,1)
IfatChr="@"ThenatCount=atCount+1
If(atChr>=Chr(32))And(atChr<=Chr(44))ThenSpecialFlag=True
If(atChr=Chr(47))Or(atChr=Chr(96))Or(atChr>=Chr(123))ThenSpecialFlag=True
If(atChr>=Chr(58))And(atChr<=Chr(63))ThenSpecialFlag=True
If(atChr>=Chr(91))And(atChr<=Chr(94))ThenSpecialFlag=True
Next
If(atCount=1)And(SpecialFlag=False)Then
BadFlag=False
tAry1=Split(Email,"@")
UserName=tAry1(0)
DomainName=tAry1(1)
If(UserName="")Or(DomainName="")ThenBadFlag=True
IfMid(DomainName,1,1)="."thenBadFlag=True
IfMid(DomainName,Len(DomainName),1)="."thenBadFlag=True
ValidFlag=True
EndIf
EndIf
IfBadFlag=TrueThenValidFlag=False
IsValidEmail=ValidFlag
EndFunction
%>
用法举例：
IsValidEmail("my_263_email@263.net")前往Ture
IsValidEmail("zh99wj@tonghua.com.cn")前往Ture
IsValidEmail("myemail263.net")前往False
IsValidEmail("my_263_email@263)前往False
请注重，函数只是判别Email地点格局是不是无效，但其实不能反省该地点是不是的确存在。写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们) 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 Session:这个存储跟客户端会话过程的数据，默认20分钟失效 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。
页:
[1]