第二部分 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) & " "
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
|