Programalama > ASP

Etiketler: browser, sistem, ip......

Ort. 0
Puan ver:
<% 
ua = Request.ServerVariables("HTTP_USER_AGENT" ) 
os = Request.ServerVariables("HTTP_UA_OS" ) 
If InStr(ua, "MSIE" ) Then 
     If InStr(ua, "MSIE 5." ) Then 
          Browser = "Microsoft Internet Explorer 5.x" 
     ElseIf InStr(ua, "MSIE 4." ) Then 
          Browser = "Microsoft Internet Explorer 4.x" 
     ElseIf InStr(ua, "MSIE 3." ) Then 
          Browser = "Microsoft Internet Explorer 3.x" 
          If InStr(ua, "MSIE 3.02" ) Then 
               Browser = "Microsoft Internet Explorer 3.02" 
          End If 
     Else 
          Browser = "Microsoft Internet Explorer" 
     End If 
ElseIf InStr(ua, "Mozilla" ) and InStr(ua, "compatible" ) = 0 Then 
     If InStr(ua, "Mozilla/4" ) Then 
          Browser = "Netscape Navigator 4.x" 
     ElseIf InStr(ua, "Mozilla/3" ) Then 
          Browser = "Netscape Navigator 3.x" 
     Else 
          Browser = "Netscape Navigator" 
     End If 
End If 

If InStr(ua, "Windows 95" ) or InStr(ua, "Win95" ) Then 
     System = "Windows 95" 
ElseIf InStr(ua, "Windows 98" ) or InStr(ua, "Win98" ) Then 
     System = "Windows 98" 
ElseIf InStr(ua, "Windows 3.1" ) or InStr(os, "Win16" ) Then 
     System = "Windows 3.x/Windows NT 3.x" 
ElseIf InStr(ua, "NT" ) or InStr(oa, "NT" ) Then 
     System = "Windows NT" 
ElseIf InStr(ua, "Mac" ) Then 
     System = "Mac" 
     If InStr(ua, "PowerPC" ) or InStr(ua, "PPC" ) Then 
          System = "Mac PPC" 
     ElseIf InStr(ua, "68000" ) or InStr(ua, "68K" ) Then 
          System = "Mac 68K" 
     End If 
ElseIf InStr(ua, "X11" ) Then 
     System = "UNIX" 
End If 
%> 

<font size="2" face="Verdana"> Kullandiginiz Browser: <%=Browser %> Sistem: <%=System %>. 
IP Adresiniz: </font> <%=Request.ServerVariables("Remote_Addr" ) %>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2019 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.