第二部分 VBScript语言
脚本(Script)?

1.HTML是一种标记性语言,其代码只能定义网页元素的风格、属性、布局情况等。而网页中的脚本是能使网页产生特殊效果或动态效果的小程序。

2.脚本语言所编写的代码插入到HTML代码中。

例:查看此网页的源代码,从中找出脚本代码

3.常用的脚本语言有JavaScript和VBScript,JavaScript因绝大多数浏览器支持,所以应用更广泛。在开发方式、语法、效果等方面,JavaScript和VBScript大同小异。

4.脚本程序既可以在客户端执行(普通脚本),也可以在服务器端执行(例ASP程序)。

5.在网上,用“网页特效”为关键词,就可以搜索到许多提供网页特效代码的资源网站。

6.在DW中,打开“行为”面板,所制作的网页特效就是你自行开发的脚本。

7.脚本代码常常插入在HTML代码的HEAD部分,当然也可以根据需要,插入HTML代码的任何位置。可能会产生脚本执行时间或效果的差异。

例如,弹出小窗口的脚本代码,如果放在HTML代码的HEAD部分,小窗口则在页面打开时弹出。如果放在HTML代码的BODY的最后,小窗口则在页面打开后弹出。


VBScript?

1.以Visual Basic语言为基础。

2.VBScript是ASP的默认脚本语言,但ASP并没有使用VBScript所有内容。

看一例:

<html>
<head>
<title>测试按钮事件</title>
</head>
<body>
<form name="Form1">
<input type="Button" name="Button1" value="单击">
<script for="Button1" event="onClick" language="VBScript">
MsgBox "按钮被单击!"
</script>
</form>
</body>
</html>

VBScript数据类型?
注意:下面问答中红色标记的代码为实例,但不都是VBScript的实例,有的是SQL语言的实例,其中的应用基本上差不多。

以下是常用VBScript的数据子类型


Empty:对于数值变量,值为 0;对于字符串变量,值为零长度字符串 ("")

Null:不包含任何有效数据

Boolean:布尔值,是否,真假,其值是True 或 False

Date (Time) :日期与时间

String: 变长字符串

注意:

数字包含在引号 (" ") 中使其成为字符串

<%
if isempty(Session("ID")) then
Response.Redirect "../login.asp"
end if

%>

VBScript的变量?

1.变量可以声明,也可以不声明而直接使用。

声明多个变量时,使用逗号分隔变量。例如:
Dim name, class, age, email
<%
if request("title")<>"" then
dim title,body,password
title=trim(request.form("title"))
body=trim(request("body1")
password=trim(request.form("password"))
dim sql,svalues
SQL = "Insert into zbxx(title,body,submit_date"
svalues = "values('" & title & "','" & body & "','" & password & "','" & now() & "'"
sql = sql & ") " & svalues & ")"

db.execute(sql)
db.close
end if
%>

2.给变量赋值
变量在表达式左边,要赋的值在表达式右边。例如:
B = 200

3.命名规则
在变量命名的过程中,必须遵循以下几条规则:
▲ 变量名称的第一个字符必须是英文字母。
▲ 变量名一般由英文字母、阿拉伯数字和字符“_”构成。
▲ 中间不能有句号。
▲ 不能使用VBScript 的关键字作为变量名。
▲ 变量名称的长度不能超过255个字符。
▲ 变量名在被声明的作用域中必须是唯一的。

VBScript 运算符?

▲算术运算符:用于执行数学计算的运算符。
+ 加

- 减
* 乘
/ 除

▲比较运算符:用于执行比较操作的运算符。

= 等于

<> 不等于

<= 小于等于

>= 大于等于

< 小于

> 大于

SqlStr="SELECT studname From student where class='"& Session("class") &"' and add>=90"
▲连接运算符:用于连接字符串的运算符。

& 字符串连接
▲逻辑运算符:用于执行逻辑操作的运算符
Not 非

And 与

Or 或

VBScript 条件语句?

If 条件语句 Then
执行语句
End If

If 条件语句Then
执行语句1
Else
执行语句2
End If

 


VBScript 循环语句?

Do While 条件1
执行语句
Loop

<%
SqlStr="SELECT studentname From student where class='"& Session("class") &"' and add<60"
rs.Open SqlStr,db,0,1
do while not rs.eof
Response.Write rs(0) & "&nbsp;&nbsp;"
rs.movenext
loop
rs.Close
%>

VBScript中的函数?

▲转换函数:数据类型转换

CInt(Variant)转换成整数子类型

▲字符串函数:删除字符串前后的空格符、比较两个字符串、转换字符串的大小写字母等。

Trim(string)将字符串string前后的空格去掉

t9=Trim(request.form("t9"))
Left(string,length)从字符串string的左边取得length长度的字符串

<%=left(RS("title"),12)%>

Len(string)返回字符串string里的字符数目

▲日期和时间函数

Now()取得系统当前的日期和时间

Date() 取得系统当前的日期

Time()取得系统当前的时间

▲数学函数

rnd(number)以number为种子产生随机数

<%
sql="SELECT top 1 * FROM new order by rnd(id)"
set rs=db.execute(sql)
%>

Int(number)取整函数,返回小于等于number的第一个整数

<%
percent3=int(total3/total*10000)/100
%>

▲检验函数:用来检验某变量是否是某种类型

上机实训并做书面作业(星号题):

*1、抄写上面出现的红色代码。

2、在DW中尝试用[行为]面板制作弹出小窗口、弹出信息、检验表单等特效,并察看生成的脚本代码。

*3.编写一个页面,在屏幕上显示一个输入对话框,提示信息为“请输入姓名:”,单击确认后弹出一个输出消息框,信息显示为用户输入的姓名及“欢迎光临盛达网”。
*4、在DW中,编写一个用户输入自己的姓名和年龄的表单。表单输入要进行有效性验证,验证姓名输入不为空,验证年龄输入必须为数字,如果输入错误将弹出一消息框提醒用户。
*5。抄写以下代码:

以下代码运用在学院留言簿中,判断其作用

<%
img=rs("img")
if img<>"" then
%>
<img src="img/<%=RS("img")%>.gif"/>
<%end if%>

以下代码运用在学院首页新闻栏中,尝试判断其作用

<%
sql="select top 10 * 网站信息 where 类别='学院新闻' and 密码='etftrex' order by id desc"
set rs=db.execute(sql)
do while not rs.eof
%>
<%=RS("标题")%><%=RS("日期")%></a>
<%
rs.movenext
loop
%>

第三部分 初识ASP