html教程_ASP教程——VBScript语言.ppt

第5章VBScript语言，3.2订阅编程的基础，变量：dim常量：常量字符串=这是一个字符串请注意特殊运算符：字符串串联()例如：abccdef=abccdef，变量score=75msgbox 您的分数是 scorescore=90msgbox 您的分数已更改为 score，VBScript流控制，条件语句如果.然后.Else语句选择Case语句循环语句Do.循环：当(或直到)条件为真时循环。正在.当条件为真时循环。为.下一步：指定循环数，并使用计数器重复该语句。ForEach.接下来：为集合中的每个项或数组中的每个元素重复一组语句。如果.然后.否则语句，如果条件，则语句1如果否则，则语句2结束如果得分=inputbox(“请输入得分”，“输入得分”)，如果得分=60，则消息=“通过”否则消息=“失败”结束消息框“您的得分：消息，如果不是=60，则消息=“通过”elsster=失败”结束sub%，dimii=2，如果imod2=0，则消息框“这是一个偶数！”“这是一个奇数！”Endif，SelectCase语句，Selectcase测试表达式caseexpression value1语句caseexpression value2语句Caseelse语句Endselect，多项选择结构语句no=inputbox(请输入1到5之间的数字：，中文英文 SelectCaSeNoCase 1 msg= A case 2 msg= B case 3 msg= C ，Caseelsemsg=抱歉，超出范围 endselectmsgboxno 英文是 msg 。SelectCasestrCase pass Msgbox 您通过了 Case 失败 Msgbox 继续工作 CaseelseMsgboxstrEndcase。dimi=66 selectcase 65 msgbox= a case 66 msgbox= b case 67 msgbox= c case 68 msgbox= d caseeelesmsgbox= z end select，do loop语句。执行while/untile loop condition循环体exit do循环，ans=inputbox(请为计算机输入英语)Dow hileucas(ans) computer msg=不正确请为计算机重新输入英语 ans=inputbox(msg)loopmsgbox 祝贺您，回答正确，米蒂，stri=1 dowhilei，subcacwhile()dim counter，my num counter=0 my num=9 do my num=my num-1 counter=1 loophilmynummsgbox 循环重复 counter second EndForeach.接下来，dimscorsemore=array (4，6，1，8)foreachnuminscoremsg=msgnumnetsmgboxmsg，米蒂，sum fori=1to 100 su m=sum 1 nettr=CSTR(sum)msgbox 变量的当前值是：“str，arrays，包含一个值的变量称为标量变量，而数组变量包含多个值定义：DimA(3)，Arrays，值3360 a(0)=256 a(1)=324 a(2)=100 a(3).接下来，subevental () dimmynum，Totalformynum=16 to 2 step-2 total=totalmynumnextsmgbox total : totalendsub，dimmynum，Totalformynum=16 to 2 step-2 total=totalmynumnextsmsgbox total : total，procedures and function，两种类型的过程：Sub过程和Function函数过程是在编程期间定义的一系列语句，用于完成指定的操作。函数是子程序的另一种形式，是编程时定义的一系列语句。与过程不同，函数的目标不是实现某个操作，而是获得计算结果值。结果值最终通过函数名返回给调用方。Sub和Function Function之间的区别可以返回值Sub不返回值Function可以用作程序中的一个变量Sub只能用作一个单独的语句，COMPASUPBCONTEMP()TEMP=InputBox(请输入中文温度：，1)msgbox 温度是摄氏度(TEMP)摄氏度 endsubfunctionalcelsius(FD egures)摄氏度=(FD egures-32)* 5/9 end Function，输入输出函数：InputBox()实现对用户输入的程序数据的处理，并将处理信息反馈给用户。Msgbox()实现程序为用户提供一个信息提示窗口，并在收到用户的选择信息后处理反馈。注意：这两个表单函数只能在客户端脚本中使用。,错误处理，”语法错误，错误处理，”运行时错误，错误处理，DoWithError.asp，VBScript编写客户端脚本，VBScript编写客户端脚本，利用客户端脚本程序检验数据的有效性，sub button _ onclickdimtfsettf=document。表格1数字(TF。文本。价值)他们的ftf。文本。值10 themsgbox 请输入一个1到10之间的数字elsemsgbox 谢谢endifelsemsgbox 请输入一个数字endifendsub，sub button _ onclickdimforformsettheform=document。表格1格式。选择。值6和f格式。选择。值20 themsgbox 金额为：表单。文本1。值*形式。文本2。值* 0.15 elseifforrm。文本2。值10 thenmsgbox 金额为：表单。文本1。值*形式。文本2。值* 0.05 else msgbox 金额为： forform。文本1。表单的值*。文本2。值* 1 ndifendif，elseifforform。文本2。值20 themsgbox 金额为：表单。文本1。值*形式。文本2。值* 0.25 els