获得网页来访者IP地址的代码
一,获得网页来访者IP地址的代码是:[code]您的IP是: <% =Request.ServerVariables("REMOTE_ADDR") %> [/code]二,获得操作系统版本的代码是:[code]<% response.Write operationsystem & "<br>" & browserfunction operationsystem() '操作系统版本 QCTT Pi
agent = Request.ServerVariables("HTTP_USER_AGENT") w w@LOGr7anC
if Instr(agent,"NT 5.2")>0 then 9V s(?mP asl6ZU
SystemVer="Windows Server 2003" y2I;[G1L4N
elseif Instr(agent,"NT 5.1")>0 then p6[(F};C6ohJ1l
SystemVer="Windows XP"
elseif Instr(agent,"NT 5")>0 then
SystemVer="Windows 2000"
elseif Instr(agent,"NT 4")>0 then *O(i7P#o{B
SystemVer="Windows NT4"
elseif Instr(agent,"4.9")>0 then
SystemVer="Windows ME"
elseif Instr(agent,"98")>0 then 3BD"Aa-TYi0Rv SEb
SystemVer="Windows 98"
elseif Instr(agent,"95")>0 then
SystemVer="Windows 95" s2U3N2Oi
else
SystemVer="未知"
end if
operationsystem="您的操作系统是: " & SystemVer 3R(m'_\TTL0}
end function %> {fz&gLM9PR:g
[/code]三,获得浏览器版本的代码是:[code]<% function browser() '浏览器版本 F,B4{np%U|
agent = Request.ServerVariables("HTTP_USER_AGENT")
if Instr(agent,"MSIE 6.0")>0 then F |3a"Eg7g
browserVer="Internet Explorer 6.0"
elseif Instr(agent,"MSIE 5.5")>0 then
browserVer="Internet Explorer 5.5"
elseif Instr(agent,"MSIE 5.01")>0 then ^ F$B s/SZ.C
browserVer="Internet Explorer 5.01"
elseif Instr(agent,"MSIE 5.0")>0 then N*F lj6Wh
browserVer="Internet Explorer 5.00"
elseif Instr(agent,"MSIE 4.0")>0 then
browserVer="Internet Explorer 4.0"
else 5Nz$yNDF(p x(f-I6E2{
browserVer="未知" Z?|OeOD&oAo
end if
browser="您的浏览器版本: " & browserVer
if Instr(agent,"TencentTraveler")>0 then '检查是否正在使用腾讯TT
browser=browser&" |目前正使用TencentTraveler"
end if
end function %>[/code]
页:
[1]