身份证查询系统

———————————————————————————————————————

专业：系（班）姓名

计算机科学与技术系 ：

课程名称：实验项目：实验类型：

动态网页制作 身份证查询系统 综合型

实验地点：时间： 指导老师：

软三实验室

学号：

一、实验目的及要求

1.目的：（1）熟练掌握VBScript脚本语言

（2）熟练掌握VBScript流程控制语句、函数和子函数

（3）熟练掌握VBScript对象和事件的处理方法

2.要求：（1）用数组实现对身份证信息的存储

（2）用VBScript脚本语言实现程序

（3）自己独立完成实验

二、实验内容

用VBScript脚本语言实现身份证查询系统

（1）应用VBScript的Sub过程函数。

（2）应用字符串函数实现MID和LE实现对字符串的截取和长度测试。

（3）应用数据类型判别函数Isumeric判断是否字符串全为数字。

（4）应用DreamWeaver制作表单及系统的制作。

（5）应用VBScript的纠错处理处理网页中的错误。

三、实验代码

<script language="vbscript">

dim IdCard

dim Msg

dim lenx

lenx=len(txtId)

sub btnOK_onClick()

if Trim()=Empty Then

ts(0).focus()

MsgBox"身份证号不能为空！"

Exit sub

else if len()>18 Then

ts(0).focus()

MsgBox"身份证号码不合法！"

exit sub

Else if len() <15 Then

ts(0).focus()

MsgBox"身份证号码不合法！"

Exit sub

else if not Isumeric() Then

ts(0).focus()

MsgBox"身份证号码中不能有字母！"

Exit sub

end if

end if

end if

end 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=mentbyid("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

mentbyid("lblMsg").innerHTML=msg

end sub

</script>

运行结果：

四、实验总结

1、对VBScript有了更进一步的掌握。

2、对VBScript中的函数的编写不够熟练。

3、对系统中的年月数值进行限制的代码的编写不够熟练。