addteldo.asp

个人备忘系统一个不错的备忘软件.专供刚学ASP的人学习. 代码简单易懂 mymanage

<title>添加联系人</title><!--#include file="conn.asp"-->

<%
'---------------------------------获取表单值
nam=request.Form("name")         
tel=request.form("tel")          
pho=request.Form("pho")
mail=request.Form("mail")
add=request.Form("add")
qq=request.Form("qq")
bir=request.Form("bir")
grop=request.Form("grop")
if len(nam)>5  or len(nam)<2 then   '11
response.write("<script>alert('姓名为2-5个字');window.location.href('addtel.asp')</script>")
response.end 
end if   '11
if tel<>"" or  pho<>"" then '一条件
if tel<>"" then '二条件
if not isnumeric(tel) or len(tel)<>11 then  '三条件
response.write("<script>alert('手机号码只能为11位数字');window.location.href('addtel.asp')</script>")
response.end 
end if '三条件
end if '二条件
if pho<>"" then '四条件
if not isnumeric(pho) or len(pho)>12 or len(pho)<11  then '五条件
response.write("<script>alert('电话号码格式为：05963871XXX');window.location.href('addtel.asp')</script>")
response.end
end if  '五条件 
end if '四条件
else '------一条件分支
response.write("<script>alert('电话和手机最少填写一个');window.location.href('addtel.asp')</script>")
response.end
end if '一条件结束
'表单中电话号码验证
if bir<>"" then   '六条件
if not isdate(bir) then '七条件
response.write("<script>alert('生日填写出错,格式为:1984-4-8');window.location.href('addtel.asp')</script>")
response.end
end if '7条件结束
end if '8结束
if qq<>"" then  '9
if not isnumeric(qq) or len(qq)>9 or len(qq)<5 then   '10
response.write("<script>alert('QQ只能为5-9位数字');window.location.href('addtel.asp')</script>")
response.end
end if '9
end if  '10
'---------------------------------------------------------------------
set rs=server.CreateObject("adodb.recordset")     
cmd="select * from  tel where 姓名='"&nam&"'"
rs.open cmd,conn,1,3
if not rs.eof then    '判断是否已经帮在该联系人
response.write("<script>alert('已存在该联系人！');window.location.href('addtel.asp')</script>")
response.end
else
rs.addnew
rs("姓名")=nam
rs("手机")=tel
rs("电话")=pho
rs("Email")=mail
rs("地址")=add
rs("QQ")=qq
rs("生日")=bir
rs("组别")=grop
rs.update

rs.close
conn.close
set rs=nothing
set conn=nothing
response.write("<script>alert('添加联系人成功');window.location.href('addtel.asp')</script>")
end if
'_____________________________________________________________

%>