当前位置:首页 >> 站长交流 >>ASP网站识别手机访问 首页内页实现自动跳转

ASP网站识别手机访问 首页内页实现自动跳转

2016-11-30 沈军 站长交流

很多ASP网站站长都知道,ASP网站自带了手机访问首页实现自动跳转移动手机站首页的功能,可是没有手机移动端访问内页时,自动跳转到对应的手机移动端内页的功能。经过研究,电商博客就自己的方法分享给大家,轻松实现ASP网站识别手机移动端访问, 首页和内页分别实现自动跳转到对应手机移动端页面的功能。

ASP网站首页识别手机访问实现自动跳转

Sub Check_Wap()
 dim MoblieUrl,reExp,MbStr
 MoblieUrl="http://m.cqfoxconnjob.com"'此为手机网站路径,各位在复制代码时只要将此路径修改成指定手机网站的路径即可。推荐使用独立手机网站域名。
 Set reExp = New RegExp
 MbStr="Android|iPhone|UC|Windows Phone|webOS|BlackBerry|iPod"
 reExp.pattern=".*("&MbStr&").*"
 reExp.IgnoreCase = True
 reExp.Global = True
 If reExp.test(Request.ServerVariables("HTTP_USER_AGENT")) Then
  response.redirect MoblieUrl
  response.End
 End If
End Sub


ASP网站内页识别手机访问实现自动跳转

Sub PageCheck_Wap()
 dim MoblieUrl,reExp,MbStr
 MoblieUrl="http://m.cqfoxconnjob.com"&GetLocationURL
 Set reExp = New RegExp
 MbStr="Android|iPhone|UC|Windows Phone|webOS|BlackBerry|iPod"
 reExp.pattern=".*("&MbStr&").*"
 reExp.IgnoreCase = True
 reExp.Global = True
 If reExp.test(Request.ServerVariables("HTTP_USER_AGENT")) Then
  response.redirect MoblieUrl
  response.End
 End If
End Sub

Function GetLocationURL() 
Dim Url 
Dim ServerPort,ServerName,ScriptName,QueryString 
ServerName = Request.ServerVariables("SERVER_NAME") 
ServerPort = Request.ServerVariables("SERVER_PORT") 
ScriptName = Request.ServerVariables("SCRIPT_NAME") 
QueryString = Request.ServerVariables("QUERY_STRING") 
Url=ServerName 
If ServerPort <> "80" Then Url = Url & ":" & ServerPort 
Url=ScriptName 
If QueryString <>"" Then Url=Url&"?"& QueryString 
GetLocationURL=Url 
End Function 


评论:

星梦互联
Google Chrome 40.0.2214.89 Android 4.4.42017-06-27 05:45
星梦互联---中国领先的互联网领导品牌,好产品选星梦,星梦互联专注优质空间,抢购地址:   www.kailew.cn

本站所有产品(域名、企业邮局除外):买两年送一年、买三年送两年、买五年送五年、买十年送十年,另免费送500M容量企业邮局。
主机支持现今大部分主流网站源码,如:discuz、帝国、织梦、柯林、槟榔、快范等等等等,如有需要,购买主机后也可联系我们协助安装。
天津网站建设
Google Chrome 49.0.2623.110 Windows 72017-06-06 14:20
很厉害
沈军
2017-06-26 09:42
@天津网站建设:谢谢支持。
盘古科技
Google Chrome 49.0.2623.110 Windows 72017-06-02 14:17
移动端和移动浏览量越来越大
足球比分
Firefox 53.0 unknow2017-05-28 14:41
路过,打个酱油 。。。
盘古科技
Google Chrome 56.0.2922.1 Windows 72017-04-23 20:56
盘古打造大格局
sss
Google Chrome 21.0.1180.89 Windows 72017-04-14 14:34
哈哈哈,大家好
葫芦岛做网站
Firefox 51.0 Windows 72017-04-01 22:11
这个好,正需要,帮我解决了问题,感谢!
半永久培训
Google Chrome 45.0.2454.101 Windows XP2017-03-04 13:48
php的咋整,比如织梦、、、
西安SEO
Google Chrome 45.0.2454.101 Windows 72017-03-01 15:45
这个比较实用,现在移动端流量爆发式增长
上海建站公司
Google Chrome 50.0.2661.102 Windows 72017-02-25 12:53
实用的一个小功能
夏日草博客
Google Chrome 45.0.2454.101 Windows 72017-02-15 16:37
很实用的一个小功能。
博客大全网
Google Chrome 47.0.2526.108 Windows 72017-01-15 11:08
学习了 感谢分享
故事会
Google Chrome 45.0.2454.101 Windows 72017-01-10 16:19
有没有php网站的?
上品户外
Google Chrome 45.0.2454.101 Windows 72016-12-26 10:57
谢谢博主分享   巴力迅猛龙  户外狩猎用品   微信 87175879
网赚助手
Google Chrome 38.0.2125.122 Windows 72016-12-20 21:43
网赚助手评论引流博客大全已经收录了您的网站

发表评论:

特色服务

网站建设 B2B推广 博客运营

关于博客

Powered by emlog

备案信息渝icp备13007381号-2

Copyright © 2014 by 沈军.All rights reserved.

联系我们

Q:375405748

18523488524

Address: ChongQing