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

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
  • 网易企业邮箱Webmial安全防护升级全程支持https企业微信与腾讯企业邮通讯录如何差异化管理?电子邮箱收件协议IMAP和POP3有什么区别?
  • 株洲市正威硬质合金有限公司企业官方网站建设上线株洲一玖五金有限公司中英俄三语言版本网站设计上线缓解节后繁忙小高峰 网易企业邮箱有妙招80万家企业都在用的网易企业邮箱到底凭什么脱颖而出网页设计中HTML5源码常用meta标签网易企业邮箱关于反垃圾邮件的公告
  • top