欢迎来到天天文库
浏览记录
ID:43742357
大小:37.51 KB
页数:3页
时间:2019-10-13
《身份证查询系统》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
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的纠错处理处理网页中的错误。三、实验代码
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身份证查询程序
7、de="NOSHADE"color="#CC0033"width=80%>请输入15或18位身份证号::
此文档下载收益归作者所有