หน้าแรก>บทช่วยสอนการเขียนโปรแกรมเครือข่าย>กวดวิชา ASP

asp กำหนดเบราว์เซอร์และหมายเลขเวอร์ชัน

ผู้เขียน：Eve Cole เวลาอัปเดต：2009-06-26 18:10:03
程序代码
-
Dim Agent, เบราว์เซอร์, เวอร์ชัน, tmpstr
Agent=Request.ServerVariables("HTTP_USER_AGENT")
ตัวแทน=แยก(ตัวแทน,";")
ถ้า InStr(Agent(1),"MSIE")>0 แล้ว
เบราว์เซอร์ = "MS Internet Explorer"
version=Trim(ซ้าย(แทนที่(ตัวแทน(1),"MSIE", ""),6))
ElseIf InStr(Agent(4),"Netscape")>0 จากนั้น
เบราว์เซอร์ = "เน็ตสเคป"
tmpstr=แยก(ตัวแทน(4),"/")
version=tmpstr(UBound(tmpstr))
ElseIf InStr(Agent(4),"rv:")>0 จากนั้น
เบราว์เซอร์ = "โมซิลล่า"
tmpstr=Split(ตัวแทน(4),///)
version=tmpstr(UBound(tmpstr))
ถ้า InStr(version,")") > 0 แล้ว
tmpstr=แยก(เวอร์ชัน,")")
รุ่น=tmpstr(0)
สิ้นสุดถ้า
สิ้นสุดถ้า
response.Write(""&เบราว์เซอร์&" "&รุ่น&"")
-
บทความที่เกี่ยวข้อง