asp基础入门篇(DOC格式)-第3部分
按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
淞硪桓龅闹怠Ｈ绻挥猩鞅淞浚蚩赡懿恍⌒幕岣谋湟桓鋈直淞康闹怠＠纾韵陆疟久罘祷刂怠�1，虽然有两个名为 Y 变量：
《 ％
Dim YY = 1Call SetLocalVariableResponse。Write Y
Sub SetLocalVariable
Dim Y
Y = 2End Sub ％ 》
由于变量没有显式声明，以下的脚本命令将返回 2。当过程调用将 Y 设置为 2 时，脚本引擎认为该过程是要修改全局变量：
ASP基础教程：ASP脚本变量、函数、过程和条件语句
在上一期中作者向诸位简要介绍了 ASP 脚本语言之一 VBScript 的一些基本常识，本期将继续给大家讲解 VBScript 的脚本编写方法，并通过展示 VBScript 在 ASP 程序编写过程中的一系列实例使大家对 VBScript 有更进一层的理解。
大家在学习了脚本语言 VBScript 的变量、常量和过程的基本概念后，本期将继续向各位介绍 VBScript 的函数和语法。
函数和过程一样都是命名了的代码块，但它们却有很大的区别，过程完成程序任务，函数则返回值。我们可以这样理解，过程象一个完整的句子，而函数则象一个单词。举个例子，当你想获取某个数的平方根，你只要将该数传给 VBScript 的 Sqr（） 函数，此函数会立即返回该数的平方根。如：
A=sqr（9）
则 A=3。熟练掌握脚本语言的函数将给你编写 ASP 程序带来极大的方便，就以上一期结尾处作者布置给大家的课后练习来说，如果你对脚本语言的函数掌握不够全面，那么解决如此之小的一个问题将很有可能花费你相当大的精力。现在让我们来回顾一下这道课后练习。
〃作者正在用 ASP 制作一套基于 WEB 的 BBS 系统，希望能在其中添加一项特殊功能，即当任何用户登陆该 BBS 后都能够查阅近七天来所有新发布的信息。〃
如果你不熟悉 VBScrip，就不会知道 VBScrip 本身提供了一个用来取得日期之间的差或和的函数 DateSerial，它的语法如下：
DateSerial（year； month； day）
如果你要指定一个日期，例如：1998 年11月10日，那么 DateSerial 函数中每个参数的取值范围都应该是可接受的，即日的取值应在1和31之间，月的取值应在1和12之间。但是，也可以使用表示某日之前或之后的年、月、日数目的数值表达式为每个参数指定相对日期。以下样例中使用了数值表达式代替绝对日期。在这里，DateSerial 函数返回1998年11月10日之前二十年 （1990…20） 零两个月 （11…2） 又一天 （10…1） 的日期：即 1978 年9月9日。程序如下：
Datep=DateSerial（1998…20； 11…2；10…1）
对于 year 参数，若取值范围是从 0 到99，则被解释为 1900 到 1999 年。对于此范围之外的 year 参数，则使用四位数字表示年份（例如 1800 年）。当任何一个参数的取值超出可接受的范围时，则会适当地进位到下一个较大的时间单位。例如，如果指定了35 天，则这个天数将被解释成一个月加上多出来的日数，多出来的日数取决于其年份和月份。但是如果参数值超出 …32；768 到 32；767 的范围，或者由三个参数指定（无论是直接还是通过表达式指定）的日期超出了可以接受的日期范围，就会发生错误。
当我们了解并掌握了函数 DateSerial 的使用方法后，再来看看作者布置的这道题目，一切就迎刃而解了。下面我将程序中的此部分代码公布如下：itemp=DateSerial（Year（date）； month（date）； day（date）…7）
itemp=DateValue（itemp）
sql=〃Select * from message Where message。creatime Between #〃&date&〃# And #〃&itemp&〃# 〃
在这里我们又接触到了一组函数 Year；month；day，它们是用来得到一个日期的年、月、日。date 是常数，表示今天日期，而函数 DateValue 则是将字符串变量转化为日期格式的变量。在本段程序的第三行，我们第一次接触到了标准的 SQL 查询语句，这句语句是什么意思呢？
〃Select〃是标准的 SQL 数据库查询命令，通过 SELECT 语句我们可以在数据库中检索数据，并将查询结果提供给用户，此处的〃*〃表示查询该名为〃message〃的数据库中的所有记录，而〃where〃的作用是设定一个查询条件，是为了将数据库中符合条件的记录取出来，〃message。creatime〃是一个储存了数据库中记录创建日期的变量。将整句语句连起来理解就是：查询名为 message 的数据库中的所有记录，并将其中创建日期在今天和今天以前七日以内的所有记录存储在变量 sql 中。可能由于大家第一次接触 SQL 语句，一时间无法完全理解它的作用，不过不用担心在今后的章节中作者将专门用一期给大家介绍 SQL 的使用方法。
通过上面的学习，大家应该已经能够理解函数在程序中的作用，当然我们不必去死背函数，但要做到熟练运用只有一条捷径 …多实践。接下来让我们来看看 VBScript 的基本语法。
了解编程语言的朋友一定知道在程序中控制程序流程的语句主要可以分为条件语句和循环语句，在 VBScript 中可使用以下条件语句： If。。。Then。。。Else 语句
Select Case 语句
If。。。Then。。。Else 语句用于计算条件是否为 True 或 False，并且根据计算结果指定要运行的语句。通常，条件是使用比较运算符对值或变量进行比较的表达式，If。。。Then。。。Else 语句可以按照需要进行嵌套。
让我们来创建两个范例文件：if1。asp 和 if2。asp
将以下语句剪贴到记事簿中，并保存为 if1。asp（ 注意：请将程序中〃〃
case 〃ronaldreagan〃
response。write 〃Hi。You must be the actor president！《 p》〃
case 〃jimmycarter〃
response。write 〃Hi。You must be the peanut farmer president！《 p》〃
case 〃naokocharles〃
response。write 〃Hi。Your name reminds me of someone；but I am not sure who！《 p》〃
case else
response。write 〃Hi！Nice to Meet You〃
End Select ％》
请注意 Select Case 结构只计算开始处的一个表达式，并且只计算一次，而 If。。。Then。。。ElseIf 结构计算每个 ElseIf 语句的表达式，这些表达式可以各不相同。因此仅当每个 ElseIf 语句计算的表达式都相同时，才可以使用 Select Case 结构代替 If。。。Then。。。ElseIf 结构。Select Case 语句也是可以是嵌套的，每一层嵌套的 Select Case 语句必须有与之匹配的 End Select 语句。
以上给大家介绍的脚本语言 VBScript 的函数和条件语句的使用方法，由于篇幅的缘故不能详细展开，希望各位有志学习 ASP 的朋友，能在课后进行一定程度的自学和练习。在日常开发 ASP 应用程序的过程中作者本人日渐体会到了脚本语言的重要性，灵活运用脚本语言将非但可以大大提高 ASP 应用程序的开发过程，给广大网站制作人员节省大量的时间，而且还能够增强 ASP 应用程序的执行效率和功能。欲善其事必先利其器，因此作者在此强烈建议诸君，熟练掌握脚本语言，这将对你的 ASP 程序开发大有帮助。由于本文不是 VBScript 教程，因此只能用较小的篇幅给大家简要介绍一些 VBScript 基本常识，在下一期介绍完 VBScript 的循环语句后，我们将正式开始学习 ASP 的内建对象，要深入 VBScript，建议大家找些教材进行自学。如果你在看完本文后有任何问题请及时 Mail 我，如果你有什么好的建议也请来信告知，谢谢。
ASP教程：ASP脚本循环语句
在本文上两篇中，我们学习了脚本语言 VBScript 的变量、函数、过程和条件语句，本篇将继续给大家介绍 VBScipt 的循环语句，并对脚本语言在 ASP 中的应用加以总结。
如果有人告诉你学习 ASP 不需要任何编程知识，那么他错了；如果我告诉你学习 ASP 必须掌握一门编程语言，那么我错了。ASP 动态服务器页面环境的特点就在于它是通过一种或几种脚本语言而写成的，脚本语言可以看作是编程语言的简化版，它易于学习和掌握，这给广大动态网站的设计者们提供了相当大的便利。可以这么说 ： 脚本语言运用的得当与否直接关系到 ASP 应用程序的优与劣。继上一篇我们学习了脚本语言 VBScript 的函数和条件语句后，今天我们继续来看看 VBScript 中的循环语句。
循环语句的作用就是重复执行程序代码，循环可分为三类：一类在条件变为〃假〃之前重复执行语句，一类在条件变为〃真〃之前重复执行语句，另一类按照指定的次数重复执行语句。在 VBScript 中可使用下列循环语句：
Do。。。Loop： 当（或直到）条件为〃真〃时循环。
While。。。Wend： 当条件为〃真〃时循环。
For。。。Next： 指定循环次数，使用计数器重复运行语句。
For Each。。。Next： 对于集合中的每项或数组中的每个元素，重复执行一组语句。
我们先来看看 Do。。。Loop，它是可以多次（次数不定）运行语句块。当条件为〃真〃时或条件变为〃真〃之前，重复执行语句块。请看下例： 《 html》《 head》
《 title》DoLoop。asp《 /title》《 body bgcolor=〃#FFFFFF〃》《 /head》《 p》《 /p》
《 p》请将今年到本月为止的每个月份的销售结算记录填写在本页之上。《 P》
《 ％
counter = 1
thismonth = month（now（））
Do while counter 《 thismonth ＋ 1
response。write 〃 〃 & counter & 〃 月份 ： 〃
response。write 〃______________________________〃 & 〃《 BR》《 br》〃
If counter 》13 then
exit do
end if
counter = counter＋1
Loop
％》
《 hr》《 /body》《 /html》
这段 ASP 程序运用循环语句制作了一张销售结算记录表，将以上代码剪贴至记事簿保存为 DoLoop。asp，并在浏览器中以 HTTP 方式进行浏览，根据当前的月份的不同，你将看到如下图的结果。
我们来分析一下此段程序，我们的目的是要根据当前的月份打印一张表格，首先我们建立一个计数器〃count〃并将其值设为 1，然后我们用函数 month（） 和 now（） 得到当前的月份，最后建立循环，当 count 的值小于当前月份的值加 1 的时候，即显示月份值及一条横线并将 count 的值加 1，循环语句重复执行直到以上条件为假时退出循环。其中如果 count 大于 1
