用于移动设备检测的Javascript到ASP经典功能

Javascript to ASP classic function for mobile device detection

本文关键字：ASP 经典功能 Javascript 移动检测用于更新时间：2023-09-26

我读了很多关于移动检测的问题，发现了一个很好的问题，但它是JavaScript，我在经典ASP中需要它。

function deviceType(userAgent) {
  userAgent=userAgent.toLowerCase()
  var mobile = (/iphone|ipad|ipod|android|blackberry|mini|windows'sce|palm/i.test(userAgent));
  if (mobile) {
    if ((userAgent.search("android") > -1) && (userAgent.search("mobile") > -1))
      return "Android Mobile"
    else if ((userAgent.search("android") > -1) && !(userAgent.search("mobile") > -1))
      return "Android Tablet"
    else if ((userAgent.search("blackberry") > -1))
      return "Blackberry Device"
    else if ((userAgent.search("iphone") > -1))
      return "iPhone Device"
    else if ((userAgent.search("ipod") > -1))
      return "iPod Device"
    else if ((userAgent.search("ipad") > -1))
      return "iPad Device"
    else
      return "Unknown mobile device"
  }
  else
    return"No mobile device detected";
}

我在 http://detectmobilebrowsers.com/上找到了一个经典的ASP解决方案，但代码只是告诉我它是否是移动的，而我需要像JavaScript函数一样检测和打印设备类型。

<%
function deviceType(userAgent)
  dim b,v
  set b=new RegExp
  set v=new RegExp
  b.Pattern="(android|bb'd+|meego).+mobile|avantgo|bada'/|blackberry|blazer|compal|elaine|fennec|hiptop|iemobile|ip(hone|od)|iris|kindle|lge |maemo|midp|mmp|mobile.+firefox|netfront|opera m(ob|in)i|palm( os)?|phone|p(ixi|re)'/|plucker|pocket|psp|series(4|6)0|symbian|treo|up'.(browser|link)|vodafone|wap|windows ce|xda|xiino|android|ipad|playbook|silk"
  v.Pattern="1207|6310|6590|3gso|4thp|50[1-6]i|770s|802s|a wa|abac|ac(er|oo|s'-)|ai(ko|rn)|al(av|ca|co)|amoi|an(ex|ny|yw)|aptu|ar(ch|go)|as(te|us)|attw|au(di|'-m|r |s )|avan|be(ck|ll|nq)|bi(lb|rd)|bl(ac|az)|br(e|v)w|bumb|bw'-(n|u)|c55'/|capi|ccwa|cdm'-|cell|chtm|cldc|cmd'-|co(mp|nd)|craw|da(it|ll|ng)|dbte|dc'-s|devi|dica|dmob|do(c|p)o|ds(12|'-d)|el(49|ai)|em(l2|ul)|er(ic|k0)|esl8|ez([4-7]0|os|wa|ze)|fetc|fly('-|_)|g1 u|g560|gene|gf'-5|g'-mo|go('.w|od)|gr(ad|un)|haie|hcit|hd'-(m|p|t)|hei'-|hi(pt|ta)|hp( i|ip)|hs'-c|ht(c('-| |_|a|g|p|s|t)|tp)|hu(aw|tc)|i'-(20|go|ma)|i230|iac( |'-|'/)|ibro|idea|ig01|ikom|im1k|inno|ipaq|iris|ja(t|v)a|jbro|jemu|jigs|kddi|keji|kgt( |'/)|klon|kpt |kwc'-|kyo(c|k)|le(no|xi)|lg( g|'/(k|l|u)|50|54|'-[a-w])|libw|lynx|m1'-w|m3ga|m50'/|ma(te|ui|xo)|mc(01|21|ca)|m'-cr|me(rc|ri)|mi(o8|oa|ts)|mmef|mo(01|02|bi|de|do|t('-| |o|v)|zz)|mt(50|p1|v )|mwbp|mywa|n10[0-2]|n20[2-3]|n30(0|2)|n50(0|2|5)|n7(0(0|1)|10)|ne((c|m)'-|on|tf|wf|wg|wt)|nok(6|i)|nzph|o2im|op(ti|wv)|oran|owg1|p800|pan(a|d|t)|pdxg|pg(13|'-([1-8]|c))|phil|pire|pl(ay|uc)|pn'-2|po(ck|rt|se)|prox|psio|pt'-g|qa'-a|qc(07|12|21|32|60|'-[2-7]|i'-)|qtek|r380|r600|raks|rim9|ro(ve|zo)|s55'/|sa(ge|ma|mm|ms|ny|va)|sc(01|h'-|oo|p'-)|sdk'/|se(c('-|0|1)|47|mc|nd|ri)|sgh'-|shar|sie('-|m)|sk'-0|sl(45|id)|sm(al|ar|b3|it|t5)|so(ft|ny)|sp(01|h'-|v'-|v )|sy(01|mb)|t2(18|50)|t6(00|10|18)|ta(gt|lk)|tcl'-|tdg'-|tel(i|m)|tim'-|t'-mo|to(pl|sh)|ts(70|m'-|m3|m5)|tx'-9|up('.b|g1|si)|utst|v400|v750|veri|vi(rg|te)|vk(40|5[0-3]|'-v)|vm40|voda|vulc|vx(52|53|60|61|70|80|81|83|85|98)|w3c('-| )|webc|whit|wi(g |nc|nw)|wmlb|wonu|x700|yas'-|your|zeto|zte'-"
  b.IgnoreCase=true
  v.IgnoreCase=true
  b.Global=true
  v.Global=true
  if b.test(userAgent) or v.test(Left(userAgent,4)) then
    deviceType="Is a mobile device"
  else
    deviceType="Is not mobile"
  end if
end function
%>

我知道这是非常简单的功能，可以轻松移植任何语言，但是在服务器端使用相同的功能呢？混合JavaScript（实际上是Microsoft的JavaScript方言，称为JScript）和VBScript是Classic ASP的内置功能。

<script language="JavaScript" runat="server">
function deviceType(userAgent) {
  userAgent=userAgent.toLowerCase()
  var mobile = (/iphone|ipad|ipod|android|blackberry|mini|windows'sce|palm/i.test(userAgent));
  if (mobile) {
    if ((userAgent.search("android") > -1) && (userAgent.search("mobile") > -1))
      return "Android Mobile"
    else if ((userAgent.search("android") > -1) && !(userAgent.search("mobile") > -1))
      return "Android Tablet"
    else if ((userAgent.search("blackberry") > -1))
      return "Blackberry Device"
    else if ((userAgent.search("iphone") > -1))
      return "iPhone Device"
    else if ((userAgent.search("ipod") > -1))
      return "iPod Device"
    else if ((userAgent.search("ipad") > -1))
      return "iPad Device"
    else
      return "Unknown mobile device"
  }
  else
    return "No mobile device detected";
}
</script>
<%
Dim strUA
    'convert request collection item into string, because JScript is picky than VBScript
    strUA = CStr(Request.ServerVariables("HTTP_USER_AGENT"))
Response.Write deviceType(strUA)
%>

如果你的意思是你想要上层函数转换，那么它相当简单：

function DeviceType(userAgent)
    userAgent = LCase(userAgent)
    Dim mobile(), c, rV
    mobile = Split("iphone|ipad|ipod|android|blackberry|mini|windowssce|palm", "|")
    rV = "Unknown"
    For c = 0 To UBound(mobile, 1)
        If Instr(userAgent, mobile(c)) > 0 Then
            rV = mobile(c)
            Exit For
        End If
    Next 'c
    DeviceType = rV
End Function

不过，它不使用Reg Exp。如果需要，您可以在条形分隔列表中添加更多项目。

公平地说，我确实忘记了If Instr(userAgent, mobile) > 0声明中的(c)。

但是，如果您要在用户代理字符串中查找特定值，只需将它们包含在条形分隔列表中即可。例如，如果您正在寻找Android平板电脑，请在列表中包含android tablet（注意小写）：

iPhone设备|iPad设备|iPod设备|Android平板电脑|Android手机|黑莓|迷你|WindowsSce|Palmical