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

tianya

一，获得网页来访者IP地址的代码是：

1. 您的IP是: <% =Request.ServerVariables("REMOTE_ADDR") %>

复制代码

二，获得操作系统版本的代码是：

1. <% response.Write operationsystem & "<br>" & browser
   
2. function operationsystem() '操作系统版本
   
3. agent = Request.ServerVariables("HTTP_USER_AGENT")
   
4. if Instr(agent,"NT 5.2")>0 then
   
5. SystemVer="Windows Server 2003"
   
6. elseif Instr(agent,"NT 5.1")>0 then
   
7. SystemVer="Windows XP"
   
8. elseif Instr(agent,"NT 5")>0 then
   
9. SystemVer="Windows 2000"
   
10. elseif Instr(agent,"NT 4")>0 then
    
11. SystemVer="Windows NT4"
    
12. elseif Instr(agent,"4.9")>0 then
    
13. SystemVer="Windows ME"
    
14. elseif Instr(agent,"98")>0 then
    
15. SystemVer="Windows 98"
    
16. elseif Instr(agent,"95")>0 then
    
17. SystemVer="Windows 95"
    
18. 
    
19. else
    
20. SystemVer="未知"
    
21. end if
    
22. operationsystem="您的操作系统是: " & SystemVer
    
23. end function %>

复制代码

三，获得浏览器版本的代码是：

1. <% function browser() '浏览器版本
   
2. agent = Request.ServerVariables("HTTP_USER_AGENT")
   
3. if Instr(agent,"MSIE 6.0")>0 then
   
4. browserVer="Internet Explorer 6.0"
   
5. elseif Instr(agent,"MSIE 5.5")>0 then
   
6. browserVer="Internet Explorer 5.5"
   
7. elseif Instr(agent,"MSIE 5.01")>0 then
   
8. browserVer="Internet Explorer 5.01"
   
9. elseif Instr(agent,"MSIE 5.0")>0 then
   
10. browserVer="Internet Explorer 5.00"
    
11. elseif Instr(agent,"MSIE 4.0")>0 then
    
12. browserVer="Internet Explorer 4.0"
    
13. else
    
14. browserVer="未知"
    
15. end if
    
16. browser="您的浏览器版本: " & browserVer
    
17. if Instr(agent,"TencentTraveler")>0 then '检查是否正在使用腾讯TT
    
18. browser=browser&" ｜目前正使用TencentTraveler"
    
19. end if
    
20. end function %>

复制代码