代码如下：

<%

if InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/vnd.wap.wml")>0 then
    response.redirect  "wap.asp" '如果是手机访问则跳转到wap.asp
    response.end
else
    response.redirect  "default.asp" '如果电脑访问跳转到首页
    response.end
end if

%>