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( 注意：请将程序中“<”后的空格去掉 ) < 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，建议大家找些教材进行自学。
C语言一些常用语句
C语言一些常用语句 2010-03-25 09:55 423人阅读评论(0) 收藏举报一break 1. break语句形式：break; 2. break语句功能： A. switch语句中，break语句会终止其后语句的执行，退出switch语句。 B. 使一个循环立即结束，也就是说在循环中遇到break语句时，循环立即终止， 程序转到循环体后的第一个语句去继续执行。 3. 注： A. break语句在循环中使用时，总是与if一起使用，当条件满足（或不满足） 时，负责退出循环。 B. 如果循环体中使用switch语句，而break出现在switch语句中，则它只用 于结束switch，而不影响循环。 C. break语句只能结束包含它的最内层循环，而不能跳了多重循环。 4. 例: break语句的执行只能从while循环中退出，继续执行for循环的其它语句 而不是退出外层循环。 for() { : : while()
{ : : if() break; : : } : : } 二。continue 1.continue语句形式：continue; 2.continue语句功能：它只能出现在循环体中，其功能是立即结束本次循环， 即遇到continue语句时，不执行循环体中continue后的语句，立即转去判断循环条件是否成立。 3.Continue与break语句的区别: continue只是结束本次循环，而不是终止整个循 环语句的执行，break则是终止整个循环语句的 执行，转到循环语句后的下一条语句去执行。 程序表达式及流程图如下：
(1.) while(表达式1) (2.)while(表达式1) { { : : If(表达式2) break; if(表达式2) continue; : : } } 三．goto 1.goto语句形式：goto语句是无条件转向语句，其一般形式为： goto 语句标号; 2.功能：goto语句往往用来从多重循环中跳出。它在解决一些特定问题时很方便，但由于goto语句难于控制，尽量少用。 3.例： IN: For() { : : Goto IN; }
vbscript基本语法
什么是VBScript?VBScript的全称是Visual Basic Script，有时也简称为VBS。VBScript是微软开发的一种脚本语言，可以看作是Visual Basic的简化版，目前这种语言广泛应用于网页和ASP程序。与VB不同，VBScript不能生成独立的exe可执行文件，需要由其它软件解释才能运行。有许多软件支持VBScript，比如微软IE浏览器和Office等。VBScript的局限是只能运行于Windows操作系统和基于IE的浏览器，而JavaScript则受到所有网页浏览器的支持，因此JavaScript用的比较多 运算符号 运算符 求幂 ^ 负号 - 乘 * 除 / 整除 \ 求余 Mod 加 + 减 - 字符串连接 & 逻辑运算符 逻辑非 Not 逻辑与 And 逻辑或 Or 逻辑异或 Xor 逻辑等价 Eqv 逻辑隐含 Imp 比较运算符 等于 = 不等于 <> 小于 < 大于 > 小于等于 <= 大于等于 >= 变量 VBScript中变量可以不声明，直接使用。但有时不声明会出错，所以建议养成声明变量的好习惯。变量声明有两种方式——显式与隐式，显式使用Dim、Public、Private语句进行声明，隐式直接使用变量名。使用隐式声明方式的习惯不好，因为这样有时会由于变量名拼错而导致程序运行出现意外，因此，最好在每个脚本开始第一行使用Option Explicit语句强制显式声明所有变量。声明示例如下: Option Explicit Dim i, conn '声明多个变量时用逗号隔开 Public UserName, Password
SQL常见语句及函数
1.求字持串的长度LENGTH 您可用LENGTH函数求字符串的长度。LENGTH返回一个数值。该值等于参数中的字符个数。 例：使用LENGTH函数 SQL＞select Last_Name, length(Last_Name) from customer order by LastName; 2.使用SUBSTR函数从字符串中提取子串 语法： SUBSTR函数的语法如下： SUBSTR(string, string charcter, number of charcters) 变量定义如下： string为字符列或字符串表达式 string charcter为子串的起始位置 number of charcters为返回字符的个数c 例：说明了怎样使用SUBSTR函数取得教师的姓的前四个字符 SQL＞select last_Name, substr(Last_Name, 1, 4) from instector order by Last_Name 例：在SUBSTR函数中使用LENGTH函数（取后三个字符） 5Qt．＞select last_Name, substr(Last_Name, Length(Last_Name) - 2, 3) from instector order by Last_Name 3.在字符串中查找模式 例：使用LIKE运算符 SQL＞column description format a40 word_wrapped SQL＞column title format a35 SQL＞select Title, Description from Course where Description like '%thory%' or Description like '%theories%'; 4.替换字符串的一部分 经常遇到的数据操纵任务是在特定的列中将数据由一种模式转换成另一种模式。 假设您希望在Course表中改变课程说明，将说明中的字seminar用字discussion替代．那么您可用oracle提供的函数REPLACE，该函数使得某列的字符串能被另一字符串代替。 语法： REPLACE函数的语法如下： REPLACE(string, existion_string, [replacement_string]) 变量定义如下： string为字符表达式c existion_string为已存在的字符串。 replacement_string为用来替代的可选字符串。 例：使用REPLACE函数 显示了在Course表中如何使用REPLACE来改变课程名称(title)：首先使用查询显示当前课程名称，UPDATE语句中使用REPLACE函数将SEMINAR改变成
实验6 VBScript脚本语言编程练习
实验六VBScript脚本语言编程练习 【实验目的】 通过本实验，学会使用VBScript脚本语言中的自定义函数、过程、分支语句和循环语句，编写嵌入VBScript代码的ASP程序和HTML程序。 【实验题目】 1、设PI=3.14，分别用两种方式实现，第一种，定义一个求圆面积的函数，调用它求任意 半径的圆面积；第二种，定义求圆面积的过程，调用半径为6的圆面积；（2个题目） 2、用for—next循环语句，实现1到100的平方和； 3、应用Rnd函数和Select Case语句，实现网页每刷新一次，背景色在四种颜色中随机改 变。代码提示：randomize ChangeColor=int((4*rnd())+1) ‘产生四个随机整数 4、练习使用循环语句的嵌套，编写程序在网页上显示要求的图形； 【实验内容及步骤】 提示：（1）在wwwroot文件夹下利用“记事本”应用程序新建一个空白文本文档，双击打此文档后输入相应代码。 （2）输入完毕后点击“文件”—选择“另存为”选项，在弹出的对话框中“文件名” 处输入“area.asp”，再单击“保存”按钮，在wwwroot文件夹下就出现了一个新的文件area.asp。 （3）按照上个实验介绍的方法浏览网页。 6、练习使用JavaScript脚本语言，编写网页特效程序。 1. 水中倒影.htm
