用于移动设备检测的Javascript到ASP经典函数_Javascript_Mobile_Vbscript_Asp Classic

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

javascript mobile vbscript asp-classic

用于移动设备检测的Javascript到ASP经典函数,javascript,mobile,vbscript,asp-classic,Javascript,Mobile,Vbscript,Asp Classic,我读了很多关于移动检测的问题，a发现了一个很好的问题，但它是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 ((userAg

我读了很多关于移动检测的问题，a发现了一个很好的问题，但它是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";
}

<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)
%>

我在上找到了一个经典的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
%>

如果您的意思是希望转换上层函数，那么它相当简单：

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。如果需要，可以将更多项目添加到条形分隔列表中

如果Instr（userAgent，mobile（c））>0

）以及分配给返回值的结果（

…然后rV=mobile（c）

）

公平地说，我确实忘记了

If Instr（userAgent，mobile）>0

语句中的

（c）

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

Android平板电脑

（注意小写）：

如果您的意思是希望将上层函数转换，那么它相当简单：

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