您好,欢迎来到搜123网站分类目录!
当前位置:搜123网站分类目录 » 站长资讯 » 网站运营 » 文章详细 订阅RssFeed

真正实用的ASP判断手机访问并跳转的代码

来源:互联网 浏览:45次 时间:2018-10-27
HTTP_ACCEPT=Request.ServerVariables("HTTP_ACCEPT")                 '获取浏览器信息
HTTP_USER_AGENT=LCase(Request.ServerVariables("HTTP_USER_AGENT"))  '获取AGENT
HTTP_X_WAP_PROFILE=Request.ServerVariables("HTTP_X_WAP_PROFILE")   'WAP特定信息 品牌机自带浏览器都会有
HTTP_UA_OS=Request.ServerVariables("HTTP_UA_OS")                   '手机系统 电脑为空
HTTP_VIA=LCase(Request.ServerVariables("HTTP_VIA"))                '网关信息
Dim WapStr
WAPstr=False
If ubound(split(HTTP_ACCEPT,"vnd.wap"))>0 Then WAPstr=True
If HTTP_USER_AGENT="" Then  WAPstr=True
If HTTP_X_WAP_PROFILE<>"" Then  WAPstr=True
If HTTP_UA_OS<>"" Then  WAPstr=True
IF ubound(split(HTTP_VIA,"wap"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"netfront"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"iphone"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"opera mini"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"ucweb"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"windows ce"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"symbianos"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"java"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"android"))>0 Then  WAPstr=True
If WAPstr=True Then    
Response.Write "请访问手机版本http://m.seo123.net"   
response.redirect "http://m.seo123.net"
response.end
else   
response.redirect "http://www.seo123.net"
response.end
End if

推荐站点

  • 十二星座生肖网十二星座生肖网

    十二星座生肖网,提供星座、生肖、个性、开运方法、运势、配对、解梦以及命理分析、血型、算命、风水等星相生肖命理信息。

    www.12xzsx.com
  • 汇吃的汇吃的

    汇吃的是一个美食分享平台,是一个分享美食制作方法的地方,也有美食故事的分享,提供图文菜谱大全,享受美食的乐趣,找美食菜谱,就上汇吃的。

    www.huichide.com
  • 中国天气网中国天气网

    中国天气网官方权威发布天气预报,逐三小时天气预报,提供天气预报查询一周,天气预报15天查询,空气质量,生活指数,旅游出行,交通天气等查询服务

    www.weather.com.cn
  • 520设计网520设计网

    520设计-中国网页平面设计师交流平台,专为酷爱网页设计、界面设计的你而倾力打造。拥有设计视频教程、网页模板、设计素材、CSS3+HTML5、网页平面设计视频教程、设计师网址导航等相关内容,它将成为你设计路上的一位好伙伴!

    www.sj520.cn
  • 天极网天极网

    天极网,全球最大的中文IT门户,专注IT产品采购及应用指南,每天为广大用户提供电脑硬件,软件,数码,商情,手机,笔记本,游戏,互联网,数字家庭,教育,下载等内容,解决网友工作学习中的技术疑难,指导数字科技消费,领引时尚生活潮流.

    www.yesky.com