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

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

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

一，获得网页来访者IP地址的代码是：[code]您的IP是: <% =Request.ServerVariables("REMOTE_ADDR") %> [/code]二，获得操作系统版本的代码是：[code]<% response.Write operationsystem & "<br>" & browser
$P j0v7ggFd2f*c1j function operationsystem() '操作系统版本 [,S:U3UU
agent = Request.ServerVariables("HTTP_USER_AGENT") Y'}T-k+[$_uD)zd
if Instr(agent,"NT 5.2")>0 then
"s}!_w%?'g*W!y5V6H SystemVer="Windows Server 2003"
&];K!PO e elseif Instr(agent,"NT 5.1")>0 then
!P"Jp`PL SystemVer="Windows XP"
?5KY(N _\+Y"~ elseif Instr(agent,"NT 5")>0 then E#HDx?ah
SystemVer="Windows 2000"
b-a8I-\ @ elseif Instr(agent,"NT 4")>0 then
[;b{|M
J.N SystemVer="Windows NT4"
w/\3u'[)Xl elseif Instr(agent,"4.9")>0 then
["c W3zlx SystemVer="Windows ME"
OF8PMU elseif Instr(agent,"98")>0 then

QeZi`gAb SystemVer="Windows 98" #Bor(mEd,S
elseif Instr(agent,"95")>0 then
7W%vRX&H#| SystemVer="Windows 95"
:sQ8?kv
qj7|;Z+\5s else X`:R'QO
SystemVer="未知"

Z0Z#gv]p| end if nl"Z%y2B%\T:v
operationsystem="您的操作系统是: " & SystemVer
E` }UMn end function %>
Z.{[nRd7@3Y
[/code]三，获得浏览器版本的代码是：[code]<% function browser() '浏览器版本 *q&XKss3D{?
agent = Request.ServerVariables("HTTP_USER_AGENT")
^_ A*]!X+hAG@9a if Instr(agent,"MSIE 6.0")>0 then j(hQ"|.A]7yj'x
browserVer="Internet Explorer 6.0" ] ovkcry0A H
elseif Instr(agent,"MSIE 5.5")>0 then
-rA-K4fa c browserVer="Internet Explorer 5.5" ;\5V|&hi'w\"d/I5A
elseif Instr(agent,"MSIE 5.01")>0 then j7yNW)Dy
browserVer="Internet Explorer 5.01"
f&L~v%K#C+{#}#p elseif Instr(agent,"MSIE 5.0")>0 then ^ J)a|gg
browserVer="Internet Explorer 5.00" (cR+iR$v
elseif Instr(agent,"MSIE 4.0")>0 then
6|W$P&^EKI browserVer="Internet Explorer 4.0" *eeO%e/mm^?7`
else &b7E.bBG?p7Y
browserVer="未知"
5e,l9X(Ad$b end if
I'u6|1J"MK8~ browser="您的浏览器版本: " & browserVer
"P}!L/l9e\V if Instr(agent,"TencentTraveler")>0 then '检查是否正在使用腾讯TT
MJ[\^7FO#A;~&[I browser=browser&" ｜目前正使用TencentTraveler"
L7Qg&{e end if :r)Z3XR)_8NO
B
end function %>[/code]

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