01VBScript脚本语言基本3.pptVIP

第3章 利用脚本语言创建动态网页 ;3. 1 脚本语言概述 ;3. 1 脚本语言概述;html head Script Language=VBScript !-- …… -- /Script /head body …………… /body /html;示例：;服务器端调用脚本语言的方法，在服务器端运行，有两种方式：;示例： ;1、在代码中加注释 注释语句可以有两种表现形式，一种是通过使用Rem语句，Rem后的任何文本都会认为是对程序的注释，不会被处理。另一种是采用西文单引号“′”，即以撇号作为注释的开始，注释可以和语句在同一行并写在语句的后面，也可以单独占一行。 ;3. 2. 2VBScript语句书写规则;3. 2. 3　VBScript的数据;常量;常量示例：;变量;变量示例 ：;3. 2 VBScript脚本语言;一维数组示例 ：;二维数组示例 ;;;3. 2. 5 运算 1．算术运算+ - * / 2．连接运算 3．关系运算= 4．逻辑运算 And Or Xor Not 案例参看教材61-65 ;3. 2. 6 控制结构;;;;; htmlhead titleIf…then语句的使用/title Script Language=VBScript !-- Sub bchange(choice) If choice=1 Then document.bgColor=red ElseIf choice=2 Then document.bgColor=yellow ElseIf choice=3 Then document.bgColor=blue Else document.bgColor=green End If End Sub -- /Script /head;body center h2font color=#FF0000文字和背景颜色的选择/font/h2 ptable border=2 trth背景颜色th选择th文字颜色th选择/tr trtd红色tdinput type=radio onClick=bchange(1) td黄色tdinput type=radio onClick=bchange(2)/tr trtd蓝色tdinput type=radio onClick=bchange(3) td绿色tdinput type=radio onClick=bchange(4)/tr /table /center/body/html 结果见3-1.htm;Select ...Case 语句;示例;;For…Next 循环语句;Do While ... Loop循环语句;Do ... Loop While循环;3. 2. 7 过程;SUB基本格式：;html head titleSub过程/title % sub spj(a,b,c) c=a*2-b^2 end sub dim d call spj(9,3,d) response.write d % /head body/body /html; HTML HEADTITLEfor...next求和 /TITLE/HEAD SCRIPT LANGUAGE=VBScript !-- Sub SumTotal_OnClick() Dim x,j x=document.form1.in.value For j = 1 To x total = total + j Next MsgBox 和为 total 。 End Sub -- /SCRIPT ;BODY CENTER1到x的求和运算 form name=form1 输入x的值：input type=text name=in size=3 input type=submit value=提交 name=SumTotal /form /CENTER /BODY /HTML 显示结果3-2.htm;2。Function 过程（即函数）;html head titleFunction 过程/title % function spj(a,b) c=a*2-b^2 spj=c end function dim d d=spj(9,3) response.write d % /headbody/body /html;示例： MsgBox的使用;VBScript 的函数库内有很多基本函数 转换函数，Cstr，cInt，cDate 字符串函数 Mid,Left,Right,Trim,instr,len,spl