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

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标签的用处呢?网易企业邮箱新增邮件撤回功能腾讯企业邮箱添加域名后提示所有权验证中
  • 什么样的网站百度比较喜欢一个新网站如何让搜索引擎快速收录网易企业邮箱:我们提供初创企业需要的一切网易企业邮箱走进东北 推进高校教育信息化网易企业邮箱角逐世锦赛,安全稳定是重要因素网易企业邮箱助力达芙妮加速战略布局双11.11,网易企业邮箱为用户定制专属福利网易企业邮箱获评2017年度最佳企业信息化服务品牌网易企业邮箱服务平台:管理新功能企业新标杆影响网站在搜索引擎中的一些排名因素
  • top