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