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

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

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

一，获得网页来访者IP地址的代码是：[code]您的IP是: <% =Request.ServerVariables("REMOTE_ADDR") %> [/code]二，获得操作系统版本的代码是：[code]<% response.Write operationsystem & "<br>" & browser 6O#{|!{qj,s
function operationsystem() '操作系统版本 MA-?`
Gv@
agent = Request.ServerVariables("HTTP_USER_AGENT") 4^
};qc,w[_cS
if Instr(agent,"NT 5.2")>0 then
H9i'?K b]%{Y+J8z SystemVer="Windows Server 2003" ~VT7~#w
elseif Instr(agent,"NT 5.1")>0 then
l5x@h1Iaq SystemVer="Windows XP"
:FE`Q1?3g$? E6_ elseif Instr(agent,"NT 5")>0 then
%QRM(Knr|?\ad SystemVer="Windows 2000" 6^ CtB(cAv
elseif Instr(agent,"NT 4")>0 then 2~%A"xB3X @6\f
SystemVer="Windows NT4" B
yK8`{ o
elseif Instr(agent,"4.9")>0 then 1a!PCZ3iHMZ
SystemVer="Windows ME"
T5eO6c)Py` elseif Instr(agent,"98")>0 then
!L
G!Q#Hc?r-Gt U SystemVer="Windows 98"
O`cd}*s"_| elseif Instr(agent,"95")>0 then Ej6ab I e ["d
SystemVer="Windows 95"
C/Y.x^Rj[j.L u*`e ? !Jo'lE4F/Q4Z*lv
else
4A6Nw$U8q RT SystemVer="未知"
bW\IV:oe9TEm end if xpt`,g3|t
operationsystem="您的操作系统是: " & SystemVer
"i] H4D*IO end function %> &goY$l
k
[/code]三，获得浏览器版本的代码是：[code]<% function browser() '浏览器版本 ;@5nD?Ls
agent = Request.ServerVariables("HTTP_USER_AGENT") 7BX;y;^x`9[%E
if Instr(agent,"MSIE 6.0")>0 then
*a-vpj0K browserVer="Internet Explorer 6.0" ;S:M/V2YjIPa
elseif Instr(agent,"MSIE 5.5")>0 then
k/R4US&JR%D(p browserVer="Internet Explorer 5.5" 6DV9mljO%s
elseif Instr(agent,"MSIE 5.01")>0 then
!O}uITY2{9Rl3d browserVer="Internet Explorer 5.01" kGb%K9K K]2H
elseif Instr(agent,"MSIE 5.0")>0 then
f*\_
Kyb8\ Z^9m browserVer="Internet Explorer 5.00"
4c U"ywKE D elseif Instr(agent,"MSIE 4.0")>0 then
;` f(T4vX5f browserVer="Internet Explorer 4.0" RC`cO0w@)q2`
else t
B`2cNRo`
browserVer="未知" 0tC0Z.b3Uy$CO
end if #I/_6j5z/zW'E6?uA)t4r
browser="您的浏览器版本: " & browserVer L#I~f)LFO
if Instr(agent,"TencentTraveler")>0 then '检查是否正在使用腾讯TT &obOS&u,T+P
browser=browser&" ｜目前正使用TencentTraveler"
uG/x%v B end if 0{!a6S)CL
end function %>[/code]

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