您的真实IP：192.168.69.84 | 浏览器：Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon) | 操作系统环境：zh-cn

代码执行： 0 毫秒 | 在线QQ：24098886 | Email：It_server2004@yahoo.com.cn | 流水无声

就是要这种效果~~~~ 谢谢~~~各位大哥~~~

IP：<%=request.servervariables("remote_addr")%>

<%
For each item in Request.ServerVariables
 Response.Write "Request.ServerVariables(""" & item & """)=" & Request.ServerVariables(Item) & "<br>"
Next
%>

我机器上的返回结果： Request.ServerVariables("ALL_HTTP")=HTTP_ACCEPT:image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */* HTTP_ACCEPT_LANGUAGE:zh-cn HTTP_CONNECTION:Keep-Alive HTTP_HOST:localhost HTTP_USER_AGENT:Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Maxthon; .NET CLR 1.1.4322) HTTP_ACCEPT_ENCODING:gzip, deflate Request.ServerVariables("ALL_RAW")=Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */* Accept-Language: zh-cn Connection: Keep-Alive Host: localhost User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Maxthon; .NET CLR 1.1.4322) Accept-Encoding: gzip, deflate Request.ServerVariables("APPL_MD_PATH")=/LM/W3SVC/1/ROOT Request.ServerVariables("APPL_PHYSICAL_PATH")=C:\Inetpub\wwwroot\ Request.ServerVariables("AUTH_PASSWORD")= Request.ServerVariables("AUTH_TYPE")= Request.ServerVariables("AUTH_USER")= Request.ServerVariables("CERT_COOKIE")= Request.ServerVariables("CERT_FLAGS")= Request.ServerVariables("CERT_ISSUER")= Request.ServerVariables("CERT_KEYSIZE")= Request.ServerVariables("CERT_SECRETKEYSIZE")= Request.ServerVariables("CERT_SERIALNUMBER")= Request.ServerVariables("CERT_SERVER_ISSUER")= Request.ServerVariables("CERT_SERVER_SUBJECT")= Request.ServerVariables("CERT_SUBJECT")= Request.ServerVariables("CONTENT_LENGTH")=0 Request.ServerVariables("CONTENT_TYPE")= Request.ServerVariables("GATEWAY_INTERFACE")=CGI/1.1 Request.ServerVariables("HTTPS")=off Request.ServerVariables("HTTPS_KEYSIZE")= Request.ServerVariables("HTTPS_SECRETKEYSIZE")= Request.ServerVariables("HTTPS_SERVER_ISSUER")= Request.ServerVariables("HTTPS_SERVER_SUBJECT")= Request.ServerVariables("INSTANCE_ID")=1 Request.ServerVariables("INSTANCE_META_PATH")=/LM/W3SVC/1 Request.ServerVariables("LOCAL_ADDR")=127.0.0.1 Request.ServerVariables("LOGON_USER")= Request.ServerVariables("PATH_INFO")=/test.asp Request.ServerVariables("PATH_TRANSLATED")=C:\Inetpub\wwwroot\test.asp Request.ServerVariables("QUERY_STRING")= Request.ServerVariables("REMOTE_ADDR")=127.0.0.1 Request.ServerVariables("REMOTE_HOST")=127.0.0.1 Request.ServerVariables("REMOTE_USER")= Request.ServerVariables("REQUEST_METHOD")=GET Request.ServerVariables("SCRIPT_NAME")=/test.asp Request.ServerVariables("SERVER_NAME")=localhost Request.ServerVariables("SERVER_PORT")=80 Request.ServerVariables("SERVER_PORT_SECURE")=0 Request.ServerVariables("SERVER_PROTOCOL")=HTTP/1.1 Request.ServerVariables("SERVER_SOFTWARE")=Microsoft-IIS/5.0 Request.ServerVariables("URL")=/test.asp Request.ServerVariables("HTTP_ACCEPT")=image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */* Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")=zh-cn Request.ServerVariables("HTTP_CONNECTION")=Keep-Alive Request.ServerVariables("HTTP_HOST")=localhost Request.ServerVariables("HTTP_USER_AGENT")=Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Maxthon; .NET CLR 1.1.4322) Request.ServerVariables("HTTP_ACCEPT_ENCODING")=gzip, deflate

[此贴子已经被作者于2005-4-14 14:08:09编辑过]

你看看下面的教程吧 看看是否对你有帮助 browser.asp 　　 < %@ LANGUAGE = VBScript %> 　　< HTML> 　　< HEAD> 　　　　 < TITLE>用ASP提供的浏览器性能组件来辨别客户浏览器< /TITLE> 　　 < /HEAD> 　　 < BODY BGCOLOR="White" topmargin="10" leftmargin="10"> 　　　　< font size="4" face="Arial, Helvetica"> 　　　　< b>用ASP提供的浏览器性能组件来辨< br>别客户浏览器< /b>< /font>< br> 　　　　< hr size="1" color="#000000"> 　　　　 < !-- 定义并创建浏览器性能对象 --> 　　　　 < % 　　　　　 Dim bc 　　　　　 Set bc = Server.CreateObject("MSWC.BrowserType") 　　　　 %> 　　　　 < !-- 在表格中描述客户浏览器的信息 --> 　　　　 < Table border=1> 　　　　　　 < tr> 　　　　　　 < td>Browser Name< /td> 　　　　　　 < td> < %=bc.Browser %> < /Td> 　　　　　　 < tr> 　　　　　　 < td>Browser Version< /td> 　　　　　　 < td> < %=bc.Version %> < /Td> 　　　　　　 < tr> 　　　　　　 < td>Major Version< /td> 　　　　　　 < td> < %=bc.Majorver %> < /Td> 　　　　　　 < tr> 　　　　　　 < td>Minor Version< /td> 　　　　　　 < td> < %=bc.Minorver %> < /Td> 　　　　　　 < tr> 　　　　　　 < td>Frame Support< /td> 　　　　　　 < td> < %=bc.Frames %> < /Td> 　　　　　　 < tr> 　　　　　　 < td>Table Support< /td> 　　　　　　 < td> < %=bc.Tables %> < /Td> 　　　　　　 < tr> 　　　　　　 < td>Cookie Support< /td> 　　　　　　 < td> < %=bc.Cookies %> < /Td> 　　　　　　 < tr> 　　　　　　 < td>Background Sound Support< /td> 　　　　　　 < td> < %=bc.BackgroundSounds %> < /Td> 　　　　　　 < tr> 　　　　　　 < td>VBScript Support< /td> 　　　　　　 < td> < %=bc.VBScript %> < /Td> 　　　　　　 < tr> 　　　　　　 < td>JavaScript Support< /td> 　　　　　　 < td> < %=bc.JavaScript %> < /Td> 　　　　 < /table> 　　 < /BODY> < /HTML> 　　用 http 方式浏览该文件，根据使用的浏览器的不同，你会看到类似下图 (Asp2b.gif) 的页面。在本例中我们用到了一个 ASP 提供的 ActiveX 组件 --"Browser Capabilities" 。 ActiveX 组件作为基于 Web 的应用程序部分在 Web 服务器上运行，组件提供了应用程序的主要功能 ( 如访问、修改数据库等 ) ，这样 WEB 设计者们就不必创建或重新创建执行这些任务的代码，从而提高了工作的效率，有关 ActiveX 组件将在今后详细讨论。为了使用 ASP 辨别客户浏览器，在这里我们利用 "Browser Capabilities" 组件创建了一个 Browser Type 对象，该对象提供带有客户端网络浏览器功能说明的用户脚本，当浏览器连接到网络服务器上时，它会自动发送一个 UserAgentHTTP 标题，该标题是一个声明浏览器及其版本的 ASCII 字符串。此 Browser Type 对象将该标题和在 Browscap.ini 文件中的项进行比较 (Win98 、 IIS3 、 IIS4 的用户分别可以在以下目录中 "win98\system\inersrv" 、 "\winnt\system32\inetsrv\asp\cmpnts" 、 "\winnt\system32\inetsrv" 找到该文件 ) 。如果找到匹配的项，则该 Browser Type 对象将认为浏览器列表属性与 UserAgent 标题匹配。若该对象在 browscap.ini 文件中找不到与该标题匹配的项，那么将使用默认的浏览器属性。若该对象既未找到匹配项且 browscap.ini 文件中也未指定默认的浏览器设置，则它将每个属性都设为字符串 "UNKNOWN" 。我们可以通过更新 browscap.ini 文件将属性或新的浏览器定义添加到该组件中，从而扩大 ASP 识别的浏览器范围和精确度。下面列出了 browscap.ini 中的一部分内容 ( 不包括注释部分 ) ： [IE 4.0] ;;HTTPUserAgentHeader browser=IE ;;指定该浏览器的名称。 Version=4.0 ;;指定该浏览器的版本号。 majorver=4 ;;指定主版本号 minorver=0 ;;指定副版本号 frames=TRUE ;;指定该浏览器是否支持框架。 tables=TRUE ;;指定该浏览器是否支持表格。 cookies=TRUE ;;指定该浏览器是否支持cookies。 backgroundsounds=TRUE ;;指定该浏览器是否支持背景音乐。 vbscript=TRUE ;;指定该浏览器是否支持VBScript。 javascript=TRUE ;;指定该浏览器是否支持JScript。 javaapplets=TRUE ;;指定该浏览器是否 支持 Java程序。 ActiveXControls=TRUE ;;指定该浏览器是否支持 ActiveX 控件。 Win16=False ;; 指定该浏览器是否支持Win16 beta=False ;;指定该浏览器是否测试版。 cdf=True ;;指定该浏览器是否 支持用于 Web 预测的 Channel Definition Format。 ;;ie 4.01 [Mozilla/4.0 (compatible; MSIE 4.01*; Windows 95)] parent=IE 4.0 ;;父标签允许第二个浏览器继承第一个浏览器的定义 version=4.01 minorver=01 platform=Win98 ;;Default Browser ;;指定默认的浏览器的设置 [Default Browser Capability Settings] browser=Default frames=FALSE tables=TRUE cookies=FALSE backgroundsounds=FALSE vbscript=FALSE javascript=FALSE 　　在上面的例子中，父标签允许第二个浏览器继承第一个浏览器的定义，以便 Microsoft Internet Explorer4.01 定义得以继承 Microsoft Internet Explorer4.0 定义全部的属性 ( 例如， frames=TRUE 、 tables=TRUE 以及 cookies=TRUE) 。并通过添加 platform=Win98 行来指定平台，用 version=4.01 重写版本信息。 　　在先前的 browser.asp 中我们仅仅是将客户浏览器的属性一一罗列了出来，下面让我们添加一些动态的效果。将以下代码剪贴到文件 browser.asp 中（ 编辑注 ：为显示方便，所有“ < ”符号后都多加了个空格，实际使用时请注意去掉。 ）： < % if (bc.frames = TRUE) then %> 你的浏览器支持框架!< br> < % else %> 难道现在你还在使用不支持框架的浏览器???< br> < % end if %> < % if (bc.tables = TRUE) then %> 你的浏览器支持表格。< br> < % else %> 难道现在你还在使用不支持表格 的浏览器 ???< br> < % end if %> < % if (bc.BackgroundSounds = TRUE) then %> 有没有听到美妙的 音乐???< br> < % else %> 可惜 , 您的浏览器不支持背 景音乐。< br> < % end if %> < % if (bc.vbscript = TRUE) then %> 您的浏览器支持Vbscript。< br> < % else %> 您的浏览器不支持Vbscript。< br> < % end if %> < % if (bc.javascript = TRUE) then %> 您的浏览器支持 Javascript。< br> < % else %> 您的浏览器不支持 Javascript。< br> < % end if %> 　　在你的浏览器中刷新 browser.asp ，程序将自动辨别浏览器的属性并动态显示不同的信息。不难发现在整个 browser.asp 文件中几乎没有用到任何复杂的编程，就轻而易举的达到了动态鉴别客户浏览器并动态产生响应事件的效果。事实上，这个程序的关键就在于前文提到的 ActiveX 组件 --"Browser Capabilities" ，它的作用类似于一个 Function ，只需简单地在程序中调用该组件即能达到你所希望的效果。

用老大的方法，

楼上的方法有时查不出来!!

5楼的靓妹你写的也太全了吧!厉害

我不是写的全
只是把教材上的写出来了
自己也没有实验过
呵呵
等到用的时候在实验嘛
忽忽忽忽

谢谢~~~真的很全~~~