转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 站长学院 >> Web开发 >> 正文
ASP中使用ServerVariables集合详解    热     ★★★★

ASP中使用ServerVariables集合详解

作者：闵涛 文章来源：闵涛的学习笔记 点击数：628 更新时间：2009/4/23 10:28:11
　　当讨论Request对象内容时，要研究的集合之一就是ServerVariables集合。这个集合包含了两种值的结合体，一种是随同页面请求从客户端发送到服务器的HTTP报头中的值，另外一种是由服务器在接收到请求时本身所提供的值。

　　“自引用”页面

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

＜FORM ACTION=”＜% = Request.ServerVariables(“PATH_INFO”) %＞” METHOD=”POST”＞
　　同样的效果可以用HTTP的“SCRIPT_NAME”值获得：

＜FORM ACTION=”＜% = Request.ServerVariables(“SCRIPT_NAME”) %＞” METHOD=”POST”＞
　　使用＜A＞元素打开一个不同页，可以使用：

...
＜%
strFullPath = Request.ServerVariables(“PATH_INFO”)
‘Strip off the file name
strPathOnly = Left(strFullPath, InStrRev(strFullPath, “/”))
strNextPage = strPathOnly & “pages/next_page.asp”
%＞
...
＜A HREF=”＜% = strNextPage %＞”＞Next Page＜/A＞
...
　　即使原始页面的名称或位置发生变化，这些实例都能正常工作，因为使用了当前页面的路径信息（当然，第二个例子在分离的目标页的名称发生变化时运行会失败）。

　　换句话说，如果为搜索引擎的子会话自动建立URL，可以收集ServerVariable的一些值：

strFullURL = http:// & Request.ServerVariables(“LOCAL_ADDR”) _
& “:” & Request.ServerVariables(“SERVER_PORT”) _
& Request.ServerVariables(“PATH_INFO”)
　　这将创建一个完整的URL包括端口号（这种情况下，不是标准值80）。例如，结果可能是：

http://194.74.60.254:1768/thispath/thispage.asp
　　检测浏览器的版本

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

＜%
strUA = Request.ServerVariables(“HTTP_USER_AGENT”)
Response.Write “The User Agent string is ＜B＞” & strUA & “＜/B＞
”
If InStr(strUA, “MSIE”) Then
Response.Write “To upgrade your browser go to “_
& “＜A HREF=” & Chr(34) & http://www.microsoft.com/ie/”_
& Chr(34) & “＞http://www.microsoft.com/ie/＜A＞
”
intVersion = Cint(Mid(strUA, InStr(strUA, “MSIE”) + 5, 1))
If intVersion ＞=4 Then
Response.Write “You can use Microsoft Dynamic HTML”
End If
Else
If InStr(strUA, “Mozilla”) Then
If InStr(strUA, “compatible;”) = 0 Then
Response.Write “Your browser is probably Navigator. You can “_
& “download the latest version of Navigator from “_
& “＜A HREF=” & Chr(34) & http://home.netscape.com/”_
& “download/”& Chr(34) & “＞http://home.netscape.com”_
& “/download/＜/A＞
”
intVersion = Cint(Mid(strUA, InStr(strUA, “/”) +1, 1))
If intVersion ＞= 4 Then
Response.Write “You can probably use Netscape Dynamic HTML”
End If
Else
strVersion = Mid(strUA, InStr(strUA, “compatible;”) + 12)
strProduct = Left(strVersion, InStr(strVersion, “ “))
Response.Write “Your browser is Navigator-compatible. You can”_
& “search for the manufacturer using a search engine, such as”_
& “＜A HREF=” & Chr(34) _
& “http://www.altavista.digital.com/cgi-bin/query?q=”_
& strProduct _
& Chr(34) & “＞http://www.altavista.com/＜/A＞
”
End If
End If
End If
%＞
　　对IE 5.0和Navigator 4.61的搜索结果分别不同，对于其他厂家的浏览器，可以得到一个链接在Alta Vista Web站点自动开始搜索厂家的名称。

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

　　检测浏览器的语言

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

　　语言代码可以是一般的且省略方言标识：例如，在我们的站点Wrox者，大批浏览者都是将en（英语）作为语言代码。

　　因此，可以检测语言代码并自动装载一个合适的特定地区或指定语言版本的页面。

StrLocale = Lcase(Left(Request.ServerVariables(“HTTP_ACCEPT_LANGUAGE”),2))
Select Case strLocale
　Case “en”: Response.Redirect “http://uk_site.co.uk/”
　Case “de”: Response.Redirect “http://de_site.co.de/”
　Case “fr”: Response.Redirect “http://fr_site.co.fr/”
　‘... etc
　Case Else: Response.Redirect “http://us_sitel.com/”
End Select
　　或者根据特定的方言，重定向页面：

strLocale = Lcase(Request.ServerVariables(“HTTP_ACCEPT_LANGUAGE”))
Select Case strLocale
　Case “en-gb”: Response.Redirect “http://uk_site.co.uk/”
　Case “en-us”: Response.Redirect “http://us_site.com/”
　Case “es-pe”: Response.Redirect “http://es_site2.co.pe/”
　‘...
　Case Else: Response.Redirect “http://us_site1.com/”
End Select
　　其他有用的ServerVariables集合的值

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

If Request.ServerVariables(“SERVER_PORT”) = “443”) Then
Response.Redirect “/securesite/default.asp” ‘Secure user
Else
Response.Redirect “/normalsite/default.asp” ‘Non-secure user
End If
　　假如要求浏览者注册且由服务器验证（而不是允许他们在Web服务器的IUSER帐号下匿名访问，这个问题将在后面章节中详细讨论），可以查询用户名称，来判定正在与我们打交道的用户是谁，是否装载页面给该用户。例如，下面的这个代码将只向名为Administrator的用户显示管理链接。

...
＜A HREF=”dispcnfg.asp”＞Change Display Configuration＜/A＞

＜A HREF=”dispcolr.asp”＞Change Display Colors＜/A＞

＜A HREF=”keyboard.asp”＞Change Keyboard Configuration＜/A＞

＜%
If Request.ServerVariables(“AUTH_USER”) _
= Ucase(Request.ServerVariables(“SERVER_NAME”)) & “\Administrator” Then
%＞
＜A HREF=”allusers.asp”＞Administer All Users＜/A＞

＜A HREF=”usrlogon.asp”＞Administer Logon Information＜/A＞
＜%
End If
%＞
...
　　注意ASP不填写ServerVariables集合直到你访问其中的一个成员。首次访问该集合的一个成员将使IIS得到它的全部，应只在需要时才使用ServerVariables集合。


没有相关教程
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · Web开发  · 网页制作
    · 平面设计  · 网站运营
    · 网站推广  · 搜索优化
    · 建站心得  · 站长故事
    · 互联动态
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台