Javascript 到 ASP 移动设备检测的经典函数

Question

我阅读了很多关于移动检测的问题，找到了一个很好的问题，但它是 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
%>

Answer 1

如果你的意思是你希望上层函数转换，那么很简单：

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 device|ipad device|ipod device|android tablet|android mobile|blackberry|mini|windowssce|palm

Answer 2

它的功能非常简单，很容易移植任何语言，我知道，但是在服务器端使用相同的功能怎么样？混合 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)
%>

Javascript 到 ASP 移动设备检测的经典函数

Javascript to ASP classic function for mobile device detection

javascript

vbscript

mobile

asp-classic