asp menentukan browser dan nomor versi
Penulis：Eve Cole
Waktu Pembaruan：2009-06-26 18:10:03
程序代码
<%
Agen Redupkan, Browser, versi, tmpstr
Agen=Permintaan.ServerVariables("HTTP_USER_AGENT")
Agen=Pisahkan(Agen,";")
Jika InStr(Agent(1),"MSIE")>0 Lalu
Peramban="MS Internet Explorer"
versi=Trim(Kiri(Ganti(Agen(1),"MSIE",""),6))
ElseIf InStr(Agent(4),"Netscape")>0 Lalu
Peramban="Netscape"
tmpstr=Pisahkan(Agen(4),"/")
versi=tmpstr(UBound(tmpstr))
ElseIf InStr(Agent(4),"rv:")>0 Lalu
Peramban="Mozilla"
tmpstr=Pisahkan(Agen(4),":")
versi=tmpstr(UBound(tmpstr))
Jika InStr(versi,"")") > 0 Lalu
tmpstr=Pisahkan(versi,"")")
versi=tmpstr(0)
Akhiri Jika
Akhiri Jika
respon.Tulis(""&Peramban&" "&versi&"")
%>
