Browser Tespiti<%StrBrws = Request.ServerVariables("HTTP_USER_AGENT")If Instr(StrBrowser, "MSIE") ThenIf Instr(StrBrws, "MSIE 5.") ThenStrBrowser = "Microsoft Internet Explorer 5.x"Elseif Instr(StrBrws, "MSIE 4.") ThenStrBrowser = "Microsoft Internet Explorer 4.x"Elseif Instr(StrBrws, "MSIE 3.") ThenStrBrowser = "Microsoft Internet Explorer 3.x"If Instr(StrBrws, "MSIE 3.02") ThenStrBrowser = "Microsoft Internet Explorer 3.02"End IfElseStrBrowser = "Microsoft Internet Explorer"End IfElseIf Instr(StrBrws, "Mozilla") and Instr(StrBrws, "compatible") = 0 ThenIf Instr(StrBrws, "Mozilla/4") ThenStrBrowser = "Netscape Navigator 4.x"Elseif Instr(StrBrws, "Mozilla/3") ThenStrBrowser = "Netscape Navigator 3.x"ElseStrBrowser = "Netscape Navigator"End IfEnd If%>Kullanımı : <% Response.write StrBrowser %>
