<%@ LANGUAGE=VBScript %>
处理指令必须位于 .asp 文件的首行。要在页面中添加多条指令,这些指令必须位于相同的分隔符内。请勿将处理指令置于由“#include”语句包括的文件内。必须在符号 @ 和关键字之间加入空格。处理指令具有以下关键字:
△LANGUAGE 关键字设置用于 .asp 文件的脚本语言。请参阅使用脚本语言。
△ENABLESESSIONSTATE 关键字指定 .asp 文件是否使用会话语句。请参阅管理会话。
△CODEPAGE 关键字设置 .asp 文件的代码页(字符编码)。
△LCID 关键字设置文件的位置表示符。
△TRANSACTION 关键字指定 .asp 文件将在事务环境下运行。请参阅了解事务。
要点:可以在一条指令中包含多个关键字。关键字/值对必须由空格分开。等号两边不要留有空格。 以下示例既设置了脚本语言也设置了代码页:
<%@ LANGUAGE="JScript" CODEPAGE="932" %>
在服务器上使用 VBScript 和 ASP 时,将禁用两个 VBScript 特性。因为使用 Active Server Pages 编写的脚本在服务器上执行,所以不支持用来提供用户界面元素的 VBScript 语句 InputBox 和 MsgBox。另外,不要在服务器端脚本中使用 VBScript 函数 CreateObject 和 GetObject。而应使用 Server.CreateObject,以便 ASP 可以跟踪对象例程。由 CreateObject 语句或 GetObject 语句创建的对象既不能访问 ASP 内建的对象,也不能参与事务。
因为 ASP 中的所有脚本都在服务器端进行处理,所以,没有必要包含 HTML 注释标记,用来对不支持脚本的浏览器隐藏脚本,这是客户端脚本的通常做法。所有 ASP 命令都将在内容发送到浏览器之前处理。可以使用 HTML 注释向 HTML 页中添加备注;这些注释将被返回给浏览器,如果用户查看 HTML 源文件,将可以看到这些注释。VBScript 支持撇号格式的注释。与 HTML 注释不同,处理脚本时将删除这些注释并且不会发送到浏览器。
输出表达式中不能包含注释。例如,下面第一行能正常工作,而第二行则无法工作,因为该行以 <%= 开始。
<% i = i +1 '此语句用来递增 i 值。(此脚本会工作。) %>
<%= name '此语句用来打印变量名。(此脚本将失败。) %>
可以在 .asp 文件中使用 VBScript“Option Explicit”语句,以便要求必须使用“Dim”、“Private”、“Public”和“ReDim”语句显式声明变量。“Option Explicit”语句必须位于任何 ASP 命令、任何 HTML 文本或脚本命令之前。例如:
<% Option Explicit %>
<HTML>
<%
Dim strUserName
Public lngAccountNumber
%>
注意:将变量范围限制到过程中有利于提高性能。
有必要养成显式声明所有变量的习惯。这一点当使用“#include”语句在 .asp 文件中包含其他文件时尤其重要。被包含的脚本虽然在单独的文件中,但却当作是包含文件的一部分。除非声明变量,否则很容易忘记必须在主脚本和被包含脚本中使用不同的变量名。
如果在脚本中要多次参考 session 作用域变量,可以考虑将该变量赋给一个局部变量以便提高性能。 同样地,如果脚本重复参考 Application 作用域变量,应将该变量赋给局部变量以便提高性能。
可以定义自己的常量。在 VBScript 中,使用“Const”语句。在 JScript 中,可以使用“var”语句将常量值赋给变量。如果要在多个 .asp 文件中使用常量,则需要将定义放在单独文件中,并在所有使用该常量的 .asp 文件中包含这些定义。
将服务器端脚本语句散布到客户端脚本(由 HTML <SCRIPT> 标记括起),可以在请求时动态初始化和更改客户端脚本,用来配置客户端数据库或 DHTML 个性化脚本。创造性地运用这项技术还可以减少往返次数和服务器处理。
对首要脚本语言之外其他语言的过程使用 <SCRIPT> 元素。当使用 HTML <SCRIPT> 标签时,必须使用两个属性以便确保服务器端能够处理脚本。使用 <SCRIPT> 标签的语法为:
<SCRIPT LANGUAGE=JScript RUNAT=SERVER>
过程定义
</SCRIPT>
脚本块中的命令必须以所选脚本语言中形成一个或多个过程。例如,下列命令定义 JScript 过程“MyFunction”。
<HTML>
<SCRIPT LANGUAGE=JScript RUNAT=SERVER >
function MyFunction() { Response.Write("您调用了 MyFunction()。") }
</SCRIPT>
要点:不要在服务器端 <SCRIPT> 标签内包含任何完整过程以外的脚本命令。过程以外的命令没有固定的执行顺序,因此可能导致无法预知的结果。另外,在过程中不能使用 ASP 输出命令 <%= %>。不过,可以通过 Response.Write 将内容发送到浏览器。
对于 VBScript,调用过程时也可以使用关键字 Call。不过,如果调用的过程要求变量,则变量列表必须包含在括号内。如果省略关键字 Call,同时也必须省略包含变量列表的括号。如果使用 Call 语句调用任何内置函数或用户定义函数,将丢弃函数的返回值。
要将整个数组传递给过程,在 VBScript 中,数组名后应紧接一对空括号.
设计优秀的 Web 表单通常包含客户端脚本,以便在将信息发送到服务器之前验证用户输入。“验证脚本”可以检查许多事情,如用户输入值是否有效或者文本框是否为空。您可能需要验证用户是否在相应表单字段中输入了数字或文本信息,以防将潜在的无效信息发送到服务器。
通常,在客户端尽可能多地验证表单数据将非常有好处。除了能尽快提示用户输入错误外,客户端验证能提高响应速度、减少服务器负担并为其他应用程序释放带宽。
为了提高交互性,可以将错误信息放到无效信息所在的表单字段旁边,以便于用户发现出错的地方。(通常,基于 Web 的表单将请求转发给包含错误信息的单独的 Web 页。不能立即理解此信息的用户可能会灰心。)
由于通常无法得知集合中所存储的项目数,ASP 支持集合的 Count 属性,该属性返回集合中的项目个数。可以使用 Count 属性指定计数器的最大值。
要使通过“for”语句使用 Count 属性变得更为高效,应将 Count 值分配给本地变量,并用该变量来设置计数器的最大值。这样,脚本引擎就不必每次循环都去查找 Count 值。
<%
'声明计数器变量。
Dim lngItem, lngCount
lngCount = Session.Contents.Count
'重复该循环直到集合中的计数器等于项目个数。
For lngItem = 1 To lngCount
Response.Write Session.Contents(lngItem) & "<BR>"
Next
%>
脚本可在单个 cookie 中嵌入多个关联值,以便减少在浏览器和 Web 服务器之间传递的 cookie 数目。Request 和 Response 对象的 Cookies 集合可在单个项目中载有多个值。这些子项目或子关键字可单独使用。只有 Request.Cookies 和 Response.Cookies 集合支持子关键字。Request.Cookies 仅支持读操作,Response.Cookies 仅支持写操作。
下面将创建一个普通 cookie 和一个带子关键字的 cookie:
<%
'将 cookie 发送到浏览器。
Response.Cookies("Fruit") = "Pineapple"
'用子关键字将 cookie 发送到浏览器。
Response.Cookies("Mammals")("Elephant") = "African"
Response.Cookies("Mammals")("Dolphin") = "Bottlenosed"
%>
发送到浏览器的 HTTP 响应中的 cookie 文本显示如下:
HTTP_COOKIE= Mammals=ELEPHANT=African&DOLPHIN=Bottlenosed; Fruit=Pineapple;
可以列举出 Request.Cookies 集合中的所有 cookies 和 cookies 中的所有子关键字。不过,对不存在子关键字的 cookie 迭代子关键字将无法生成项目。要避免出现这种情况,请先检查 cookie 的子关键字是否是使用 Cookies 集合的 HasKeys 属性得到的。这一技巧将在下面的示例中加以说明。
<%
'声明计数器变量。
Dim Cookie, Subkey
'显示整个 cookie 集合。
For Each Cookie In Request.Cookies
Response.Write Cookie
If Request.Cookies(Cookie).HasKeys Then
Response.Write "<BR>"
'显示子关键字。
For Each Subkey In Request.Cookies(Cookie)
Response.Write " ->" & Subkey & " = " & Request.Cookies(Cookie)(Subkey) & "<BR>"
Next
Else
Response.Write " = " & Request.Cookies(Cookie) & "<BR>"
End If
Next
%>
该脚本将返回以下结果:
Mammals
->ELEPHANT = African
->DOLPHIN = Bottlenosed
Fruit = Pineapple
尽管 ASP 集合与 Visual Basic 中的 Collection 对象十分类似,但它们仍有一些区别。ASP 集合支持 Count 属性以及 Item、Remove 和 RemoveAll 方法,但它们不支持 Add 方法。
QueryString 集合有一个可选参数,可用来访问 URL 请求中出现的多个值中的单个值(使用 GET 方法)。也可以使用 Count 属性来计算特定类型值出现的次数。
例如,包含多项目列表框的表单可生成下面的请求:
http://OrganicFoods/list.asp?Food=Apples&Food=Olives&Food=Bread
可以使用下面的命令计算多个值:
Request.QueryString("Food").Count
要显示多个值类型,可在 List.asp 中包含下面的脚本:
<%
lngTotal = Request.QueryString("Food").Count
For i = 1 To lngTotal
Response.Write Request.QueryString("Food")(i) & "<BR>"
Next
%>
前述脚本将显示为:
Apples
Olives
Bread
要将整个值列表显示为用都逗号分隔的字符串,可以使用下面的脚本:
<% Response.Write Request.QueryString("Food") %>
将显示下面的字符串:
Apples,Olives,Bread
有时,可能需要使用 HTML <SCRIPT></SCRIPT> 标签来包含服务器端文件。例如,下面的脚本包含服务器可以执行的文件(使用相对路径):
<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="Utils/datasrt.inc"></SCRIPT>
注意 当使用此方法包含文件时不要在 <SCRIPT> 标签内放置任何程序逻辑;使用另外一组 <SCRIPT> 标签来添加这样的逻辑。
使用脚本创建 COM 组件
ASP 支持 Windows Script Components,这是 Microsoft 提供的用来创建 COM 组件的功能强大的脚本技术。尤其是,您可以将用于数据库访问或内容生成等的通用脚本封装在可重复利用的组件中,以便在任何 .asp 文件或程序中使用。无需特殊的开发工具,使用 VBScript 或 JScript 编写脚本即可创建 Windows 脚本组件。也可以将 Windows 脚本组件与使用 COM 兼容编程语言编写的程序相结合,如 Visual Basic、C++ 或 Java 等。
下面是一个用 VBScript 编写的脚本示例,它定义了将华氏温度值转换为摄氏温度值的方法:
<SCRIPTLET>
<Registration
Description="ConvertTemp"
ProgID="ConvertTemp.Scriptlet"
Version="1.00"
>
</Registration>
<implements id=Automation type=Automation>
<method name=Celsius>
<PARAMETER name=F/>
</method>
<method name=Fahrenheit>
<PARAMETER name=C/>
</method>
</implements>
<SCRIPT LANGUAGE=VBScript>
Function Celsius(F)
Celsius = 5/9 * (F - 32)
End Function
Function Fahrenheit(C)
Fahrenheit = (9/5 * C) + 32
End Function
</SCRIPT>
</SCRIPTLET>
在执行该 Windows 脚本组件之前,必须以 .sct 为扩展名保存该文件,然后在“Windows 资源管理器”中,右键单击该文件并选择“注册”。要在 Web 页中使用该 Windows 脚本组件,应使用类似以下所示的服务器端脚本:
<%
Option Explicit
Dim objConvert
Dim sngFvalue, sngCvalue
sngFvalue = 50
sngCvalue = 21
Set objConvert = Server.CreateObject("ConvertTemp.Scriptlet")
%>
<%= sngFvalue %> degrees Fahrenheit is equivalent to <%= objConvert.Celsius(sngFvalue) %> degrees Celsius<BR>
<%= sngCvalue %> degrees Celsius is equivalent to <%= objConvert.Fahrenheit(sngCValue) %> degrees Fahrenheit<BR>
通常,应避免在循环中创建对象。如果必须在循环中创建对象,则需要手工释放该对象使用的资源:
<%
Dim objAd
For i = 0 To 1000
Set objAd = Server.CreateObject("MSWC.AdRotator")
……
objAd.GetAdvertisement
……
Set objAd = Nothing
Next
%>
提供对象 Session 作用域
session-scope 对象是为应用程序中的每个新会话创建的,并且在会话结束后释放;因此,每个活动会话都有一个对象。Session 作用域用于那些由多个脚本调用但只影响一个用户会话的对象。只应在必要时提供对象 Session 作用域。如果使用 Session 作用域,则必须知道提供对象的组件的线程模型,这是因为线程模型影响对象的性能和安全环境。详细信息,请参阅本主题中的高级信息:性能问题。
要提供对象 Session 作用域,可将对象存储在 ASP 的 Session 内建对象中。可以通过在 Global.asa 文件中使用 HTML <OBJECT> 标签或在 ASP 页中使用 Server.CreateObject 方法来创建 Session 作用域对象例程。
在 Global.asa 文件中,可以使用 <OBJECT> 标签,并扩展 RUNAT 属性(必须设置为 SERVER)和 SCOPE 属性(必须设置为 Session)。下面的例子将创建“浏览器能力”组件的 Browser Type 对象的 Session 作用域实例:
<OBJECT RUNAT=SERVER SCOPE=Session ID=MyBrowser PROGID="MSWC.BrowserType">
</OBJECT>
当对象已经存储在 Session 对象中后,即可从应用程序的任何页访问该对象。下面语句使用在前例中通过 <OBJECT> 标签创建的对象实例:
<%= If MyBrowser.browser = "IE" and MyBrowser.majorver >= 4 Then . . .%>
在 ASP 页中,也可以使用 Server.CreateObject 方法将对象存储到 Session 内建的对象中。下面的示例将 Browser Type 对象的一个实例存储到 Session 对象中。
<% Set Session("MyBrowser") = Server.CreateObject("MSWC.BrowserType") %>
要在其他 .asp 文件中显示浏览器信息,必须首先检索 Session 对象中存储的 BrowserType 对象的实例,然后调用 Browser 方法来显示浏览器名称。
<% Set MyBrowser = Session("MyBrowser") %>
<%= MyBrowser.browser %>
对于通过 <OBJECT> 标签声明的对象,在 .asp 文件脚本命令参照该对象之前 ASP 不会对其实例化。Server.CreateObject 方法可立即实例化对象。因此,对于 Session 作用域对象来说,<OBJECT> 标签可以比 Server.CreateObject 方法提供更好的伸缩性。
Session 和 Application 作用域的替代方案
通常,对于那些初始化时间很长的项目或对象,如字典对象或记录集,应尽可能地使用Session 和 Application 作用域。不过,如果 session 或 application 状态的对象占用太多的资源,如内存或数据库连接,则应寻求其他方案来实施这些对象。例如,组件的线程模型会影响从该组件创建的对象性能,尤其是具有 Session 和 Application 作用域的对象的性能。
在许多情况下,比创建 Session 或 Application 作用域对象更好的方案就是使用 Session 或 Application 作用域变量,这些变量可以将信息传递给在页面级创建的对象。例如,不应对 ADO 的 Connection 对象提供 Session 或 Application 作用域,因为该对象创建的连接会长时间保持打开状态,而且脚本不再利用连接池。不过,可以在“Session”或“Application”内建的对象中存储 ODBC 或 OLE DB 连接字符串,并访问该字符串以便为在页面上创建的“Connection”对象实例设置属性。这样,可以将经常使用的信息存储为 session 或 application 状态,而且只在需要时才创建使用该信息的对象。
如果在内容或头部返回到浏览器之后使用 Response.Redirect,就会看到一条错误消息。可以使用 response.buffer=True 命令将输入到浏览器的内容缓存来解决。默认情况下,对 ASP 应用程序开启缓冲功能。
可以使用 Server.Transfer 方法而不是 Response.Redirect 方法从一个 .asp 文件传输到位于同一服务器上的另一个文件中。使用 Server.Transfer 可以直接传输 .asp 文件请求而不必离开服务器队列,这样可以节省昂贵的往返代价。
例如,下面的脚本演示了如何使用 Server.Transfer 在依赖于状态信息的应用程序页面之间跳转:
<%
If Session("blnSaleCompleted") Then
Server.Transfer("/Order/ThankYou.asp")
Else
Server.Transfer("/Order/MoreInfo.asp")
End if
%>
Server.Transfer 将请求从一个正在执行的 .asp 文件发送到另一个文件中。在传输过程中,原来请求的 .asp 文件立即终止执行,但并不清除输出缓冲。请求信息然后在目标文件中变得可用并开始执行。在执行过程中,该文件与原来请求的文件访问同一组内部对象(Request、Response、Server、Session 和 Application)。
ASP 还提供 Server.Execute 命令,可以用来传输给文件、执行其内容,然后再返回到启动传输的文件。如果熟悉 VBScript,这样就有助于将 Server.Execute 与过程调用进行类比,只不过是过程调用执行一个过程,而 Server.Execute 则是执行一个完整的 .asp 文件。
例如,下面的脚本演示了如何使用 Server.Execute 来进行 .asp 文件的动态包含:
<%
If blnUseDHTML Then
Server.Execute("DHTML.asp")
Else
Server.Execute("HTML.asp")
End If
%>
只要目标文件属于同一服务器上的某个应用程序,原始应用程序将转到该文件并执行它的内容,然后继续执行启动转换的那个文件。正象 Server.Transfer 一样,被执行的 .asp 文件的行为就象它是原始应用程序的一部分。
用户第一次请求特定应用程序内的 .asp 文件时,ASP 将生成一个“SessionID”。这是通过复杂算法产生的数值,SessionID 唯一标识每个用户的会话。新会话开始时,服务器将 Session ID 作为 cookie 存储到用户 Web 浏览器中。
ASP 每次收到网页请求时,都检查 HTTP 请求头文件内的 SessionID cookie。
只要服务器收到的请求中不包含有效的 SessionID cookie,就将自动启动新会话。
如果确定 ASP 应用程序不需要会话管理,则可以禁止 ASP 跟踪会话和向用户发送 SessionID cookie。
在下列情况下,ASP 将不会发送会话 cookie,应用程序禁用会话状态,ASP 页定义为无会话:
<%@ EnableSessionState=False %>
应将该脚本置于 .asp 文件第一行,在其他任何脚本之前。
如确实希望结束会话,可以使用“Session”对象的 Abandon 方法。例如,可以在窗体中提供“退出”按钮,在该窗体中对包含下列命令的 .asp 文件 URL 设置 ACTION 参数。
<% Session.Abandon %>
可以使用“Connection”对象建立数据库连接,也可以直接使用“Recordset”对象的“Open”方法来建立链接,后一种方法使用ADO的默认连接属性。如下是后一种方法的示例:
<%
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Data/Employees.mdb"
strSQL = "SELECT FirstName, LastName FROM Customers WHERE LastName = 'Smith' "
Set rstCustomers = Server.CreateObject("ADODB.Recordset")
'使用 Open 方法打开连接,并使用通过 Connection 对象建立的连接。
rstCustomers.Open strSQL, strConnectionString
'遍历记录集,显示结果,并使用 MoveNext 方法递增记录位置。
Set objFirstName = rstCustomers("FirstName")
Set objLastName = rstCustomers("LastName")
Do Until rstCustomers.EOF
Response.Write objFirstName & " " & objLastName & "<BR>"
rstCustomers.MoveNext
Loop
%>