28,409
社区成员
发帖
与我相关
我的任务
分享初学者的问题
各位大侠：
请问如何才能获得网站访问者的来源，和操作系统。例如，很多论坛上当你访问时显示的，来自于上海，或者是吉通等等，（不是IP地址）。
请问如何才能获得网站访问者的来源，和操作系统。例如，很多论坛上当你访问时显示的，来自于上海，或者是吉通等等，（不是IP地址）。
...全文
请发表友善的回复…
发表回复
bomee 2002-12-12
- 打赏
- 举报
谢谢梅兄，我找到了一个表格，里边有相对应的IP地址和中文地址的对应，不过没找到相应的函数。谢谢
wgrabob1 2002-12-11
- 打赏
- 举报
好像梅兄提供的收藏就很多
—————————————————————————————————
想我所想 做我所做
我的QQ：156838384 ^-^
—————————————————————————————————
想我所想 做我所做
我的QQ：156838384 ^-^
逍遥小贼 2002-12-11
- 打赏
- 举报
支持的说，楼主可以找本相关的书好好看看
meizz 2002-12-11
- 打赏
- 举报
关于IP的你到网上查查,有这方面的库的.
<%
Dim objBC
Set objBC=Server.CreateObject("MSWC.BrowserType")
%>
<html><head><style>
td {font-size: 12px}
.red {color: #D00000}
.blue {color: #0000D0}
</style><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>提取与 ASP 相关的服务器或客户端的一些信息</title></head>
<body bgcolor=#85a3ff>
<center><span style="width: 760;font-size:28px;color:#f0f000;font-family:隶书;
position:relative;filter:glow(color=#0060b0, strength=5)">
<b>提取与</b> ASP <b>相关的服务器或客户端的一些信息</b></span></center>
<table border=1 cellSpacing=1 cellPadding=2 align=center width=710
bordercolorlight="#ACDFCC" bordercolordark="#600000" bgcolor=#ffffff>
<tr><td colspan=5 class=12 align=right bgcolor=#85a3ff>
meizz (梅花雨) </td></tr>
<tr><td class=blue>浏览器端相关信息：</td>
<td class=red colspan=4> <%= Request.ServerVariables("http_user_agent") %></td></tr>
<tr><td class=blue width=140>目前网页虚拟路径：</td>
<td class=red width=177> <%= Request.ServerVariables("path_info") %></td>
<td width=10 rowspan=13 bgcolor=#85a3ff></td>
<td class=blue width=130>本网页的实际路径：</td>
<td class=red width=243> <%= Request.ServerVariables("path_Translated") %></td></tr>
<tr><td class=blue>服务器端的IP地址：</td>
<td class=red> <%= Request.ServerVariables("local_addr") %></td>
<td class=blue>服务器软件的版本：</td>
<td class=red> <%= Request.ServerVariables("server_software") %></td>
<tr><td class=blue>服务器连接口编号：</td>
<td class=red> <%= Request.ServerVariables("server_port") %></td>
<td class=blue>服务器的HTTP版本：</td>
<td class=red> <%= Request.ServerVariables("server_Protocol") %></td></tr>
<tr><td class=blue>远程主机的名称：</td>
<td class=red> <%= Request.ServerVariables("remote_host") %></td>
<td class=blue>远程主机的IP地址：</td>
<td class=red> <%= Request.ServerVariables("remote_addr") %></td></tr>
<tr><td class=blue>服务器的名称或IP：</td>
<td class=red> <%= Request.ServerVariables("server_name") %></td>
<td class=blue>描述内容的语系：</td>
<td class=red> <%= Request.ServerVariables("http_accept_language") %></td></tr>
<tr><td class=blue>站点主目录的位置：</td>
<td class=red> <%= Server.MapPath("/") %></td>
<td class=blue>本网页所在位置：</td>
<td class=red> <%= Server.MapPath("./") %></td></tr>
<tr><td class=blue>本网页上一级目录：</td>
<td class=red> <%= Server.MapPath("../") %></td>
<td class=blue>服务器端CGI版本：</td>
<td class=red> <%= Request.ServerVariables("gateway_interface") %></td></tr>
<tr><td class=blue>子与母端联机类型：</td>
<td class=red> <%= Request.ServerVariables("http_connection") %></td>
<td class=blue>浏览器端主机名：</td>
<td class=red> <%= Request.ServerVariables("http_host") %></td></tr>
<tr><td class=blue>用户浏览器的名称：</td>
<td class=red> <% = objBC.Browser %></td>
<td class=blue>用户浏览器的版本：</td>
<td class=red> <% = objBC.Version %></td></tr>
<tr><td class=blue>是否BETA测试软件：</td>
<td class=red> <% = objBC.Beta %></td>
<td class=blue>ActiveXControls：</td>
<td class=red> <% = objBC.ActiveXControls %></td></tr>
<tr><td class=blue>是否支持背景声音：</td>
<td class=red> <% = objBC.BackgroundSounds %></td>
<td class=blue>是否支持 Cookies：</td>
<td class=red> <% = objBC.Cookies %></td></tr>
<tr><td class=blue>是否支持框架网页：</td>
<td class=red> <% = objBC.Frames %></td>
<td class=blue>是否支持表格网页：</td>
<td class=red> <% = objBC.Tables %></td></tr>
<tr><td class=blue>支持 JavaScript：</td>
<td class=red> <% = objBC.JavaScript %></td>
<td class=blue>是否支持VBScript：</td>
<td class=red> <% = objBC.VBScript %></td></tr>
</table>
<% Set objBC=Nothing %>
</body></html>
<%
Dim objBC
Set objBC=Server.CreateObject("MSWC.BrowserType")
%>
<html><head><style>
td {font-size: 12px}
.red {color: #D00000}
.blue {color: #0000D0}
</style><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>提取与 ASP 相关的服务器或客户端的一些信息</title></head>
<body bgcolor=#85a3ff>
<center><span style="width: 760;font-size:28px;color:#f0f000;font-family:隶书;
position:relative;filter:glow(color=#0060b0, strength=5)">
<b>提取与</b> ASP <b>相关的服务器或客户端的一些信息</b></span></center>
<table border=1 cellSpacing=1 cellPadding=2 align=center width=710
bordercolorlight="#ACDFCC" bordercolordark="#600000" bgcolor=#ffffff>
<tr><td colspan=5 class=12 align=right bgcolor=#85a3ff>
meizz (梅花雨) </td></tr>
<tr><td class=blue>浏览器端相关信息：</td>
<td class=red colspan=4> <%= Request.ServerVariables("http_user_agent") %></td></tr>
<tr><td class=blue width=140>目前网页虚拟路径：</td>
<td class=red width=177> <%= Request.ServerVariables("path_info") %></td>
<td width=10 rowspan=13 bgcolor=#85a3ff></td>
<td class=blue width=130>本网页的实际路径：</td>
<td class=red width=243> <%= Request.ServerVariables("path_Translated") %></td></tr>
<tr><td class=blue>服务器端的IP地址：</td>
<td class=red> <%= Request.ServerVariables("local_addr") %></td>
<td class=blue>服务器软件的版本：</td>
<td class=red> <%= Request.ServerVariables("server_software") %></td>
<tr><td class=blue>服务器连接口编号：</td>
<td class=red> <%= Request.ServerVariables("server_port") %></td>
<td class=blue>服务器的HTTP版本：</td>
<td class=red> <%= Request.ServerVariables("server_Protocol") %></td></tr>
<tr><td class=blue>远程主机的名称：</td>
<td class=red> <%= Request.ServerVariables("remote_host") %></td>
<td class=blue>远程主机的IP地址：</td>
<td class=red> <%= Request.ServerVariables("remote_addr") %></td></tr>
<tr><td class=blue>服务器的名称或IP：</td>
<td class=red> <%= Request.ServerVariables("server_name") %></td>
<td class=blue>描述内容的语系：</td>
<td class=red> <%= Request.ServerVariables("http_accept_language") %></td></tr>
<tr><td class=blue>站点主目录的位置：</td>
<td class=red> <%= Server.MapPath("/") %></td>
<td class=blue>本网页所在位置：</td>
<td class=red> <%= Server.MapPath("./") %></td></tr>
<tr><td class=blue>本网页上一级目录：</td>
<td class=red> <%= Server.MapPath("../") %></td>
<td class=blue>服务器端CGI版本：</td>
<td class=red> <%= Request.ServerVariables("gateway_interface") %></td></tr>
<tr><td class=blue>子与母端联机类型：</td>
<td class=red> <%= Request.ServerVariables("http_connection") %></td>
<td class=blue>浏览器端主机名：</td>
<td class=red> <%= Request.ServerVariables("http_host") %></td></tr>
<tr><td class=blue>用户浏览器的名称：</td>
<td class=red> <% = objBC.Browser %></td>
<td class=blue>用户浏览器的版本：</td>
<td class=red> <% = objBC.Version %></td></tr>
<tr><td class=blue>是否BETA测试软件：</td>
<td class=red> <% = objBC.Beta %></td>
<td class=blue>ActiveXControls：</td>
<td class=red> <% = objBC.ActiveXControls %></td></tr>
<tr><td class=blue>是否支持背景声音：</td>
<td class=red> <% = objBC.BackgroundSounds %></td>
<td class=blue>是否支持 Cookies：</td>
<td class=red> <% = objBC.Cookies %></td></tr>
<tr><td class=blue>是否支持框架网页：</td>
<td class=red> <% = objBC.Frames %></td>
<td class=blue>是否支持表格网页：</td>
<td class=red> <% = objBC.Tables %></td></tr>
<tr><td class=blue>支持 JavaScript：</td>
<td class=red> <% = objBC.JavaScript %></td>
<td class=blue>是否支持VBScript：</td>
<td class=red> <% = objBC.VBScript %></td></tr>
</table>
<% Set objBC=Nothing %>
</body></html>
