[bérk]

merhaba,

ASP'de browser'ı tanımak için ("HTTP_USER_AGENT") veya ("MSWC.BrowserType") kullanıyorum. Ancak bu kodlar sırasıyla,

Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)

ve

Netscape 4.00

sonuçlarını veriyor. Şimdi öncelikle, Neden IE'yi Mozilla/4.0 diyip MSIE5.0 diye tanıyor bunu merak ediyorum. (ayrıca bu diğer sürümlerde de olur mu?) Bir de ("MSWC.BrowserType") kullandığımda b_tanima.Browser değişkeni neden Netscape değerini veriyor?

Bunlar yerine kullanabileceğim başka komutlar biliyormusunuz?

Şimdiden teşekkürler.

[KheLL]

<%
Function Agent()
%>

<%
Dim ua, os, Browser, oa, System

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

Dim temp, ip
temp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If temp<>"" Then
ip = temp
Else
ip = Request.ServerVariables("REMOTE_ADDR")
End If
agent ="IP Adresiniz: <font color=""#ff0000"">" & ip & "</font>"
agent = agent & "<br>"
agent = agent & "Browser:<font color=""#ff0000"">" & Browser & "</font>"
agent = agent & "<br>"
agent = agent & "Sistem: <font color=""#ff0000"">" & System & ".</font>"
End Function
%>
Bu hem sistem ile ilgili hemde browser ile ilgili sorunlarına sanırım çözüm olur. gerçi sistem ile ilgili sorunun varmı bilmiyorum ama ben genede yazayım başkasına lazım olabilir.

[bérk]

merhaba,

Khell_35 gerçekten yardımların için çok teşekkürler.

aynı sorun işletim sistemlerinde de başıma gelecekti. Hızır acil gibi yetiştin.

Çok ama çok teşekkür ederim.