识别wap和web客户端浏览器

asp代码

<%
'+--------------------------------------------------------+
'| 识别WAP或WEB客户端浏览器 (asp版本)
'| 作者: 石头 ([e-mail] | www.stonemx.com)                
'+--------------------------------------------------------+
Option Explicit
dim GuestUrl
if instr(Request.ServerVariables("http_accept"),"wap")>0  then
    GuestUrl="http://WAP网站地址"
else
    GuestUrl="http://WEB网站地址"
end if
Response.Redirect(GuestUrl)
%>