身份证查询系统

《身份证查询系统》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、运城学院实验报告———————————————————————————————————————运城学院实验报告专业：计算机科学与技术系系（班）姓名：课程名称：动态网页制作实验项目：身份证查询系统实验类型：综合型实验地点：软三实验室时间：指导老师：学号：一、实验目的及要求1.目的：（1）熟练掌握VBScript脚本语言（2）熟练掌握VBScript流程控制语句、函数和子函数（3）熟练掌握VBScript对象和事件的处理方法2.要求：（1）用数组实现对身份证信息的存储（2）用VBScript脚本语言实现程序（3）自己独立完成实验二、实验内容用VBScript脚本语言实现身份证查询系统（1）应用

2、VBScript的Sub过程函数。（2）应用字符串函数实现MID和LEN实现对字符串的截取和长度测试。（3）应用数据类型判别函数IsNumeric判断是否字符串全为数字。（4）应用DreamWeaver制作表单及系统的制作。（5）应用VBScript的纠错处理处理网页中的错误。三、实验代码dimIdCarddimMsgdimlenxlenx=len(txtId)subbtnOK_onClick()ifTrim(form1.txtId.value)=EmptyThendocu

3、ment.form1.elements(0).focus()MsgBox"身份证号不能为空！"Exitsubelseiflen(form1.txtId.value)>18Thendocument.form1.elements(0).focus()MsgBox"身份证号码不合法！"exitsub运城学院实验报告Elseiflen(form1.txtId.value)<15Thendocument.form1.elements(0).focus()运城学院实验报告（续）MsgBox"身份证号码不合法！"ExitsubelseifnotIsNumeric(form1.txtId.value)Th

4、endocument.form1.elements(0).focus()MsgBox"身份证号码中不能有字母！"ExitsubendifendifendifendifdimsfzDH(3)dimsfzGSD(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

5、").valuefori=0toubound(sfzBM)ifsfzBM(i)=mid(IdCard,1,6)thenmsg="归属地："&sfzGSD(i)&"
"exitforendifnextmsg=msg&"生日："&mid(IdCard,7,4)&"年"msg=msg&mid(IdCard,11,2)&"月"msg=msg&mid(IdCard,13,2)&"日"&"
"ifmid(IdCard,17,1)mod2=0thenmsg=msg&"性别：女"elsemsg=msg&"性别：男"endifdocument.getelementbyid("lblMsg").i

6、nnerHTML=msgendsub身份证查询程序