捌玖网络工作室's Archiver

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

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

一,获得网页来访者IP地址的代码是:[code]您的IP是: <% =Request.ServerVariables("REMOTE_ADDR") %> [/code]二,获得操作系统版本的代码是:[code]<% response.Write operationsystem & "<br>" & browser
@Ki!Rf(ikAQ;WB function operationsystem() '操作系统版本
S"]\fhC{U*x,| agent = Request.ServerVariables("HTTP_USER_AGENT")
@S9G2e;u p9l R&ruy if Instr(agent,"NT 5.2")>0 then 7Jjn;[;o%vP$u
SystemVer="Windows Server 2003" $\ y$b8d1R
elseif Instr(agent,"NT 5.1")>0 then e^O$c+x2Mm
SystemVer="Windows XP" ~~t!K$e1K
elseif Instr(agent,"NT 5")>0 then )}!k8YI,x0r`?+Y
SystemVer="Windows 2000"
7F3YZ5q*xqr elseif Instr(agent,"NT 4")>0 then r/ql _X:i
SystemVer="Windows NT4" #H iKH^W/E$FX,?
elseif Instr(agent,"4.9")>0 then 9L0A F#W \kJ A
SystemVer="Windows ME" s3bFl\#y5X
elseif Instr(agent,"98")>0 then -A6zR @GThu y
SystemVer="Windows 98" 0u-J2x6Q@ ^y
elseif Instr(agent,"95")>0 then `iA(NF1R%W@
SystemVer="Windows 95"
y w Il2i1}
j.t_*w$G#ST)}&f else
H6Sfrv,T!j#G SystemVer="未知" $O9@6s\o)P G[ nt
end if
Z D;Ni Dr+qC5pA operationsystem="您的操作系统是: " & SystemVer 0l[,p:^ M F W
end function %> N:n!Q"lejT,wDG:|!`
[/code]三,获得浏览器版本的代码是:[code]<% function browser() '浏览器版本
;Y0{\%\e3I agent = Request.ServerVariables("HTTP_USER_AGENT")
},W0Nu5Rw if Instr(agent,"MSIE 6.0")>0 then
7n9@q2G@ q browserVer="Internet Explorer 6.0"
mJT Us*Gu$f elseif Instr(agent,"MSIE 5.5")>0 then
JCv:T^|)\+N e browserVer="Internet Explorer 5.5" PIPz1pg9N]
elseif Instr(agent,"MSIE 5.01")>0 then
v![3bH l;I h0g+J browserVer="Internet Explorer 5.01"
@ e~ QY b-x&~G elseif Instr(agent,"MSIE 5.0")>0 then
R'^@0bNW+GJ browserVer="Internet Explorer 5.00"
&B TO+RP/P4sP)D elseif Instr(agent,"MSIE 4.0")>0 then 2KGZ"im2uvQ0?
browserVer="Internet Explorer 4.0"
/]F8E&hw else
,V"P0`*?9Qc2o0P browserVer="未知" bzf!x-`
end if ,i` }"~q"f0U3X
browser="您的浏览器版本: " & browserVer 4uid;Q*B^.@*x(c
if Instr(agent,"TencentTraveler")>0 then '检查是否正在使用腾讯TT j)|q.uk]}U
browser=browser&" |目前正使用TencentTraveler" $R RF6iF @
end if
j [ I{:t"^v+x X1@ end function %>[/code]

页: [1]
【捌玖网络】已经运行:


Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.