Détectez l'agent utilisateur mobile de Classic ASP et de rediriger au début de la session

Jetez un oeil à:

http://mobiforge.com / Développement / Story / Lightweight-Device-Détection-ASP P>

sub is_mobile()
  Dim Regex, match
  Set Regex = New RegExp
     With Regex
        .Pattern = "(up.browser|up.link|mmp|symbian|smartphone|midp|wap|phone|windows ce|pda|mobile|mini|palm|ipad)"
        .IgnoreCase = True
        .Global = True
      End With
   match = Regex.test(Request.ServerVariables("HTTP_USER_AGENT"))
   If match Then
      return True
   Else
      return False
   End If
End Sub

Je cherchais un moyen de le faire moi-même. Après avoir pris le code déjà ici, j'ai trouvé quelques problèmes (rien de spécial, juste en train de mélanger des langues, une chose que je fais régulièrement). Voici la version altérée corrigée pour l'ASP classique. XXX

Notez que je n'ai pas déclaré les deux variables, je sais que c'est paresseux mais comme ASP n'est pas l'option explicite, je trouve une commodité utile. < / p>

Ceci fonctionne maintenant comme un charme sur ma page de détection mobile, comme suit: xxx

espère que cela aide.

mis à jour pour la prise en charge Android

Function is_mobile()
  Dim Regex, match
  Set Regex = New RegExp
     With Regex
        .Pattern = "(up.browser|up.link|mmp|symbian|smartphone|midp|wap|phone|windows ce|pda|mobile|mini|palm|ipad|Android|BlackBerry|iPhone|iPod|Palm|Symbian)"
        .IgnoreCase = True
        .Global = True
      End With
   match = Regex.test(Request.ServerVariables("HTTP_USER_AGENT"))
   If match then
      is_mobile=True
   Else
      is_mobile=False
   End If
End Function

Cela fonctionne bien pour moi .. xxx

source