繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP 3.0高级编程（四）
- ASP
- 嵌入式Web视频点播系统实现方法
- GB与BIG5内码转换COM原代码
- 金额阿拉伯数字转换为中文的存储过程
- 利用 WSH 作定时工作流程
- 用InstallShield 进行 ASP 软件的打包和自动安装
- 服务器获得客户端时间的方法
- 关于如何读出图片的高度与长度的总结
- 按下回车键指向下一个位置的一个函数
- 一个不错的随机函数
- 一套加解密字符串的函数
- 一段加密函数（base64）
- 一段加密函数
- 使用asp实现支持附件的邮件系统（三）
- 使用asp实现支持附件的邮件系统（二）
- 使用asp实现支持附件的邮件系统（一）
- 检查当前目录下是否存在指定的文件，如果存在就重新命名
- MD5加密的javascript实现例子
- 如何在服务器端调用winzip命令行对上传的多个文件打包压缩
- MD5不可逆加密算法的ASP实现实例
- 看人家用使用InstallShield制作ASP安装程序(6)
ASP 3.0高级编程（四）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 24 ::
收藏到网摘: n/a
当讨论Request对象内容时，要研究的集合之一就是ServerVariables集合。这个集合包含了两种值的结合体，一种是随同页面请求从客户端发送到服务器的HTTP报头中的值，另外一种是由服务器在接收到请求时本身所提供的值。为显示
ServerVariables集合中值的使用方式，在Request Object页面（Show_request.asp）中，点击“ServerVariables
Examples”链接，打开另外一个页面，如下图所示：
下图所示窗口显示的是ServerVariables集合中一些非常有用的值的一个子集。
“自引用”页面
在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><P>”
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></P>”
intVersion = Cint(Mid(strUA, InStr(strUA, “MSIE”) + 5, 1))
If intVersion >=4 Then
Response.Write “You can use Microsoft Dynamic HTML”
End If
Else
&n
评论 (0) All
