12.1 脚本语言之VBScript

来源:互联网 发布:有关九尾狐的网络剧 编辑:程序博客网 时间:2024/06/05 16:51

脚本语言可在客户端运行也可在服务器端运用

它介于HTML和高级语言(VB C++)之间 功能没有高级语言强大 接近高级语言比高级语言简单易学习

我们学的是VBScript<<VISUAL BASIC

为了网络安全和可移植删除了一些api和class

vbscript是为了取代某些CGI功能和加强交互能力

<script language="VBScript">......</script>

代码一般写入<!-- 和-->内 防止不识别SCRIPT的浏览器将代码显示出来

代码写入<SCRIPT></SCRIPT>中 放在<HEAD></HEAD>中因此先加载HEAD使代码也先加载

 

附 HTML里面注释2中 1 <!   内容 ! >

                                         2 <!--   内容

                                                     多行内容

                                                     内容         --!> 

 

VBS唯一的数据类型VARIANT

VBS语句结束没有分号

 

变量名规则(学过这么多语言 都是会看代码不会用不会写 哈哈 学新语言也快了)

标量变量和数组变量(变量表示数的能力)

标量 变量声明(显示声明) DIM .... PUBLIC..... PRIVATE .....

         隐式声明 直接使用变量

数组 DIM  ARRAY(10)

                   ARRAY2(8,10)

 

运算符 算术 关系 逻辑

PS:   & 字符串相连

 

流程控制语句

条件分支 IF  THEN ELSE

                   SELECT CASE

循环语句 DO until 条件    LOOP

                 DO LOOP UNTIL 条件   

                do loop while 条件 

                do while 条件loop

                 WHILE WEND

                FOR  NEXT(有经验了 一看就知道)

 

EG:

<!--

sub bgcolor(change)                                                               

                                                                                         <->      select case(change)

if change=1 then document.bgcolor="red"              <->       case 1 document.bgcolor="red"

elseif  change=2 then document.bgcolor="green" <->      case else document.bgcolor="green"

end if                                                                                <->      end select

end sub

-->

<body >....

<input type=radio onclick="bgcolor(1)">

...</body>

 

select case (条件)

case 条件 执行语句 

case else 执行默认情况语句

end select

 

 

 

for i=startvalue to  lastvalue step

执行语句内容

next

 

EG:

<script language="vbscript">

<!--

sub totalsum_onclick()

dim ch,sh,total

total=0

ch=document.form1.inputext.value(缺省为字符串,后面用int()处理)

for sh=1 to int(ch) step 1

total=total+sh

end for

msgbox "和为"&total&"."

end sub

-->

</script>

----------end head--------

<body>

<form name=form1>

<input type=text value=10(随便弄个值ch) name=inputtext size=4>

<input type=submit value=提交 name=totalsum>

</form>

-------------其中可以使用其他循环语句实现 以DO UNTIL LOOP为例----

sh=0 totalsum=0

do until sh=ch

totalsum=totalsum+sh

sh=sh+1

loop

 

WHILE 条件 WEND(while end 的意思 汗)

 

 

VBSCRIPT的过程 函数

函数 function fname()

        函数值计算方法(函数体)

        end function(函数结果有函数名返回)

过程 sub subname()

  过程体

     end sub(不输出 只提供过程)