<%

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

%>