久久寻网-重阳博客 » asp教程 http://www.99xunle.com 把博客当作一种投资,时间久了就会看到她价值的所在. Thu, 24 Jun 2010 09:09:16 +0000 http://wordpress.org/?v=2.9.2 en hourly 1 asp10分钟入门教程 http://www.99xunle.com/archives/716 http://www.99xunle.com/archives/716#comments Sat, 28 Mar 2009 09:16:02 +0000 重阳 http://www.99xunle.com/?p=716 Request.QueryString 和 Request.Form 命令可用于从表单取回信息
使用 method=”get” 的表单 用 Request.QueryString 命令与用户进行交互。
使用 method=”post” 的表单  用 Request.Form 命令与用户进行交互
使用 Request.Form 通过单选按钮与用户进行交互。
<%
dim name
name=Request.QueryString(“FormName”)
If name<>”" Then
      Response.Write(“你好！” & name & “！<br />”)
      Response.Write(“今天过得怎么样？”)
End If
%>
Welcome cookie 
“Response.Cookies” 命令用于创建 cookie。
<%
Response.Cookies(“firstname”)=”Alex” 
Response.Cookies(“firstname”).Expires=#May 10,2002#   ‘设置 cookie 的失效时间
%>
“Request.Cookies” 命令用于取回 cookie 的值。
<%
fname=Request.Cookies(“firstname”)
response.write(“Firstname=” & fname)
%>
如果一个 cookie 包含多个值的一个集合，我们就可以说 cookie 拥有键（Keys）。
<%
Response.Cookies(“firstname”)=”Alex”
Response.Cookies(“user”)(“firstname”)=”John”
Response.Cookies(“user”)(“lastname”)=”Adams”
Response.Cookies(“user”)(“country”)=”UK”
Response.Cookies(“user”)(“age”)=”25″
%>
读取这些 cookie
<%
dim x,y
for each x in Request.Cookies
  response.write(“<p>”)
  if Request.Cookies(x).HasKeys then
    for each y in Request.Cookies(x)
      response.write(x & “:” & y & “=” & Request.Cookies(x)(y))
      response.write(“<br />”)
    next
  else
    Response.Write(x & “=” & Request.Cookies(x) & “<br />”)
  end if
  response.write “</p>”
next
%>
假如用户没有在规定的时间内在应用程序中请求或者刷新页面，session 就会结束。默认值为 20 分钟。
如果您希望将超时的时间间隔设置得更长或更短，可以设置 Timeout 属性
<%
Session.Timeout=5
%>
要立即结束 session，可使用 Abandon 方法
<%
Session.Abandon
%>
存储和取回 session 变量
<%
Session(“username”)=”Donald Duck”
Session(“age”)=50
%>
一旦值被存入 session 变量，它就能被 ASP 应用程序中的任何页面使用：
Welcome <%Response.Write(Session(“username”))%>
 
也可以在 session 对象中保存用户参数，然后通过访问这些参数来决定向用户返回什么页面。
下面例子规定，假如用户使用低显示器分辨率，则返回纯文本版本的页面
<%If Session(“screenres”)=”low” Then%> 
  This is the text version of the page
<%Else%> 
  This is the multimedia version of the page
<%End If%>
 
contents 集合包含所有的 session 变量
可通过 remove 方法来移除 session 变量
在下面的例子中，假如 session 变量 “age” 的值小于 18，则移除 session 变量 “sale“
<%
If Session.Contents(“age”)<18 then 
  Session.Contents.Remove("sale")
End If 
%>
如需移除 session 中的所有变量，请使用 RemoveAll 方法
<%
Session.Contents.RemoveAll()
%>
contents 集合包含所有的 session 变量。可通过遍历 contents 集合，来查看其中存储的变量
<%
Session(“username”)=”Donald Duck”
Session(“age”)=50
dim i
For Each i in Session.Contents
  Response.Write(i & “<br />”)
Next
%>

 
如果需要了解 contents 集合中的项目数量，可使用 count 属性
<%
dim i
dim j
j=Session.Contents.Count
Response.Write(“Session variables: ” & j)
For i=1 to j
  Response.Write(Session.Contents(i) & “<br />”)
Next
%>
可通过循环 StaticObjects 集合，来查看存储在 session 对象中所有对象的值
<%
dim i
For Each i in Session.StaticObjects
  Response.Write(i & “<br />”)
Next
%>
 
web 上的一个应用程序可以是一组 ASP 文件。这些 ASP 文件一起协同工作来完成某项任务。ASP 中的 Application 对象用来把这些文件捆绑在一起
Application 对象用于存储和访问来自任何页面的变量，类似于 session 对象。不同之处在于，所有的用户分享一个 Application 对象，而 session 对象和用户的关系是一一对应的
Application 对象握有会被应用程序中的许多页面使用的信息（比如数据库连接信息）。这意味着可以从任何的页面访问这些信息。同时也意味着你可在一个地点改变这些信息，然后这些改变会自动反映在所有的页面上
存储和取回 Application 变量
Application 变量可被应用程序中的任何页面访问和改变
可以像这样在 “Global.asa” 中创建 Application 变量
<script language=”vbscript” runat=”server”>
Sub Application_OnStart
application(“vartime”)=”"
application(“users”)=1
End Sub
</script>
可以像这样访问 Application 变量的值
There are
<%
Response.Write(Application(“users”))
%>
active connections.
Contents 集合包含着所有的 application 变量。我们可以通过对 contents 集合进行遍历，来查看其中存储的变量
<%
dim i
For Each i in Application.Contents
  Response.Write(i & “<br />”)
Next
%>
如果你不清楚 contents 集中的项目数量，可使用 count 属性
<%
dim i
dim j
j=Application.Contents.Count
For i=1 to j
  Response.Write(Application.Contents(i) & “<br />”)
Next
%>
可通过循环 StaticObjects 集合，来查看所有存储于 Application 对象中的对象的值
<%
dim i
For Each i in Application.StaticObjects
  Response.Write(i & “<br />”)
Next
%>
我们可以使用 “Lock” 方法来锁定应用程序。当应用程序锁定后，用户们就无法改变 Application 变量了（除了正在访问 Application 变量的用户）。我们也可使用 “Unlock” 方法来对应用程序进行解锁。这个方法会移除对 Application 变量的锁定
<%
Application.Lock
  ‘do some application object operations
Application.Unlock
%>
通过使用 #include 命令，我们可以在服务器执行 ASP 文件之前，把另一个ASP文件插入这个文件中
如果名为 “header.inc” 位于名为 /html 的虚拟目录中，下面这行代码会插入文件 “header.inc” 中的内容
<!– #include virtual =”/tpl/header.inc” –>
假设文件位于 html 文件夹的子文件夹 headers 中，下面这段代码可引用 “header.inc” 文件的内容
<!–#include file =”htm/header.inc”–>
 
Global.asa 文件是一个可选的文件，它可包含可被 ASP 应用程序中每个页面访问的对象、变量以及方法的声明。所有合法的浏览器脚本都能在 Global.asa 中使用。
Global.asa 文件可包含下列内容
Application 事件
Session 事件
<object> 声明
TypeLibrary 声明
#include 命令
注释：Global.asa 文件须存放于 ASP 应用程序的根目录中，且每个应用程序只能有一个 Global.asa 文件。
 
在 Global.asa 中，我们可以告知 application 和 session 对象在启动和结束时做什么事情。完成此项任务的代码被放置在事件操作器中。Global.asa 文件能包含四种类型的事件：

Application_OnStart – 此事件会在首位用户从 ASP 应用程序调用第一个页面时发生。此事件会在 web 服务器重起或者 Global.asa 文件被编辑之后发生。”Session_OnStart” 事件会在此事件发生之后立即发生。

Session_OnStart – 此事件会在每当新用户请求他或她的在 ASP 应用程序中的首个页面时发生。

Session_OnEnd – 此事件会在每当用户结束 session 时发生。在规定的时间（默认的事件为 20 分钟）内如果没有页面被请求，session 就会结束。

Application_OnEnd – 此事件会在最后一位用户结束其 session 之后发生。典型的情况是，此事件会在 Web 服务器停止时发生。此子程序用于在应用程序停止后清除设置，比如删除记录或者向文本文件写信息。

Global.asa 文件可能类似这样

<script language=”vbscript” runat=”server”>

sub Application_OnStart
  ’some code
end sub

sub Application_OnEnd
  ’some code
end sub

sub Session_OnStart
  ’some code
end sub

sub Session_OnEnd
  ’some code
end sub

</script>

注释：由于无法使用 ASP 的脚本分隔符 (<% 和 %>) 在 Global.asa 文件中插入脚本，我们需使用 HTML 的 <script> 元素。
 
可通过使用 <object> 标签在 Global.asa 文件中创建带有 session 或者 application 作用域的对象。
第一个实例创建了一个名为 “MyAd” 且使用 ProgID 参数的 session 作用域对象
<object runat=”server” scope=”session” id=”MyAd” progid=”MSWC.AdRotator”>
</object>
第二个实例创建了名为 “MyConnection” 且使用 ClassID 参数的
<object runat=”server” scope=”application” id=”MyConnection” classid=”Clsid:8AD3067A-B3FC-11CF-A560-00A0C9081C21″>
</object>
在此 Global.asa 文件中声明的这些对象可被应用程序中的任何脚本使用。
某个 .ASP 文件:
<%=MyAd.GetAdvertisement(“/banners/adrot.txt”)%> 
 
TypeLibrary （类型库）是一个容器，其中装有对应于 COM 对象的 DLL 文件。通过在 Global.asa 中包含对 TypeLibrary 的调用，可以访问 COM 对象的常量，同时 ASP 代码也能更好地报告错误。假如您的站点的应用程序依赖于已在类型库中声明过数据类型的 COM 对象，您可以在 Global.asa 中对类型库进行声明
<!–METADATA TYPE=”TypeLib”
file=”filename”          ‘规定指向类型库的绝对路径。参数 file 或者 uuid，两者缺一不可
uuid=”typelibraryuuid”     ‘规定了针对类型库的唯一的标识符。参数 file 或者 uuid，两者缺一不可
version=”versionnumber”   ‘可选。用于选择版本。假如没有找到指定的版本，将使用最接近的版本。
lcid=”localeid”       ‘可选。用于类型库的地区标识符。
–>
注释：METADATA 标签可位于 Global.asa 文件中的任何位置（在 <script> 标签的内外均可）。不过，我们还是推荐将 METADATA 标签放置于 Global.asa 文件的顶部。
 
Global.asa 实例
Global.asa 文件:

<script language=”vbscript” runat=”server”>
Sub Application_OnStart
Application(“visitors”)=0
End Sub

Sub Session_OnStart
Application.Lock
Application(“visitors”)=Application(“visitors”)+1
Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
Application(“visitors”)=Application(“visitors”)-1
Application.UnLock
End Sub
</script>

此 ASP 文件会显示当前用户的数目:

<html>
<head>
</head>
<body>
<p>There are <%response.write(Application(“visitors”))%> online now!</p>
</body>
</html>
 
CDOSYS 是 ASP 中的内置组件。此组建用于通过 ASP 来发送电子邮件
发送电子邮件:
<%
Set myMail=CreateObject(“CDO.Message”)
myMail.Subject=”Sending email with CDO”
myMail.From=”mymail@99xunle.com”
myMail.To=”someone@99xunle.com”
myMail.TextBody=”This is a message.”
myMail.Send
set myMail=nothing
%>
使用 Bcc 和 CC 域来发送文本邮件:
<%
Set myMail=CreateObject(“CDO.Message”)
myMail.Subject=”Sending email with CDO”
myMail.From=”mymail@99xunle.com”
myMail.To=”someone@99xunle.com”
myMail.Bcc=”someoneelse@99xunle.com”
myMail.Cc=”someoneelse2@99xunle.com”
myMail.TextBody=”This is a message.”
myMail.Send
set myMail=nothing
%>
发送 HTML 邮件:
<%
Set myMail=CreateObject(“CDO.Message”)
myMail.Subject=”Sending email with CDO”
myMail.From=”mymail@99xunle.com”
myMail.To=”someone@99xunle.com”
myMail.HTMLBody = “<h1>This is a message.</h1>”
myMail.Send
set myMail=nothing
%>
发送一封由网站传送网页的 HTML 邮件:
<%
Set myMail=CreateObject(“CDO.Message”)
myMail.Subject=”Sending email with CDO”
myMail.From=”mymail@99xunle.com”
myMail.To=”someone@99xunle.com”
myMail.CreateMHTMLBody “http://www.99xunle.com”
myMail.Send
set myMail=nothing
%>
发送一封从您的电脑中的文件来传送网页的 HTML 邮件:
<%
Set myMail=CreateObject(“CDO.Message”)
myMail.Subject=”Sending email with CDO”
myMail.From=”mymail@99xunle.com”
myMail.To=”someone@99xunle.com”
myMail.CreateMHTMLBody “file://E:/documents/test.htm”
myMail.Send
set myMail=nothing
%>
发送一封带有附件的电子邮件:
<%
Set myMail=CreateObject(“CDO.Message”)
myMail.Subject=”Sending email with CDO”
myMail.From=”mymail@99xunle.com”
myMail.To=”someone@99xunle.com”
myMail.TextBody=”This is a message.”
myMail.AddAttachment “E:\documents\test99.txt”
myMail.Send
set myMail=nothing
%>
使用远程服务器发送一封文本邮件:
<%
Set myMail=CreateObject(“CDO.Message”)
myMail.Subject=”Sending email with CDO”
myMail.From=”mymail@99xunle.com”
myMail.To=”someone@99xunle.com”
myMail.TextBody=”This is a message.”
myMail.Configuration.Fields.Item _
(“http://99xunle.com/stmp/”)=2
‘Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
(“http://99xunle.com/stmp/”) _
=”smtp.server.com”
‘Server port
myMail.Configuration.Fields.Item _
(“http://99xunle.com/stmp/”)_
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>
]]> http://www.99xunle.com/archives/716/feed 0