身份证查询系统.docVIP

_精品资料专业：计算机科学与技术系 系（班） 姓名：课程名称：动态网页制作 实验项目：身份证查询系统 实验类型：综合型实验地点：软三实验室 时间： 指导老师：学号：一、实验目的及要求 1.目的：（1）熟练掌握VBScript脚本语言 （2）熟练掌握VBScript流程控制语句、函数和子函数 （3）熟练掌握VBScript对象和事件的处理方法 2.要求：（1）用数组实现对身份证信息的存储 （2）用VBScript脚本语言实现程序（3）自己独立完成实验二、实验内容 用VBScript脚本语言实现身份证查询系统 （1）应用VBScript的Sub过程函数。 （2）应用字符串函数实现MID和LEN实现对字符串的截取和长度测试。（3）应用数据类型判别函数IsNumeric判断是否字符串全为数字。（4）应用DreamWeaver制作表单及系统的制作。（5）应用VBScript的纠错处理处理网页中的错误。三、实验代码身份证系统 dim IdCard dim Msg dim lenx lenx=len(txtId) sub btnOK_onClick() if Trim(form1.txtId.value)=Empty Thendocument.form1.elements(0).focus()MsgBox身份证号不能为空！Exit subelse if len(form1.txtId.value)18 Thendocument.form1.elements(0).focus()MsgBox身份证号码不合法！exit subElse if len(form1.txtId.value) 15 Thendocument.form1.elements(0).focus()_MsgBox身份证号码不合法！Exit subelse if not IsNumeric(form1.txtId.value) Then document.form1.elements(0).focus()MsgBox身份证号码中不能有字母！Exit subend ifend ifend ifend if dim sfzDH(3) dim sfzGSD(3) sfzDH(0)=142732 sfzGSD(0)=山西省运城地区平陆县 sfzDH(1)=142729 sfzGSD(1)=山西省运城地区闻喜县 sfzDH(2)=142701 sfzGSD(2)=山西省运城地区运城市 sfzDH(3)=142222 sfzGSD(3)=山西省忻州市定襄县 IdCard=document.getelementbyid(txtId).value for i=0 to ubound(sfzBM) if sfzBM(i)=mid(IdCard,1,6) then msg=归属地： & sfzGSD(i) & exit for end if next msg=msg & 生 日： & mid(IdCard,7,4) &年 msg=msg & mid(IdCard,11,2) & 月 msg=msg & mid(IdCard,13,2) & 日 & if mid(IdCard,17,1) mod 2=0 then msg = msg & 性 别： 女 else msg = msg & 性 别： 男 end if document.getelementbyid(lblMsg).innerHTML=msg end sub 身份证查询程序 请输入15或18位身份证号： 运行结果：四、实验总结1、对VBScript有了更进一步的掌握。2、对V