实验一+利用VBScript实现字符串处理
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
动态网页制作实验报告
计算机科学与技术系1105班
2011100529
王媛
2013.04.25
实验一利用VBScript实现字符串处理
一、实验目的和要求
1.掌握VBScript脚本语言的基本语法知识
2.学会编制简单的过程和函数
3.学会使用VBScript的内部库函数及应用
4.掌握对表单中控件值的读取和写入
5.掌握对常用控件上发生事件的处理
二、实验内容
使用VBScript的内部库函数和自定义过程实现对字符串的处理。要求:
(1)所处理的字符串是用户在页面上随机输入的。
(2)至少用到两个字符串处理库函数。
(3)自定义sub实现按钮事件的处理。
三、实验重点和难点
1.VBScript基本语句格式
2.Sub和Function的定义和调用
3.VBScript内部库函数的使用
4.表单元素上触发事件的处理
四、实验过程
1.在硬盘上新建文件夹,并将其创建为“虚拟目录”。
2.打开DreamWeaver8.0,新建站点(对应刚创建的虚拟目录)。
3.在站点中新建网页index.html。
4.打开index.html文件,进入“代码”模式,在
…之间输入客户端脚本。5.保存,浏览在IE中。
6.根据错误提示调试程序。
五、参考代码
dim IdCard
dim Msg
dim lenx
lenx=len(txtId)
sub btnOK_onClick()
if Trim(form1.txtId.value)=Empty Then document.form1.elements(0).focus() MsgBox"请输入身份证号!"
Exit sub
else if len(form1.txtId.value)<>18 Then document.form1.elements(0).focus() MsgBox"身份证号为18位"
exit sub
end if
end if
dim sfzBM(5)
dim sfzGSD(5)
sfzBM(0)="142731"
sfzGSD(0)="山西省运城市绛县"
sfzBM(1)="142732"
sfzGSD(1)="山西省运城市平陆"
sfzBM(2)="142701"
sfzGSD(2)="山西省运城市"
sfzBM(2)="142728"
sfzGSD(2)="山西省运城市稷山县"
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
if mid(IdCard,1,70)=142429************ then msg = msg & "姓名:王媛"& "
"
document.getelementbyid("lblMsg").innerHTML=msg
end sub