<%response.buffer=true
response.expires=0
%>
<% dim x,n
n=0
mail=request.form("mail")
if mail="" then
response.write"怎么是空的啊?"
else
lat=false
ldot=false
for x=2 to len(mail)
if mid(mail,x,1)="@" and len(mail)>5 then
lat=true
else n=n+1
end if
if mid(mail,x,1)="." then
ldot=true
else n=n+1
end if
next
if n>40 then
response.write"你输入错误已经达到最大! <br><a href='javascript:history.back()'>返回</a>"
response.end
elseif lat=true and ldot=true then
response.write"<center>你输入的是正确的形式!"&mail&"</center>"
else
response.write"<center>你输入的形式错误!</center>"
end if
end if
%><body>
<div align="center"><br>
<a href="javascript:history.back()">返回</a>
</div>
</body>