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

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
  • 阿里云应域名合规政策要求向您转发邮件网站优化时每天发布多少篇文章比较合适?网易企业邮箱的邮件被隔离了,如何解决?
  • 为什么说企业需要拥有自己的163企业邮箱?网易企业邮箱新增企业网盘功能一个新网站如何让搜索引擎快速收录网易企业邮箱亮相东盟博览会 安全稳定受追捧双11.11,网易企业邮箱为用户定制专属福利网易企业服务积极推动"企业上云"行动计划什么样的网站百度比较喜欢
  • top