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( 留神：请将程序中“<”后的空格去掉 ) 　　< html>
　　< head>
　　< TITLE>if1.asp< /TITLE>
　　< /head>< body bgcolor="#FFFFFF">
　　< form action="if2.asp" method=get>
　　Your First Name< INPUT NAME="FirstName" MaxLength=20>< p>
　　Your Last Name< INPUT NAME="LastName" MaxLength=20>< p>
　　< INPUT TYPE=submit>< INPUT TYPE=reset>
　　< /form>
　　< /body>
　　< /html>
　　将以下语句剪贴到记事簿中，并 保留为 if2.asp 　　< html>
　　< head>
　　< TITLE>ifrespond.asp< /TITLE>
　　< /head>
　　< % fname=request.querystring("Firstname")
　　lname=request.querystring("Lastname")
　　If fname="George" and lname="Washington" then %>
　　Hi.You must be the first president!
　　< % else %>
　　Hi!Nice to Meet You
　　< %end if %>
　　< /body>
　　< /html>

　 　asp1.asp 产生一个文本输入框，要求消费者输入姓、名，如下图：

　 　asp2.asp 则是用 IF 语句推断消费者输入的姓名是不是为“George Washington”,并做出相应的反馈 。在此我们遇到了一个 ASP 的内建对象 request，通过 使用 request 对象 可以 拜访任何用 HTTP 申请传递的信息，包含从 HTML 表格中用 POST 步骤或 GET 步骤传递的参数、cookie 和消费者认证 。而 QueryString 集中检索 HTTP 查问字符串中变量的值，HTTP 查问字符串由问号 (?) 后的值指定 。如：

　 　http://localhost/if2.asp?Firstname=George&Lastname=Washington

　　生成值为 "Firstname=George&Lastname=Washington" 的变量名字符串 。关于 ASP 对象作者将在今后的几篇里重点讲述 。

　　If...Then...Else 语句的一种变形同意您从多个条件中 取舍，即增加 ElseIf 子句以扩充 If...Then...Else 语句的 性能，使您 可以操纵基于多种可能的程序流程 。

　　我们将 asp2.asp 的程序 部分扩充如下：　　< %
　　fname=lcase(request.querystring("Firstname"))
　　lname=lcase(request.querystring("Lastname"))
　　If fname="george" and lname="washington" then %>
　　Hi.You must be the first president!< p>
　　< % elseIf fname="ronald" and lname="reagan" then %>
　　Hi.You must be the actor president!< p>
　　< % elseIf fname="jimmy" and lname="carter" then %>
　　Hi.You must be the peanut farmer president!< p>
　　< % elseIf fname="naoko" or fname="charles" then %>
　　Hi.Your name reminds me of someone,but I am not sure who!< p>
　　< % else %>
　　Hi!Nice to Meet You
　　< % end if %>

　 　 可以增加任意多个 ElseIf 子句以提供多种 取舍 。但 使用多个 ElseIf 子句 时常会使程序变得很累赘 。在多个条件中进行 取舍的更好 步骤是 使用 Select Case 语句 。

　 　Select Case 构造提供了 If...Then...ElseIf 构造的一个变通 模式， 可以从多个语句块中 取舍执行其中的一个 。Select Case 语句提供的 性能与 If...Then...Else 语句 类似，然而 可以使代码更加简练易读 。Select Case 构造在其开始处 使用一个只计算一次的 容易测试 抒发式 。 抒发式的 后果将与 构造中每个 Case 的值 比较 。假如匹配，则执行与该 Case 关联的语句块，我们同样 可以用 Select Case 语句来写 asp2.asp 文件：
　　< %
　　fname=lcase(request.querystring("Firstname"))
　　lname=lcase(request.querystring("Lastname"))
　　name=fname+lname
　　Select case name
　　case "georgewashington"
　　response.write "Hi.You must be the first president!< p>"
　　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 我，假如你有什么好的 提议也请来信告知，谢谢 。