当前位置: 首页 站长交流

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

栏目:站长交流 作者:重庆幺哥电脑 时间:2016-11-30 10:42:19

很多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 


阅读:17851次
我要留言

网友留言

themebetter

方法不错。

2016-12-08 10:42:49 回复

孵化器

页面好简洁

2016-12-20 15:13:23 回复

网赚助手

网赚助手评论引流博客大全已经收录了您的网站

2016-12-20 21:43:45 回复

上品户外

谢谢博主分享 巴力迅猛龙 户外狩猎用品 微信 87175879

2016-12-26 10:57:14 回复

故事会

有没有php网站的?

2017-01-10 16:19:48 回复

博客大全网

学习了 感谢分享

2017-01-15 11:08:42 回复

夏日草博客

很实用的一个小功能。

2017-02-15 16:37:22 回复

上海建站公司

实用的一个小功能

2017-02-25 12:53:21 回复

西安SEO

这个比较实用,现在移动端流量爆发式增长

2017-03-01 15:45:44 回复

半永久培训

php的咋整,比如织梦、、、

2017-03-04 13:48:12 回复

葫芦岛做网站

这个好,正需要,帮我解决了问题,感谢!

2017-04-01 22:11:08 回复

sss

哈哈哈,大家好

2017-04-14 14:34:34 回复

盘古科技

盘古打造大格局

2017-04-23 20:56:05 回复

足球比分

路过,打个酱油 。。。

2017-05-28 14:41:21 回复

盘古科技

移动端和移动浏览量越来越大

2017-06-02 14:17:08 回复

天津网站建设

很厉害

2017-06-06 14:20:38 回复

沈军

@天津网站建设:谢谢支持。

2017-06-26 09:42:47 回复

星梦互联

星梦互联---中国领先的互联网领导品牌,好产品选星梦,星梦互联专注优质空间,抢购地址: www.kailew.cn
本站所有产品(域名、企业邮局除外):买两年送一年、买三年送两年、买五年送五年、买十年送十年,另免费送500M容量企业邮局。
主机支持现今大部分主流网站源码,如:discuz、帝国、织梦、柯林、槟榔、快范等等等等,如有需要,购买主机后也可联系我们协助安装。

2017-06-27 05:45:26 回复

我要留言

  

微信扫一扫 预约上门维修

分类栏目