《ASP》实验三VBScript.doc

实验三： VBScript语言一、实验目的：（1）掌握HTML文本与VBScript程序的综合使用方法（2）掌握VBScript程序设计的基本方法二、实验内容(1)编写一个判断星期的小程序功能：弹出对话框，用户输入日期，计算并返回星期几提示：弹出用户输入的对话框的函数是InputBox，弹出消息对话框的函数是MsgBox参考代码：Sub过程演示Sub DayOfWeek() dim day1 dim temp day1 = InputBox(请输入一个合法的日期，格式为yymm-dd,1) If Not IsDate(day1) Then MsgBox 您输入的日期不合法，请重新输入 Else temp = WeekDay(Cdate(day1) Select Case temp Case 1 Tempstr=星期天 Case 2 TempStr=星期一 Case 3 TempStr=星期二 Case 4 TempStr=星期三 Case 5 TempStr=星期四 Case 6 TempStr=星期五 Case 7 TempStr=星期六 End Select MsgBox 您输入的日期是&Tempstr End IfEnd Sub(2)阅读并调试以下代码，练习使用字符串函数字符串函数应用实例%Dim str1,str2,str3,str4Dim i用string函数构建str1,str2str1 = String(10, a)str2 = String(10, A)用str1,str2构建str3,str4，str3 = Mid(str1,1,5)&Mid(str2,1,5)str4 = &Mid(str2,1,5)&Mid(str1,1,5)& 输出字符串初始化结果Response.Write str1被赋值为：&str1&Response.Write str2被赋值为：&str2&Response.Write str3被赋值为：&str3&Response.Write str4被赋值为：&str4&Response.Write Len函数用法Response.Write str1的长度为&Len(str1)& Left函数，Right函数用法Response.Write str3左起第六位字符为&Right(Left(str3,6),1)& LCase函数与UCase函数用法Response.Write str3的全大写形式为&Ucase(str3)& Response.Write str3的全小写形式为&Lcase(str3)& Response.Write LTrim函数、RTrim函数与Trim函数用法Response.Write str4去前导空格后为：<rim(str4)& Response.Write str4去后续空格后为：&RTrim(str4)& Response.Write str4去前后空格后为：&Trim(str4)&字符串比较函数用法i = StrComp(str1,str2)If i = -1 Then Response.Write str1&小于&str2&ElseIf i = 0 Then Response.W