ASP检查EMAIL问题大家帮帮忙呀？？？？

来源：百度知道 编辑：UC知道 时间：2024/06/01 02:30:38
为什么最后一个else先执行呀，
这是这段总是先执行，。我的意思是想在前面也能正确执行。执行之后还是要执行最后一个else.急呀！！！！！！
else
Response.Write"<Script Language='javaScript'>" &"alert('"&"Email地址不正确！"&"');"&" </SCRIPT>"

下面的全的代码，谢谢大家的帮忙呀！！！

<% zjp_email=Trim(Request.Form("siteemail"))
if IsValidemail(zjp_email)=true then

if Request.QueryString("Action")="edit" then
dim zjp_class,zjp_name,zjp_url,zjp_logo,zjp_info,zjp_email

ip=Request.serverVariables("REMOTE_ADDR")
zjp_name=Trim(Request.Form("sitename"))
zjp_class=Trim(Request.Form("siteclass"))
zjp_url=Trim(Request.Form("siteurl"))
zjp_logo=Trim(Request.Form("sitelogo"))
zjp_info=Trim(Request.Form("siteinfo"))
zjp_author=Trim(Request.Form("siteauthor"))

用于检测EMAIL。。。。。

<%
Function IsValidEmail(Email)
ValidFlag = False
If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then
atCount = 0
SpecialFlag = False
For atLoop = 1 To Len(Email)
atChr = Mid(Email, atLoop, 1)
If atChr = "@" Then atCount = atCount + 1
If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True
If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True
If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True
If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True
Next
If (atCount = 1) And (SpecialFlag = False) Then
BadFlag = False
tAry1 = Split(Email, "@")
UserName = tAry1(0)
DomainName = tAry1(1)
If (UserName = "") Or (DomainName = "") Then BadFlag = True
If Mi