对于WAP开发者来说,非常实用的代码.
可以判断访问者是使用手机还是使用电脑访问
从而进入不同目录.
<%
if instr(request.ServerVariables("HTTP_USER_AGENT"),"Mozilla")=0 then
response.redirect "/wap" '如果客户端为手机访问,则进入/wap目录
else
response.redirect "http://siyizhu.com/" '如果客户端不是手机访问,则进入指定地址
end if
%>
其实,上面的asp代码中,response.redirect并不是在所有地区所有手机上都可以成功的。例如,response.redirect "http://xxx.xxx.com/xxx.dll?xxx",客户可以直接进去“”中的地址,但是通过asp文件再redirect是不行的。各位有没有更好的解决办法?
这个是不对的吧,搜索引擎的蜘蛛也没有Mozilla,我印象中是这样的啊
我站上用的是:
<%
Response.Buffer = TRUE
Dim IsWap
httpAccept = LCase(Request.ServerVariables("HTTP_ACCEPT"))
if Instr(httpAccept,"wap") then
IsWap=1
Else Response.Redirect "/index.html" : Response.Flush : Response.End
End if
%>
可以判断访问者是使用手机还是使用电脑访问
从而进入不同目录.
<%
if instr(request.ServerVariables("HTTP_USER_AGENT"),"Mozilla")=0 then
response.redirect "/wap" '如果客户端为手机访问,则进入/wap目录
else
response.redirect "http://siyizhu.com/" '如果客户端不是手机访问,则进入指定地址
end if
%>
其实,上面的asp代码中,response.redirect并不是在所有地区所有手机上都可以成功的。例如,response.redirect "http://xxx.xxx.com/xxx.dll?xxx",客户可以直接进去“”中的地址,但是通过asp文件再redirect是不行的。各位有没有更好的解决办法?
这个是不对的吧,搜索引擎的蜘蛛也没有Mozilla,我印象中是这样的啊
我站上用的是:
<%
Response.Buffer = TRUE
Dim IsWap
httpAccept = LCase(Request.ServerVariables("HTTP_ACCEPT"))
if Instr(httpAccept,"wap") then
IsWap=1
Else Response.Redirect "/index.html" : Response.Flush : Response.End
End if
%>
作者:jackxiang@向东博客 专注WEB应用 构架之美 --- 构架之美,在于尽态极妍 | 应用之美,在于药到病除
地址:https://jackxiang.com/post/177/
版权所有。转载时必须以链接形式注明作者和原始出处及本声明!
评论列表