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