湖南道川网络公司
网络资讯动态及建站技术分享 互联网百科知识汇集分享

ASP判断识别电脑手机移动端访问时自动跳转到指定的代码

代码是主要作用是,同一个URL地址,不同的终端设备访问打开,会自动跳到设置的代码,简单来说就是同一个网址不同的设备访问不同的代码。
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 "请访问手机版本 https://m.0733.com.cn"   
response.redirect " https://www.0733.com.cn"
response.end
else   
'response.redirect " https://www.0733.com.cn "
'response.end
End if


本文标题:ASP判断识别电脑手机移动端访问时自动跳转到指定的代码
本文链接:https://wz.0733.com.cn/web/news-27.html
  • 网易企业邮箱新增超级邮件列表等功能模板网站制作与高端定制网站制作的区别什么是网站tag标签及如何提高网站tag标签的用处呢?
  • 株洲市正威硬质合金有限公司企业官方网站建设上线网易企业邮箱新增企业网盘功能网易校园邮箱携手西安高校构筑校园云生态网易企业邮箱角逐世锦赛,安全稳定是重要因素80万家企业都在用的网易企业邮箱到底凭什么脱颖而出网易企业服务积极推动"企业上云"行动计划网易企业邮箱亮相东盟博览会 安全稳定受追捧网易企业邮箱助力达芙妮加速战略布局网易办公套件,为您打造专业化智能办公空间
  • top