asp自动识别手机访问网站并跳转到手机网站

<%

Sub Check_Wap()

 dim MoblieUrl,reExp,MbStr

 MoblieUrl="/m/"  '手机网站路径

 Set reExp = New RegExp

 MbStr="Android|iPhone|UC|Windows Phone|webOS|BlackBerry|iPod"

 reExp.pattern=".*("&MbStr&").*"

 reExp.IgnoreCase = True

 reExp.Global = True

 If reExp.test(Request.ServerVariables("HTTP_USER_AGENT")) Then

  response.redirect MoblieUrl

  response.End

 End If

End Sub

call Check_Wap()

%>