<html>
<head>
<title>客户信息</title>
<script language=vbscript>
<!--
sub tijiao_onclick()
dim login
set login=document.validform
if login.userid.value="" then
msgbox "为了更好的为您服务，请输入您的名字"
login.userid.select
exit sub
end if
if len(login.userid.value)<3 then
msgbox "用户名太短，请选择一个长度大于3的名字"
login.userid.select
exit sub
end if
if instr(trim(login.userid.value)," ")>1 then
msgbox "用户名中请不要加入空格"
login.userid.select
exit sub
end if
if len(login.userpw.value)<4 then
msgbox "密码太短，请选择一个长度大于4的密码"
login.userpw.select
exit sub
end if
if login.userpw.value<>login.verifypw.value then
msgbox "确认密码和密码不同，请确认"
login.userpw.value=""
login.verifpw.value=""
login.userpw.select
exit sub
end if
if login.idnumber.value="" or not isnumeric(login.idnumber.value) or len(login.idnumber.value)<>15 and len(login.idnumber.value)<>18 then
msgbox "请正确输入您的身份证号码"
login.idnumber.select
exit sub
end if
if login.age.value="" then
msgbox "请正确输入您的年龄"
login.age.select
exit sub
else
if cint(login.age.value)<12 then
msgbox "年龄输入范围有错"
login.age.select
exit sub
end if
end if
if login.address.value="" then
msgbox "请输入您的详细联系地址"
login.address.select
exit sub
end if
if len(login.zipcode.value)<>6 or not isnumeric(login.zipcode.value) then
msgbox "邮政编码输入有误，请更正"
login.zipcode.select
exit sub
end if
dim pos,len_phone,lef,rig
if not login.phone.value="" then
if isnumeric(login.phone.value) then
if len(login.phone.value)<7 or left(login.phone.value,1)="-" or left(login.phone.value,1)="+" then
msgbox "电话号码输入有误"
login.phone.select
exit sub
end if
else
pos=instr(login.phone.value,"-")
len_phone=len(login.phone.value)
if pos>1 and pos<len_phone then
lef=left(login.phone.value,pos-1)
rig=right(login.phone.value,len_phone-pos)
if not isnumeric(lef) or not isnumeric(rig) or len(rig)<5 then
msgbox "电话号码输入有误"
login.phone.select
exit sub
end if
else
msgbox "电话号码输入有误"
login.phone.select
exit sub
end if
end if
else
msgbox "请输入电话号码"
exit sub
end if
if login.email.value="" then
msgbox "为了与您方便的联系，请输入E-mail地址"
login.email.select
exit sub
else
if not right(login.email.value,4)=".com" and not right(login.email.value,4)=".net" and not right(login.email.value,3)=".cn" or instr(login.email.value,"@")<=1 or instr(login.email.value,"@.") then
msgbox "为了与您方便的联系，请输入E-mail地址"
exit sub
end if
end if
login.tijiao
end sub
-->
</script>
</head>
<body>
<h2>客户信息</h2><hr>
<form name="validform">
用户名：
<input name="userid" type="text">
<br>
密码：
<input name="userpw" type="text">
<br>
确认密码：
<input name="verifypw" type="text">
<br>
身份证号码：
<input name="idnumber" type="text">
<br>
年龄：
<input name="age" type="text">
<br>
详细联系地址：
<input name="address" type="text">
<br>
邮政编码：
<input name="zipcode" type="text">
<br>
电话号码：
<input name="phone" type="text">
<br>
E-mail:
<input name="email" type="text">
<br>
<input name="tijiao" type="button" value="提交">
</br>
</form>
</body>
</html>
.rar （1个子文件） 
4实训.txt 3KB资源评论
cao爱上音乐2013-11-13有点鸡肋..TXT文档里面的内容很乱，代码拷进eclipse根本没反应- sin_lism2013-08-05基本就是静态网页上编辑，没什么值得学习的，不能实现用户登录的功能，给个差评吧，望改进
- shuai5322097202012-11-30感谢!有没有适合初学者的。看不懂。不过还是要谢谢楼主的！
- redyn2012042012-12-11就是提示界面不是想要的 学习了 谢谢
liuli_fo
- 粉丝: 0
- 资源: 2
最新资源
- 计算机基础知识及应用技术总结
- 计算机语言学中Linux 安装 mysql
- 基于百度飞桨PaddleOCR的C++代码修改并封装的.NET的OCR工具本地类库，可离线使用 包含文本识别、文本检测、表格识别
- image_download_1730618390553.jpg
- 全新高通平台SN修改写号
- C++实现WebService协议客户端
- C#ASP.NET复印店销售收银系统源码数据库 SQL2008源码类型 WebForm
- 设备第二次考核.zip
- 【重磅，更新！】全国31省份各省级城市和农村基尼系数测算面板数据(1989-2022年)
- PMSM Electrical Parameters Measurement by: Viktor Bobek
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
