获得网页来访者IP地址的代码(页 1) - 域名/空间 - 捌玖网络工作室 |网页制作|建站交流|代码资料|建站教程|主机域名|asp、php、jsp代码|网站素材

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

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

一，获得网页来访者IP地址的代码是：[code]您的IP是: <% =Request.ServerVariables("REMOTE_ADDR") %> [/code]二，获得操作系统版本的代码是：[code]<% response.Write operationsystem & "<br>" & browser E+T.F],Y+^
function operationsystem() '操作系统版本
agent = Request.ServerVariables("HTTP_USER_AGENT") M&B-ce\7N
if Instr(agent,"NT 5.2")>0 then
SystemVer="Windows Server 2003" 0v*^2J7d5j VJm
elseif Instr(agent,"NT 5.1")>0 then ^j{ Q,GT8?
SystemVer="Windows XP"
elseif Instr(agent,"NT 5")>0 then
SystemVer="Windows 2000" ,W%Q(azq|rN+Ry
elseif Instr(agent,"NT 4")>0 then [7V]tl2D&_U
SystemVer="Windows NT4"
elseif Instr(agent,"4.9")>0 then R+h.o0R!}
SystemVer="Windows ME" ;@0_go&CZ F
elseif Instr(agent,"98")>0 then ^ vX:J_v
SystemVer="Windows 98" i$J)`hY5HL
elseif Instr(agent,"95")>0 then
SystemVer="Windows 95" ?]2U{8^
] R9b\j1Z
else
SystemVer="未知"
end if
operationsystem="您的操作系统是: " & SystemVer h{n"\!N]WsQ
end function %>
[/code]三，获得浏览器版本的代码是：[code]<% function browser() '浏览器版本
agent = Request.ServerVariables("HTTP_USER_AGENT")
if Instr(agent,"MSIE 6.0")>0 then
browserVer="Internet Explorer 6.0"
elseif Instr(agent,"MSIE 5.5")>0 then s^S*RX M@
browserVer="Internet Explorer 5.5"
elseif Instr(agent,"MSIE 5.01")>0 then
browserVer="Internet Explorer 5.01" '}f4oJz{:s+c3E
elseif Instr(agent,"MSIE 5.0")>0 then K/r$J O&S3i@
browserVer="Internet Explorer 5.00" 5WS;O4|ESw,_^
elseif Instr(agent,"MSIE 4.0")>0 then rW(jK?x\
browserVer="Internet Explorer 4.0" | t x-USCQ0Gs^'[n
else d#M\ ])| V!k4M-O)R
browserVer="未知"
end if `'B$TY&~at#sMids3W
browser="您的浏览器版本: " & browserVer JN#h)R8W
if Instr(agent,"TencentTraveler")>0 then '检查是否正在使用腾讯TT
browser=browser&" ｜目前正使用TencentTraveler"
end if
end function %>[/code]

页: [1]

捌玖网络工作室's Archiver

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