获得网页来访者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 Q(M6W.b;Iden%u9z3g
function operationsystem() '操作系统版本
agent = Request.ServerVariables("HTTP_USER_AGENT") g(]!e y'U$WHL ek2NM
if Instr(agent,"NT 5.2")>0 then
SystemVer="Windows Server 2003" 3Eihq}[e^-_
elseif Instr(agent,"NT 5.1")>0 then
SystemVer="Windows XP"
elseif Instr(agent,"NT 5")>0 then tRcWN
SystemVer="Windows 2000" 2P9wc6| qg];[M:P
elseif Instr(agent,"NT 4")>0 then KcK:PMp
SystemVer="Windows NT4" p+GI4M6Ffn
elseif Instr(agent,"4.9")>0 then
SystemVer="Windows ME"
elseif Instr(agent,"98")>0 then g0nT@aw%I8F6Y
SystemVer="Windows 98"
elseif Instr(agent,"95")>0 then ,LG+y4e n5Bg RA4M
SystemVer="Windows 95"

else i Jsl UB+n
SystemVer="未知"
end if $WPq/`6U$dD7p
operationsystem="您的操作系统是: " & SystemVer \,?P+o{dz0\$y
end function %>
[/code]三，获得浏览器版本的代码是：[code]<% function browser() '浏览器版本
agent = Request.ServerVariables("HTTP_USER_AGENT")
if Instr(agent,"MSIE 6.0")>0 then r2FP*D'}F9h3p
browserVer="Internet Explorer 6.0" .jMCj8I
elseif Instr(agent,"MSIE 5.5")>0 then
browserVer="Internet Explorer 5.5" $@1JYmU%SOd
elseif Instr(agent,"MSIE 5.01")>0 then
browserVer="Internet Explorer 5.01"
elseif Instr(agent,"MSIE 5.0")>0 then W(rC#f"tn/Q,H
browserVer="Internet Explorer 5.00"
elseif Instr(agent,"MSIE 4.0")>0 then s/AAJb@ m+y
browserVer="Internet Explorer 4.0" xl$_tI{!Q
else
browserVer="未知" u&Zk8qEo N9^9x
end if
browser="您的浏览器版本: " & browserVer
if Instr(agent,"TencentTraveler")>0 then '检查是否正在使用腾讯TT
browser=browser&" ｜目前正使用TencentTraveler"
end if
end function %>[/code]

页: [1]

捌玖网络工作室's Archiver

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