基本格式 1 SCRIPT>标记 VBScript代码写在成对的<SCR|PT>标记之间 例如,计算一个日期与现在的时间简隔: % Language=VBScript HTML HEAD <META name=v160 defaultclientScript content=VBScript> BODY> <SCRIPT LANGUAGE=vbscript RUNAT=Server> function diffdate 1(dt) diffdate 1=cdate(dt-nowo end function </SCRIPT> P>  </P> <% Response. Write cdate( 2001-10-10)-now0&"<br> Response. Write diffdate1(2001-10-10")&<br> </BODY> 广东科学技木职业学院
一、基本格式 1.<SCRIPT> 标记 VBScript 代码写在成对的 <SCRIPT> 标记之间。 例如，计算一个日期与现在的时间简隔： <%@ Language=VBScript %> <HTML> <HEAD> <META name=VI60_defaultClientScript content=VBScript> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD> <BODY> <SCRIPT LANGUAGE=vbscript RUNAT=Server> function diffdate1(dt) diffdate1=cdate(dt)-now() end function </SCRIPT> <P> </P> <% Response.Write cdate("2001-10-10")-now() & "<br>" Response.Write diffdate1("2001-10-10") & "<br>" %> </BODY> </HTML>
说明 (1)代码的开始和结束部分都有< SCRIPT>标记 LANGUAGE属性用于指定所使用的 Script语言。 由于浏览器能够使用多种 Script语言,所以必须 在此指定所使用的 Script语言。 (2)语言名称可加双引号, VBScript可简写为VBS (3) diffdate1函数被嵌入在注释标记(<!-和->) 中。这样能够避免不能识别<SCR|PT>标记的浏 览器将代码显示在页面中。有时可以省略 东料学枝术取业学院
说明 (1)代码的开始和结束部分都有 <SCRIPT> 标记。 LANGUAGE 属性用于指定所使用的 Script 语言。 由于浏览器能够使用多种 Script 语言，所以必须 在此指定所使用的 Script 语言。 (2)语言名称可加双引号，VBScript可简写为VBS. (3) diffdate1 函数被嵌入在注释标记（<!-- 和 -->） 中。这样能够避免不能识别 <SCRIPT> 标记的浏 览器将代码显示在页面中。有时可以省略
2.HTML语言中调用VBs的三种方法 (1)用对象名加事件作为过程的定义方法.2_1asp (2)在Sct标记中定义过程。2_2asp (3)利用事件调用过程(过程方式)。2_3.asp 东料学枝术取业学院
2. HTML语言中调用VBS的三种方法 (1)用对象名加事件作为过程的定义方法. 2_1.asp (2)在Script标记中定义过程。2_2.asp (3) 利用事件调用过程（过程方式）。2_3.asp
二、VBS的变量和运算符 明变量: dim javascript为var,其类 型为变体型 不要写 dim x as integer,变量可通过置 初值来设定其类型,还可以在其后改 为其他类型 广东科学技木职业学院
二、 VBS的变量和运算符 声明变量：dim ,javascript 为var,其类 型为变体型。 不要写dim x as integer, 变量可通过置 初值来设定其类型，还可以在其后改 为其他类型
示例(如asp2_1asp) <% Language=VBScript % HTML> <HEAD> <META name=v160 defaultclientScript content=VBScript> <META NAME="GENERATOR" Content="Microsoft Visual studio 6.0"> <SCRIPT ID=client EventHandlersVBS LANGUAGE=vbscript Sub button1 onclick xx & abcd text1 value=x End sub </SCRIPT> </HEAD> <BODY> <P><INPUT id=text1 name=text1>< NPUT id=button1 name=button1 type=button value=Button></P> <SCRIPT LANGUAGE=vbscript> dmx“这里的X是一个全局变量 text1. value=x abcd 广东科学技木职业学院
示例（如asp2_1.asp） <%@ Language=VBScript %> <HTML> <HEAD> <META name=VI60_defaultClientScript content=VBScript> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript> <!-- Sub button1_onclick x=x & "abcd" text1.value=x End Sub --> </SCRIPT> </HEAD> <BODY> <P><INPUT id=text1 name=text1><INPUT id=button1 name=button1 type=button value=Button></P> <SCRIPT LANGUAGE=vbscript> <!-- dim x ‘这里的X是一个全局变量 x=3 text1.value=x x="abcd" -->