《ASP》实验三VBScript

《《ASP》实验三VBScript》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验三：VBScript语言一、实验目的：（1）掌握HTML文本与VBScript程序的综合使用方法（2）掌握VBScript程序设计的基本方法二、实验内容(1)编写一个判断星期的小程序功能：弹出对话框，用户输入日期，计算并返回星期几提示：弹出用户输入的对话框的函数是InputBox，弹出消息对话框的函数是MsgBox参考代码：SubDayOfWeek()dimday1dimtempday1=InputBox("请输入一个

2、合法的日期，格式为yy—mm-dd",1)IfNotIsDate(day1)ThenMsgBox"您输入的日期不合法，请重新输入"Elsetemp=WeekDay(Cdate(day1))SelectCasetempCase1Tempstr="星期天"Case2TempStr="星期一"Case3TempStr="星期二"Case4TempStr="星期三"Case5TempStr="星期四"Case6TempStr="星期五"Case7TempStr="星期六"EndSelectMsgBox"您输入的日期是"&TempstrEndIfE

3、ndSub(2)阅读并调试以下代码，练习使用字符串函数<%Dimstr1,str2,str3,str4Dimi'用string函数构建str1,str2str1=String(10,"a")str2=String(10,"A")'用str1,str2构建str

4、3,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

5、.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.W

6、rite"str4去前导空格后为："<rim(str4)&"
"Response.Write"str4去后续空格后为："&RTrim(str4)&"
"Response.Write"str4去前后空格后为："&Trim(str4)&"
"'字符串比较函数用法i=StrComp(str1,str2)Ifi=-1ThenResponse.Writestr1&"小于"&str2&"
"ElseIfi=0ThenResponse.Writestr1&"等于"&str2&"
"ElseIfi=1ThenRespon

7、se.Writestr1&"大于"&str2&"
"EndIf%>