实验六、客户端验证.docVIP

PAGE  10-PAGE 5 实验十、客户端验证——人员信息登记 内容：很多时候我们都要对客户输入的数据进行合法行验证，在前面的例子中，我们都是在服务器端进行验证的，服务器端的验证是当用户提交数据到服务器后，对数据进行验证。服务器端验证缺点是速度慢，所以一般我们都会把数据验证放在客户端。本实验以“人员信息登记”为例，介绍如何在客户端对输入的数据进行验证，验证通过后把数据提交到服务器。 验证规则： 身份证：长度为15位或者18位，由数字及“*”组成。 姓名：不能为空 年龄：只允许输入数据 性别：只能输入“男”或者“女” E-mail:要包含“@”和“.”字符 步骤： 设计数据库。打开Access，按照如下要求建立表，表名称为InfoTbl，并将数据库保存为c:\asp\InfoDB.mdb。 字段名称类型长度说明SFZ字符18身份证号，关键字XM字符8姓名XB字符2性别NL整形年龄Email字符50电子邮件 设计界面。如图，注意各个控件的名称，其中两个单选按钮的名称相同，而选定值分别设置为“男”、“女”；文件保存为regedit.htm,将Action的值设置为“save.asp”。 名称：sex 名称：email 名称：Age 名称：CID 名称：Name 为了进行客户端验证，不能选择自动提交。我们点取“提交”按钮，进行如图属性设置：动作类型设置为“无”，按钮名称不能为“submit”，改成其他名称，如“okbtn”。 下面插入客户端脚本。将光标移到/head标签前，执行菜单“插入”-“脚本对象”-“脚本”。在弹出的对话框中选择VBScript脚本，并且输入如图代码：  上面代码先对姓名进行了验证，当验证通过后执行“form1.submit”提交数据。我们先测试上面程序。当不输入姓名提交数据时，出现如下图的提示。  我们再补充完成其他验证。我们查看Dreamweave源代码，在刚才插入脚本的地方找到script language=VBScript type=text/VBScript …… /script，参照下图，修改okbtn_onclick子程序。 script language=VBScript type=text/VBScript sub okbtn_onclick if trim(form1.name.value)= then msgbox 姓名不能为空 exit sub 退出 end if if len(form1.Cid.value)15 and len(form1.Cid.value)18 then msgbox 身份证应为15位或者18位 exit sub elseif not IsNumeric(replace(form1.cid.value,*,)) then msgbox 身份证数据不正确 exit sub end if if not IsNumeric(form1.age.value) then msgbox 年龄一栏请输入数字！ exit sub end if if instr(form1.email.value,@)=0 or instr(form1.email.value,.)=0 then msgbox e-mail输入错误！ exit sub end if form1.submit 提交数据 end sub /script 测试regedit.htm。当客户所输入的数据都符合我们所设定的规则是，数据就会提交给save.asp处理。下面我们来建立save.asp文件，因为只有符合规则的数据才会提交到服务器，所以在save.asp中我们就不必进行数据验证了。Save.asp代码如下： % DbPath = SERVER.MapPath(InfoDB.mdb) Set conn = Server.CreateObject(ADODB.Connection) conn.open driver={Microsoft Access Driver (*.mdb)};dbq= DbPath set rs=server.createobject(ADODB.recordset) rs.locktype=3 rs.open select * from InfoTbl,conn rs.addnew() rs(SFZ)=request.form(cid) rs(XM)=request.form(name) rs(XB)=request.form(sex) rs(NL)=request.form(age) rs(email