江西信息应用职业技术学院计算机技术系.docVIP

江西信息应用职业技术学院计算机技术系 上机实训报告 课程：WEB程序设计与应用 任课教师：曾斌 实训场所及日期：综501机房；2007-3-30；4-6 姓名：张大海 学号：专业及班级：网络专业03（2）班 实训：VBScript程序设计 实训序号：3 成员人数：1 一、目的 1、了解VBScript的基本语法及简单程序设计方法； 2、熟练掌握VBScript的If语句和Select Case语句的编程技术； 3、熟练掌握VBScript的For…Next、Do…Loop和For each…In等循环语句的编程技术。 二、三、 1、HTML页面中添加 VBScript代码 2、If语句编程；Select Case语句的编程 3、For…Next、Do…Loop和For each…In等循环语句的编程 四、实训步骤 1、HTML页面中添加 VBScript代码步骤1 在DW中生成一静态网页 步骤2 切换到代码视图下，将范例1代码插入 步骤3 在IE中打开页面，查看效果 2、If语句编程；Select Case语句的编程 步骤1在DW中生成一静态网页 步骤2 切换到代码视图下，将范例2代码插入 步骤3 在IE中打开页面，查看效果 同上，验证范例3 2、For…Next、Do…Loop和For each…In等循环语句的编程 步骤1在DW中生成一静态网页 步骤2 切换到代码视图下，将范例4代码插入 步骤3 在IE中打开页面，查看效果 同上，验证范例5 五、实训结果 1、把VB脚本代码有机地插入到HTML代码中； 2、验证了If语句编程；Select Case语句的编程； 3、验证了For…Next、Do…Loop和For each…In等循环语句的编程For…Next、Do…Loop和For each…In等循环语句的编程。 六、总结 vbscript脚本代码与HTML代码混在一起，可以使页面具有一定的交互功能，或产生某种网页特效，其代码由浏览器解析执行。 2、If语句是最常用的判断语句，但有变化也很多。 3、循环语句的功能。 七、附录（源程序清单等） 范例： html head title测试按钮事件/title /head body form name=Form1 input type=Button name=Button1 value=单击 script for=Button1 event=onClick language=VBScript MsgBox 按钮被单击！ /script /form /body /html 范例2：Sub FixDate()Dim myDatemyDate = #2/13/2004#If myDate Now Then myDate = NowEnd Sub 范例3： Select Case Document.Form1.CardType.Options(SelectedIndex).TextCase MasterCardDisplayMCLogoValidateMCAccountCase VisaDisplayVisaLogoValidateVisaAccountCase American ExpressDisplayAMEXCOLogoValidateAMEXCOAccountCase ElseDisplayUnknownImagePromptAgainEnd Select 范例4：过程 MyProc 重复执行 50 次Sub MyProc ()Dim xFor x = 1 To 50MyProcNextEnd Sub 范例5 htmlheadtitlefor each循环范例/titlescript language=vbscriptsub Checkall()set mform=document.forms(0)for each obj in mform.elementsif obj.namechkall then obj.checked=mform.chkall.checkednextend sub/script/headbodycenterform name=frmforminput type=checkbox name=choose value=1选项1input type=checkbox name=choose value=1选项2input type=checkbox name=choose value=1选项3input type=checkbox name=choose value=1选项4pinput type=checkbox name