http://mobiforge.com/developing/story/lightweight-device-detection-asp

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
      return True
   Else
      return False
   End If
End Sub

**免责声明：*代码可能不起作用,因为我没有测试它的方法和经典ASP的小知识.