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

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

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

一，获得网页来访者IP地址的代码是：[code]您的IP是: <% =Request.ServerVariables("REMOTE_ADDR") %> [/code]二，获得操作系统版本的代码是：[code]<% response.Write operationsystem & "<br>" & browser
mz6BcU.J.Y&}!t function operationsystem() '操作系统版本
p,U I k,C,N[7T| agent = Request.ServerVariables("HTTP_USER_AGENT") g8N]E hr9r
if Instr(agent,"NT 5.2")>0 then ^[7Xf m0b3i1EYj7B
SystemVer="Windows Server 2003" 8sORo.| aGslCD_
elseif Instr(agent,"NT 5.1")>0 then
4u)lGH1L%U SystemVer="Windows XP"
QZ&xy&i-y elseif Instr(agent,"NT 5")>0 then
nb eyf0f#wr [ SystemVer="Windows 2000" tPluon,bN
elseif Instr(agent,"NT 4")>0 then .?^8vN}3wz~
SystemVer="Windows NT4" 5R&^%N0Px:c#U@
elseif Instr(agent,"4.9")>0 then
efABmGD SystemVer="Windows ME" -BzyKQ;^7teGh
elseif Instr(agent,"98")>0 then ;Bp:T)~t(d@1w E0Q$t
SystemVer="Windows 98" m1Q;m$jeA#A
elseif Instr(agent,"95")>0 then G*AZ#EBXrv4@
SystemVer="Windows 95"
&Y
Gq$Ib%w I)g8}2O
G
h'd6A[T"V?'\ else
4a2WbrC SystemVer="未知" ht;Xy_5\n!Z"b
end if
5D qPs+S*Z] operationsystem="您的操作系统是: " & SystemVer
'y,KODrf.l1[ end function %> s_`z3PB9g
[/code]三，获得浏览器版本的代码是：[code]<% function browser() '浏览器版本 3o;qg(})eK
agent = Request.ServerVariables("HTTP_USER_AGENT") "c"z-g"Z h.i
if Instr(agent,"MSIE 6.0")>0 then
{#x p;pINT)IK h browserVer="Internet Explorer 6.0"
(Duj"\` o$Gb(b elseif Instr(agent,"MSIE 5.5")>0 then
C[y:{&rRw#DZ browserVer="Internet Explorer 5.5"
'a:GH*K5b
j)Pf elseif Instr(agent,"MSIE 5.01")>0 then
WX.xFec7p browserVer="Internet Explorer 5.01"
;_4HXc4}W2e^ elseif Instr(agent,"MSIE 5.0")>0 then
J B5mpNn browserVer="Internet Explorer 5.00" W$PrA;Wf%N
elseif Instr(agent,"MSIE 4.0")>0 then
sR/D#K)e-H3x browserVer="Internet Explorer 4.0"
"L+A6Q8c2T#v!J else
1R`1t`v@#g3Q8|%^ browserVer="未知" &yZPlz&~(A
end if
&KjB,mYm)f browser="您的浏览器版本: " & browserVer
a,q f3n
iF3[9M6Ck if Instr(agent,"TencentTraveler")>0 then '检查是否正在使用腾讯TT
rQ~8Z#^ browser=browser&" ｜目前正使用TencentTraveler"
|"fW0c.} ]O$q:j end if
\j{Gh'A end function %>[/code]

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