捌玖网络工作室 » 域名/空间 » 获得网页来访者IP地址的代码

tianya 发表于 2008-4-29 12:52

获得网页来访者IP地址的代码

一，获得网页来访者IP地址的代码是：[code]您的IP是: <% =Request.ServerVariables("REMOTE_ADDR") %> [/code]二，获得操作系统版本的代码是：[code]<% response.Write operationsystem & "<br>" & browser
#W0zOlCviO\ function operationsystem() '操作系统版本 sYTV#v
agent = Request.ServerVariables("HTTP_USER_AGENT") `1L
[s7~{ C?L3G
if Instr(agent,"NT 5.2")>0 then
OjO,UIa SystemVer="Windows Server 2003" +l]
Y;Trn]6q0L1i}$D
elseif Instr(agent,"NT 5.1")>0 then
v\%b rW+L SystemVer="Windows XP"
vc6x+b/j~ elseif Instr(agent,"NT 5")>0 then
{kC:z_'l SystemVer="Windows 2000"
h&j6@P]7{+} elseif Instr(agent,"NT 4")>0 then
v]u7H!bz'h SystemVer="Windows NT4"
7|Tu|8]0Q n L elseif Instr(agent,"4.9")>0 then
1g`w5`-w| SystemVer="Windows ME" "xeQ&A
` \$[l
elseif Instr(agent,"98")>0 then
:K{3VL| SystemVer="Windows 98"
j-O/FU(l7W elseif Instr(agent,"95")>0 then k?9j/y0QYm$V3i
SystemVer="Windows 95" /fcD2oE wA_"F
o8M)z$C7x
else /JX)Deu.ar.gf#i;~
SystemVer="未知"
V+@rs{+Q5_ end if n3Di fh{
operationsystem="您的操作系统是: " & SystemVer
:u'^.jH e0],fY end function %> iu+F KVb
X
[/code]三，获得浏览器版本的代码是：[code]<% function browser() '浏览器版本
_"ASN9]"j agent = Request.ServerVariables("HTTP_USER_AGENT")

sJ D3WP;ss t if Instr(agent,"MSIE 6.0")>0 then
!t;k2P@+b%aY wCU browserVer="Internet Explorer 6.0" /J'y7zAM-a9\Z
elseif Instr(agent,"MSIE 5.5")>0 then 4Nb| _6\Jd ^ B9TA5U
browserVer="Internet Explorer 5.5"
*` dln*\}NDZ elseif Instr(agent,"MSIE 5.01")>0 then 4o!b'{-L5P
browserVer="Internet Explorer 5.01"
[_9|.u{ elseif Instr(agent,"MSIE 5.0")>0 then
:CC nx#} browserVer="Internet Explorer 5.00"
n
L&Tm7qy8M Y5C elseif Instr(agent,"MSIE 4.0")>0 then
kpp(t#B1I browserVer="Internet Explorer 4.0"
]D?0W3LSlR else
YL1e p+K\D
G browserVer="未知"
9C|+MoX:Z4q&Xr,q end if HP'd|;p%b#J#z1N
browser="您的浏览器版本: " & browserVer
[7F/LF]9TY if Instr(agent,"TencentTraveler")>0 then '检查是否正在使用腾讯TT
[iV2HS\ q0F
N browser=browser&" ｜目前正使用TencentTraveler"
K2l#x+rSyx end if
w@!\yQx-L end function %>[/code]

查看完整版本: 获得网页来访者IP地址的代码