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

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

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

一，获得网页来访者IP地址的代码是：[code]您的IP是: <% =Request.ServerVariables("REMOTE_ADDR") %> [/code]二，获得操作系统版本的代码是：[code]<% response.Write operationsystem & "<br>" & browser
#Oiu8v8R[v4c3k[ function operationsystem() '操作系统版本 f#Q#H(~ i
agent = Request.ServerVariables("HTTP_USER_AGENT") q)@%s3OK)~3@Pr
if Instr(agent,"NT 5.2")>0 then
wMTRBz SystemVer="Windows Server 2003"
3t%{P&[*X0gc.F1~7c elseif Instr(agent,"NT 5.1")>0 then 7A
wmxZ:G ]^6]oK
SystemVer="Windows XP" `0P6v%mT9oDi
elseif Instr(agent,"NT 5")>0 then 3`|5c:y$tb7k}
SystemVer="Windows 2000"
,IN$Q5[:MsS o elseif Instr(agent,"NT 4")>0 then 6sx$^:tl
SystemVer="Windows NT4"
"E oA!lj:~#XI-]m)uG elseif Instr(agent,"4.9")>0 then !ae5vF%W]6g
SystemVer="Windows ME" 6_sPA*K-ZDPv3E
elseif Instr(agent,"98")>0 then (L1w0}P)`Rk n?
SystemVer="Windows 98"
-XlEjG'CP"qs elseif Instr(agent,"95")>0 then
K[/{3C
Ad6G!A SystemVer="Windows 95"
3o
Yr#JnA
MF&Xpw K8Y else
9Ep2b+IuqN||8` SystemVer="未知" Iw[Ry(|9xBk*v,a
end if }1f wP"K So1ue&N
operationsystem="您的操作系统是: " & SystemVer 3TK2Di*W*f
end function %> B%h8H-yiF7Cm[C;t
[/code]三，获得浏览器版本的代码是：[code]<% function browser() '浏览器版本 :OnCS/x:z
agent = Request.ServerVariables("HTTP_USER_AGENT") d!lA,MiG-\
if Instr(agent,"MSIE 6.0")>0 then
D??F(o+eAs browserVer="Internet Explorer 6.0" | f~*Z{~D*m5x
elseif Instr(agent,"MSIE 5.5")>0 then H#z7p5?O
browserVer="Internet Explorer 5.5" 3t$XU.U\
elseif Instr(agent,"MSIE 5.01")>0 then
Z2i7|wkV browserVer="Internet Explorer 5.01"
-{ }\~P]f'[(v%^ elseif Instr(agent,"MSIE 5.0")>0 then 4X*Ds8DY,oV+f
browserVer="Internet Explorer 5.00"
"N_c#NUL(k elseif Instr(agent,"MSIE 4.0")>0 then
O;aB0XG/W browserVer="Internet Explorer 4.0"
r0j0i3O5L__fp else
^LL*[.k browserVer="未知"
%E6of1@)y2dHup end if 9TWW\iX iox9e2H'l
browser="您的浏览器版本: " & browserVer
'W/WH,ctR"x if Instr(agent,"TencentTraveler")>0 then '检查是否正在使用腾讯TT
-Mj
\#Mt$A#do browser=browser&" ｜目前正使用TencentTraveler" 4h#j;~7|&I
end if
o C:b\{+z2wU end function %>[/code]

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