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

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

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

一，获得网页来访者IP地址的代码是：[code]您的IP是: <% =Request.ServerVariables("REMOTE_ADDR") %> [/code]二，获得操作系统版本的代码是：[code]<% response.Write operationsystem & "<br>" & browser
WK\u%P4ID function operationsystem() '操作系统版本
5Ul{#v]U agent = Request.ServerVariables("HTTP_USER_AGENT")
m#^i;n/|o if Instr(agent,"NT 5.2")>0 then 8^U[(Q)moV
SystemVer="Windows Server 2003" WZhS e*R*m
elseif Instr(agent,"NT 5.1")>0 then }3W?gQA$\K
SystemVer="Windows XP" ;dN$u'j4lyf,q4@
elseif Instr(agent,"NT 5")>0 then
t,z^@K@ O6q!E@V&E SystemVer="Windows 2000"
3K#D{K+O1lR:O K'P*c elseif Instr(agent,"NT 4")>0 then
:XA5Q(l$H9K&Sck SystemVer="Windows NT4" L
C0cB%K3b
elseif Instr(agent,"4.9")>0 then i;b#S5^)r$~|"T/Qe
SystemVer="Windows ME" 0_4x^%{$xN0J
elseif Instr(agent,"98")>0 then
l7YQ Vq4XL SystemVer="Windows 98"
.?S8{$T4kH$U]2k| r$n elseif Instr(agent,"95")>0 then k P/QNn6U
SystemVer="Windows 95" g$aYgof*jLS

;Re7eEKO}m"\} else 6R1s?w)G
SystemVer="未知"
i;[RG:?.x ofb]B end if |.C%}E2M {
operationsystem="您的操作系统是: " & SystemVer
p5kdl7?S1I end function %> !]#]*`8h$X4h
[/code]三，获得浏览器版本的代码是：[code]<% function browser() '浏览器版本 }*Q6}xbk
agent = Request.ServerVariables("HTTP_USER_AGENT") 1di~#X!cA+o
if Instr(agent,"MSIE 6.0")>0 then ;D6|3A;`#{!Y
browserVer="Internet Explorer 6.0" *}8Oqe4K#U
elseif Instr(agent,"MSIE 5.5")>0 then
qA3R+k3gN"s)^ browserVer="Internet Explorer 5.5" 0R${\R:]
Z
elseif Instr(agent,"MSIE 5.01")>0 then ;E|pU'h-x5g\
browserVer="Internet Explorer 5.01" Tc.N1[+b Hu
elseif Instr(agent,"MSIE 5.0")>0 then
s4@lJV%K&S)p}C_g_ browserVer="Internet Explorer 5.00" %\i%t|'U d"H^3Xj
elseif Instr(agent,"MSIE 4.0")>0 then
X a+{g3G)~"te browserVer="Internet Explorer 4.0" UaNCmxB%n
else
H*NV&[yU+O8u browserVer="未知"
geyf\j end if
D(a#q(QF%}F browser="您的浏览器版本: " & browserVer
O TCF H![ if Instr(agent,"TencentTraveler")>0 then '检查是否正在使用腾讯TT
9V&T9@} d*Rfq&Tk browser=browser&" ｜目前正使用TencentTraveler" i1YB7~Fc
end if *eu&y:O,O~
end function %>[/code]

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