最新更新 sitemap 网站制作设计本站搜索
网页设计
国外网站 韩国网站 个人主页 手提袋设计 CSS 网页特效 平面设计 网站设计 Flash CMS技巧 服装网站 php教程 photoshop 画册 服务器选用 数据库 Office
虚拟主机 域名注册 云主机 网页设计 客服QQ:8208442
当前位置:首页 > 编程开发 > asp教程

ASP中使用ServerVariables集合详解技巧

日期:10-31    来源:网页设计秀    作者:cnwebshow.com

  当讨论Request对象内容时,要研究的集合之一就是ServerVariables集合。这个集合包含了两种值的结合体,一种是随同页面请求从客户端发送到服务器的HTTP报头中的值,另外一种是由服务器在接收到请求时本身所提供的值。6GG中国设计秀

  “自引用”页面6GG中国设计秀

  在ServerVariables集合中返回的值包含Web服务器的详细信息和当前页面的路径信息。在任何地方创建一个页面都可使用这些信息。例如创建一个“自引用”页面,此页面能够再次调用自身完成另一项任务,我们可以用以下代码:6GG中国设计秀

<FORM ACTION=”<% = Request.ServerVariables(“PATH_INFO”) %>” METHOD=”POST”>6GG中国设计秀

  同样的效果可以用HTTP的“SCRipT_NAME”值获得:6GG中国设计秀

<FORM ACTION=”<% = Request.ServerVariables(“SCRIPT_NAME”) %>” METHOD=”POST”>6GG中国设计秀

  使用<A>元素打开一个不同页,可以使用:6GG中国设计秀

...6GG中国设计秀
<%6GG中国设计秀
strFullPath = Request.ServerVariables(“PATH_INFO”)6GG中国设计秀
‘Strip off the file name6GG中国设计秀
strPathOnly = Left(strFullPath, InStrRev(strFullPath, “/”))6GG中国设计秀
strNextPage = strPathOnly & “pages/next_page.asp”6GG中国设计秀
%>6GG中国设计秀
...6GG中国设计秀
<A HREF=”<% = strNextPage %>”>Next Page</A>6GG中国设计秀
...6GG中国设计秀

  即使原始页面的名称或位置发生变化,这些实例都能正常工作,因为使用了当前页面的路径信息(当然,第二个例子在分离的目标页的名称发生变化时运行会失败)。6GG中国设计秀

  换句话说,如果为搜索引擎的子会话自动建立URL,可以收集ServerVariable的一些值:6GG中国设计秀

strFullURL = http:// & Request.ServerVariables(“LOCAL_ADDR”) _6GG中国设计秀
& “:” & Request.ServerVariables(“SERVER_PORT”) _6GG中国设计秀
& Request.ServerVariables(“PATH_INFO”)6GG中国设计秀

  这将创建一个完整的URL包括端口号(这种情况下,不是标准值80)。例如,结果可能是:6GG中国设计秀

http://194.74.60.254:1768/thispath/thispage.asp6GG中国设计秀

  检测浏览器的版本6GG中国设计秀

  ServerVariables集合中,另外一个有用的值是用户浏览器的用户代理字符串。在“Detecting the Browser Type”页面(browsertype.asp),使用ServerVariables集合中的“HTTP_USER_AGENT”值来获得用户代理字符串,一些脚本用来解析该信息并寻找生产厂家名称和浏览器版本。6GG中国设计秀

<%6GG中国设计秀
strUA = Request.ServerVariables(“HTTP_USER_AGENT”)6GG中国设计秀
Response.Write “The User Agent string is <B>” & strUA & “</B>6GG中国设计秀
6GG中国设计秀
If InStr(strUA, “MSIE”) Then6GG中国设计秀
Response.Write “To upgrade your browser go to “_6GG中国设计秀
& “<A HREF=” & Chr(34) & http://www.microsoft.com/ie/”_6GG中国设计秀
& Chr(34) & “>http://www.microsoft.com/ie/<A>6GG中国设计秀
6GG中国设计秀
intVersion = Cint(Mid(strUA, InStr(strUA, “MSIE”) + 5, 1))6GG中国设计秀
If intVersion >=4 Then6GG中国设计秀
Response.Write “You can use Microsoft Dynamic HTML”6GG中国设计秀
End If6GG中国设计秀
Else6GG中国设计秀
If InStr(strUA, “Mozilla”) Then6GG中国设计秀
If InStr(strUA, “compatible;”) = 0 Then6GG中国设计秀
Response.Write “Your browser is PRobably Navigator. You can “_6GG中国设计秀
& “download the latest version of Navigator from “_6GG中国设计秀
& “<A HREF=” & Chr(34) & http://home.netscape.com/”_6GG中国设计秀
& “download/”& Chr(34) & “>http://home.netscape.com”_6GG中国设计秀
& “/download/</A>6GG中国设计秀
6GG中国设计秀
intVersion = Cint(Mid(strUA, InStr(strUA, “/”) +1, 1))6GG中国设计秀
If intVersion >= 4 Then6GG中国设计秀
Response.Write “You can probably use Netscape Dynamic HTML”6GG中国设计秀
End If6GG中国设计秀
Else6GG中国设计秀
strVersion = Mid(strUA, InStr(strUA, “compatible;”) + 12)6GG中国设计秀
strProduct = Left(strVersion, InStr(strVersion, “ “))6GG中国设计秀
Response.Write “Your browser is Navigator-compatible. You can”_6GG中国设计秀
& “search for the manufacturer using a search engine, such as”_6GG中国设计秀
& “<A HREF=” & Chr(34) _6GG中国设计秀
& “http://www.altaVista.digital.com/cgi-bin/query?q=”_6GG中国设计秀
& strProduct _6GG中国设计秀
& Chr(34) & “>http://www.altavista.com/</A>6GG中国设计秀
6GG中国设计秀
End If6GG中国设计秀
End If6GG中国设计秀
End If6GG中国设计秀
%>6GG中国设计秀

  对IE 5.0和Navigator 4.61的搜索结果分别不同,对于其他厂家的浏览器,可以得到一个链接在Alta Vista Web站点自动开始搜索厂家的名称。6GG中国设计秀

  注意,Netscape在用户代理字符串中不提供厂家的名称,因而无法绝对保证一个浏览器一定是Navigator。6GG中国设计秀

  检测浏览器的语言6GG中国设计秀

  ServerVariables集合中另外一个有用的值是“HTTP_ACCEPT_LANGUAGE”,它包含了一个当浏览器安装时指定的,或硬编码进用户的地区版本的语言代码。语言代码的例子有en-us(英国、美国)、de-at(德国、澳大利亚)和es-pe(西班牙、秘鲁)。6GG中国设计秀

  语言代码可以是一般的且省略方言标识:例如,在我们的站点Wrox者,大批浏览者都是将en(英语)作为语言代码。6GG中国设计秀

  因此,可以检测语言代码并自动装载一个合适的特定地区或指定语言版本的页面。6GG中国设计秀

StrLocale = Lcase(Left(Request.ServerVariables(“HTTP_ACCEPT_LANGUAGE”),2))6GG中国设计秀
Select Case strLocale6GG中国设计秀
 Case “en”: Response.Redirect “http://uk_site.co.uk/”6GG中国设计秀
 Case “de”: Response.Redirect “http://de_site.co.de/”6GG中国设计秀
 Case “fr”: Response.Redirect “http://fr_site.co.fr/”6GG中国设计秀
 ‘... etc6GG中国设计秀
 Case Else: Response.Redirect “http://us_sitel.com/”6GG中国设计秀
End Select6GG中国设计秀

  或者根据特定的方言,重定向页面:6GG中国设计秀

strLocale = Lcase(Request.ServerVariables(“HTTP_ACCEPT_LANGUAGE”))6GG中国设计秀
Select Case strLocale6GG中国设计秀
 Case “en-gb”: Response.Redirect “http://uk_site.co.uk/”6GG中国设计秀
 Case “en-us”: Response.Redirect “http://us_site.com/”6GG中国设计秀
 Case “es-pe”: Response.Redirect “http://es_site2.co.pe/”6GG中国设计秀
 ‘...6GG中国设计秀
 Case Else: Response.Redirect “http://us_site1.com/”6GG中国设计秀
End Select6GG中国设计秀

  其他有用的ServerVariables集合的值6GG中国设计秀

  可以访问和使用ServerVariables集合中的任何一成员,控制ASP页面响应一个请求的方式。可以检查一个浏览者访问站点时使用的是否是缺省端口80或还是另一个。在这个例子里,寻找通过端口443的访问——这个端口提供的是安全套接字层(Secure Socket Layer,SSI)访问(和其他的协议),且将它们重定向到一个相应的页面。6GG中国设计秀

If Request.ServerVariables(“SERVER_PORT”) = “443”) Then6GG中国设计秀
Response.Redirect “/securesite/default.asp” ‘Secure user6GG中国设计秀
Else6GG中国设计秀
Response.Redirect “/normalsite/default.asp” ‘Non-secure user6GG中国设计秀
End If 6GG中国设计秀

  假如要求浏览者注册且由服务器验证(而不是允许他们在Web服务器的IUSER帐号下匿名访问,这个问题将在后面章节中详细讨论),可以查询用户名称,来判定正在与我们打交道的用户是谁,是否装载页面给该用户。例如,下面的这个代码将只向名为Administrator的用户显示管理链接。6GG中国设计秀

...6GG中国设计秀
<A HREF=”dispcnfg.asp”>Change Display Configuration</A>6GG中国设计秀

<A HREF=”dispcolr.asp”>Change Display Colors</A>6GG中国设计秀

<A HREF=”keyboard.asp”>Change Keyboard Configuration</A>6GG中国设计秀

<%6GG中国设计秀
If Request.ServerVariables(“AUTH_USER”) _6GG中国设计秀
= Ucase(Request.ServerVariables(“SERVER_NAME”)) & “Administrator” Then6GG中国设计秀
%>6GG中国设计秀
<A HREF=”allusers.asp”>Administer All Users</A>6GG中国设计秀

<A HREF=”usrlogon.asp”>Administer Logon Information</A>6GG中国设计秀
<%6GG中国设计秀
End If6GG中国设计秀
%>6GG中国设计秀
...6GG中国设计秀

  注意ASP不填写ServerVariables集合直到你访问其中的一个成员。首次访问该集合的一个成员将使IIS得到它的全部,应只在需要时才使用ServerVariables集合。6GG中国设计秀

  其他Request和Response技巧6GG中国设计秀

  现在,来看一下几个使用Request和Response对象的有用技巧,包括:6GG中国设计秀

  · 连接、缓冲和页面重定向的管理。6GG中国设计秀

  · HTTP报头、缓存与“到期”页面的操作。6GG中国设计秀

  · 利用客户证书。6GG中国设计秀

  · 创建定制的日志文件消息。6GG中国设计秀

  1. 连接、缓冲和页面重定向的管理6GG中国设计秀

  ASP的一个很有用的特点就是使用户能够从一个ASP网页转向到另一个网页(ASP或HTML),或另一个源文件(例如一个ZIP文件或文本文件)。这对用户来说是透明的,实际上是浏览器做这个工作。当使用Response.Redirect方法来载入一个新的网页时,实际上是发送回一个特殊的HTTP报头到客户。此报头为:6GG中国设计秀

  HTTP/1.1 302 Object Moved6GG中国设计秀
  Location /newpath/newpage.asp6GG中国设计秀

  浏览器读到此报头信息,并按Location值的指示载入页面。这在功能上与在Web页中使用客户端HTML<META>标记相同,例如:6GG中国设计秀

<META HTTP-EQUIV=”REFRESH” CONTENT=”0;URL=/newpath/newpage.asp”>6GG中国设计秀

  这带来的一个问题是,服务器与用户之间的代理服务器可能会提供它自己的包含与新页面的链接的消息,而不是直接载入新页面。而且浏览器根据厂商和版本可能做同样的工作。这就去除了假定的透明,而且对用户来说一直收到的是错误信息,则对你的站点的访问变得比较麻烦。6GG中国设计秀

  在发送诸如文本或HTML等任何页面内容后,我们就不能再使用Redirect方法。然而,一个看起来能够限制“代理服务器影响”的方法是,先确定没有输出(包括HTTP报头)被发送到客户。在ASP 2.0中,必须打开缓冲,然后使用Clear方法来清空缓冲区:6GG中国设计秀

Response.Buffer = True6GG中国设计秀
‘Some condition to select the appropriate page:6GG中国设计秀
If Request.ServerVariables(“SERVER_PORT”) = 1856 Then6GG中国设计秀
 StrNewPage = “/newpath/this_page.asp”6GG中国设计秀
Else6GG中国设计秀
 StrNewPage = “/newpath/the_other_page.asp”6GG中国设计秀
End If6GG中国设计秀
Response.Clear6GG中国设计秀
Response.Redirect strNewPage6GG中国设计秀

  在ASP 3.0中,缓冲缺省为打开,所以第一行可被忽略,但它是无害的,而且能确保我们的网页即使在ASP 2.0环境中也仍然能工作。6GG中国设计秀
与其使用这种类型的HTTP报头重定向,不如使用ASP 3.0的一个新特性,它允许我们通过Server对象的Transfer方法转换为执行另一个网页,我们将在以后进一步研究这个问题。6GG中国设计秀

  1) ASP页面缓冲区6GG中国设计秀

  正如已看到过的,IIS 5.0中ASP 3.0页面缓冲是缺省打开的,在早期的版本中是缺省关闭的。微软告诉我们缓冲在IIS 5.0中提供了更有效的网页传送,这就是缓冲缺省状态被改变的原因。在大部分情况下,这对我们没有影响。但是,假如有一个非常大的网页,或一个用ASP或别的服务器端代码和组件花费一定时间创建的网页,当其各部分完成时,我们能够分批刷新它们到客户:6GG中国设计秀

...6GG中国设计秀
... Code to create first part of the page6GG中国设计秀
...6GG中国设计秀
Response.Flush6GG中国设计秀
...6GG中国设计秀
... Code to create next part of page6GG中国设计秀
...6GG中国设计秀
Response.Flush6GG中国设计秀
...6GG中国设计秀

  有时可能希望在页面结束之前的某些点上停止代码的执行,可以通过调用End方法去刷新所有的当前内容到客户并中止任何进一步的处理过程。6GG中国设计秀

...6GG中国设计秀
... Code to create first part of the page6GG中国设计秀
If strUserName = “” Then Response.Clear6GG中国设计秀
...6GG中国设计秀
... Code to create a new version of this part of the page6GG中国设计秀
...6GG中国设计秀

  这里有两上演示缓冲和重定向的实例网页,可以从“Response Object”主页面(sow_response.asp)下载它们。第一个Response.Redirect例子网页命名为redirect.asp,它在缓冲的页面中定入一些内容,清除缓冲区,并重定向到另一个网页:6GG中国设计秀

For intLoop = 1 To 10000006GG中国设计秀
 Response.Write “.”6GG中国设计秀
Next6GG中国设计秀
Response.Clear6GG中国设计秀
Response.Redirect “show_redirect.asp”6GG中国设计秀
Response.End6GG中国设计秀

  目标页show_response.asp,做同样的工作,但重定向则是回到“Response Object”主页。因为这些网页都在缓冲区内,而且所有的输出在重定向之前必须清除,故在浏览器中没有可见的输出。然而,可以通过观察浏览器的状态看到发生的每一次重定向。如下图所示:6GG中国设计秀

<img src=http://go2.163.com/~davelu/asp14.jpg>6GG中国设计秀

  在“Response Object”主页中,点击“Response.Flush”链接将打开第二个示例网页usebuffer.asp,它简单地遍历一个字符串的每一个字符,以一定的延迟将它们刷新到客户,这虽是Web服务器和ASP极低效率的使用方式,但它演示了缓冲的工作方式。6GG中国设计秀

<img src=http://go2.163.com/~davelu/asp15.jpg>6GG中国设计秀

  下面是所要求的最小化的ASP代码,注意我们分别把每个字符刷新到浏览器,因为不这样的话它将被存放在缓冲区中,直至网页完成:6GG中国设计秀

strText = “This text has been flushed to the browser using “ & _6GG中国设计秀
“<B>Response.Flush</B>6GG中国设计秀
6GG中国设计秀
For intChar =1 To Len(strText)6GG中国设计秀
 For intWrite = 1 To 1000006GG中国设计秀
 Next6GG中国设计秀
 Response.Write Mid(strText,intChar,1)6GG中国设计秀
 Response.Flush6GG中国设计秀
Next6GG中国设计秀

  2) Response.IsClientConnected属性6GG中国设计秀

  IsClientConnected属性在ASP 2.0中已经存在了,但却有些不可靠。在其返回一个准确的结果之前必须发送一些输出到客户。

本文引用地址:/bc/article_46522.html
网站地图 | 关于我们 | 联系我们 | 网站建设 | 广告服务 | 版权声明 | 免责声明