ASP网站制作之ASP判别E-Mail的正当性，和过滤邮箱字...
由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况；Loster(OICQ:181306)[假如转载请勿删除此信息，感谢！]函数名：chk_Email()
前往值：布尔值（True为经由过程，False为未经由过程）
参数：email(必要判别的email，范例：字符串)Type_1(是不是必要判别@以后的domain，范例：布尔值)
Type_2(是不是只能是特定域的E-Mail注册，范例：布尔值)Type_3(一个E-Mail是不是只能注册一次，范例：布尔值)
ConstC_maildomain=".com,.com.cn,.net,.net.cn,.org,.org.cn,.gov,.gov.cn,.edu,.edu.cn,.cn,.cc,.biz,.info"电子邮件可承受的domain
ConstC_Lockdomain="bit.edu.cn,loster.org"特定的域
Functionchk_Email(email,Type_1,Type_2,Type_3)
Dimi,k
DimAt
DimEmail_1,Temp
Ifemail=""Then
chk_Email=False
ExitFunction
EndIf
Email_1=Cstr(trim(email))
IfLen(Email_1)<5Then
chk_Email=False
ExitFunction
EndIf
At=False
Fori=1ToLen(Email_1)
Temp=Mid(Email_1,i,1)
IfTemp="@"Then
at=True
ExitFor
EndIf
Next
IfAt=FalseThen
Chk_Email=False
ExitFunction
EndIf
k=0
Fori=1ToLen(Email_1)
Temp=Mid(Email_1,i,1)
IfTemp="."then
k=k+1
EndIf
Next
Ifk=0Ork>2Then
Chk_Email=False
ExitFunction
EndIf
IfType_1=TrueThen
Fori=1ToLen(Email_1)
Temp=Mid(Email_1,i,1)
IfTemp="@"Then
k=i
ExitFor
EndIf
Next
Fori=kToLen(Email_1)
Temp=Mid(Email_1,i,1)
IfTemp="."Then
k=i
ExitFor
EndIf
Next
Temp=""
Fori=kToLen(Email_1)
Temp=Temp+Mid(Email_1,i,1)
Next
Temp=Cstr(Trim(Temp))
At=False
Fori=0ToR_Reader(C_Maildomain,",")
IfTemp=Reader(i)Then
At=True
ExitFor
EndIf
Next
EraseReader
IfAt=FalseThen
Chk_Email=False
ExitFunction
EndIf
EndIf
IfType_2=TrueThen
Fori=1ToLen(Email_1)
Temp=Mid(Email_1,i,1)
IfTemp="@"Then
k=i
ExitFor
EndIf
Next
Temp=""
Fori=k+1ToLen(Email_1)
Temp=Temp+Mid(Email_1,i,1)
Next
Temp=Cstr(Trim(Temp))
At=False
Fori=0ToR_Reader(C_Lockdomain,",")
IfTemp=Reader(i)Then
At=True
ExitFor
EndIf
Next
EraseReader
IfAt=FalseThen
Chk_Email=False
ExitFunction
EndIf
EndIf
IfType_3=TrueThen
Dimj
CallGreate_UserDb()
CallCreate_Rs("Select*fromUser_Basic_InfowhereUser_Email="&Email_1&"",1,1,"User")
IfRs.Bof=FalseThen
Chk_email=False
CallClose_Rs()
CallClose_UserDb()
ExitFunction
EndIf
CallClose_Rs()
CallClose_UserDb()
EndIf
chk_email=True
EndFunction
DimUser_Db,User_Driver
DimUser_Conn
User_Db="Data/userdata.mdb"
创建User_conn的历程
SubGreate_UserDb()
User_Driver="driver={MicrosoftAccessDriver(*.mdb)}"
User_Driver=User_Driver&";dbq="&server.mappath(User_Db)
Response.Write(User_Driver)
SetUser_Conn=Server.CreateObject("ADODB.Connection")
User_Conn.Open(User_Driver)
EndSub
封闭User_conn的历程
SubClose_UserDb()
User_Conn.Close
SetUser_Conn=Nothing
EndSub
DimReader
DimRs
读取常数，并将每一个常数保留在reader数组中，参数：R_Str(常数串)，F_Str(分开符)，前往值：Reader数组的下标
FunctionR_Reader(R_Str,F_Str)
Dimi
IfR_Str=""OrF_Str=""Then
ExitFunction
EndIf
Reader=Split(R_Str,F_Str)
Fori=0ToUbound(Reader,1)
Reader(i)=Cstr(Trim(Reader(i)))
Next
R_Reader=Ubound(Reader,1)
EndFunction
</p>使用filesystemobject，可以对服务器上的文件进行操作，浏览、复制、移动、删除等。有ado的支持，asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样，管理远程主机上的数据库，对表格、记录进行各种操作。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 掌握asp的特性而且一定要知道为什么。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。
页:
[1]