يحدد asp المتصفح ورقم الإصدار
الكاتب：Eve Cole
وقت التحديث：2009-06-26 18:10:03
هذا هو الحال
<%
وكيل خافت، المتصفح، الإصدار، tmpstr
Agent=Request.ServerVariables("HTTP_USER_AGENT")
الوكيل = سبليت (الوكيل، "؛")
إذا كان InStr(Agent(1);"MSIE")>0 إذن
المتصفح = "MS إنترنت إكسبلورر"
version=Trim(Left(Replace(Agent(1),"MSIE"،""),6))
ElseIf InStr(Agent(4);"Netscape")>0 ثم
المتصفح = "نتسكيب"
tmpstr=Split(Agent(4),"/")
الإصدار=tmpstr(UBound(tmpstr))
ElseIf InStr(Agent(4);"rv:")>0 ثم
المتصفح = "موزيلا"
tmpstr=سبليت(الوكيل(4),":")
الإصدار=tmpstr(UBound(tmpstr))
إذا كان InStr(version,")") > 0 إذن
tmpstr=سبليت(الإصدار،")")
الإصدار=tmpstr(0)
نهاية إذا
نهاية إذا
استجابة.كتابة(""&المتصفح&" "&الإصدار&"")
%>
