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

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

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

一，获得网页来访者IP地址的代码是：[code]您的IP是: <% =Request.ServerVariables("REMOTE_ADDR") %> [/code]二，获得操作系统版本的代码是：[code]<% response.Write operationsystem & "<br>" & browser
2D'VuSr
@+QO"tH sQj!` function operationsystem() '操作系统版本

ch1l I!v8L!oN agent = Request.ServerVariables("HTTP_USER_AGENT") cRR:` HK1]
if Instr(agent,"NT 5.2")>0 then
F(l/QO3Z}4deU SystemVer="Windows Server 2003" nX I8jn2n
elseif Instr(agent,"NT 5.1")>0 then oMo \;N5y
SystemVer="Windows XP"
tieF:d1S elseif Instr(agent,"NT 5")>0 then
H%nN8R7B-|E!^
SystemVer="Windows 2000"
z t4J
[z elseif Instr(agent,"NT 4")>0 then
[\h:_*is2r6@ SystemVer="Windows NT4"
~$f*sk~ elseif Instr(agent,"4.9")>0 then Vyg:EzB&c
SystemVer="Windows ME" :F7D:^*z;M,{ i6Q#@&q
elseif Instr(agent,"98")>0 then l3BzQp
SystemVer="Windows 98"
yTp:\3lop7a elseif Instr(agent,"95")>0 then
@w2n6[J9F0~z*z SystemVer="Windows 95"
OMn2J/T/F
RX/{S&U{:p9TlP O else E od@(g ]
SystemVer="未知"
:r H4M9yx'qS end if
nhH2@&tl_ operationsystem="您的操作系统是: " & SystemVer
0@m-|iP.t end function %>
yG2K Uv6w![ [/code]三，获得浏览器版本的代码是：[code]<% function browser() '浏览器版本
2|.wx&B xC"bb agent = Request.ServerVariables("HTTP_USER_AGENT")
?uw5mL if Instr(agent,"MSIE 6.0")>0 then
f+y.w,K(??L8M browserVer="Internet Explorer 6.0" Tq)U7pW3FS&vH/J
elseif Instr(agent,"MSIE 5.5")>0 then C1F5c?7p sh/y1r
browserVer="Internet Explorer 5.5" "@'f"N%A4D2r3EN
elseif Instr(agent,"MSIE 5.01")>0 then TF2rle2M*_!D ]je
browserVer="Internet Explorer 5.01"
VOY6`*]te3ql elseif Instr(agent,"MSIE 5.0")>0 then u1z*n%Ch;F
browserVer="Internet Explorer 5.00"
R4f3\#r?#D~ elseif Instr(agent,"MSIE 4.0")>0 then 2O
G:l'n {9L;zf
browserVer="Internet Explorer 4.0"
1U![M2S5UD*pA else
"iUDh+m[ J browserVer="未知" !AV
r%C^h&K
end if
gC`VK,J browser="您的浏览器版本: " & browserVer 6kkB8H Dg
if Instr(agent,"TencentTraveler")>0 then '检查是否正在使用腾讯TT
8^NtM3|VM2v browser=browser&" ｜目前正使用TencentTraveler"
H2n4]~g(t:jX
end if )e1KL.qYD$G:NV
end function %>[/code]

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