asp让网站自动识别手机访问跳转至手机网站
时间:2014-12-06 09:36:02
只要把下面代码放到index.asp或者default.asp中,只要在首页代码顶部引用call Check_Wap(),这个也是我的工程中使用的代码。用正则判断方便简洁。
Sub Check_Wap()
dim MoblieUrl,reExp,MbStr
MoblieUrl="/3g/index.asp"''手机网站路径
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,手机
0
投稿
猜你喜欢
盖座漂亮的“楼”–浅谈网页设计中的构图
2010-09-10 12:44:00
wap开发 完整的WML文档结构详解
2008-05-21 13:39:00
JavaScript 与 ActionScript 3.0 交互的一些问题
2008-01-27 12:20:00
商品评论的设计
2009-12-23 13:06:00
如何只取数据库的前3条记录?
2010-06-28 18:28:00
ASP四级联动做法
2009-07-03 15:35:00
深入认识javascript中的eval函数
2008-08-03 16:44:00
用CSS实现柱状图(Bar Graph)的方法(三)——复杂柱状图的实现
2008-05-26 13:36:00
提高ASP性能的最佳选择第二部分
2007-08-15 12:46:00
utf8_unicode_ci与utf8_general_ci的区别
2010-03-03 15:54:00
图片变形扭曲特效js脚本
2008-11-20 12:57:00
mssql中获取指定日期所在月份的第一天的代码
2011-09-30 11:23:57
亚马逊购物用户体验分析 (二)
2009-10-25 12:48:00
em和strong的区别
2008-12-23 12:08:00
一直闪烁变色的超级链接代码
2008-02-27 13:08:00
MySQL分区的功能和限制讲解
2010-10-14 14:03:00
全面阐述overflow:hidden属性
2008-08-18 13:30:00
中英文双语导航菜单
2007-05-11 17:04:00
Array.prototype.slice
2010-05-07 12:43:00
Firefox插件推荐:CSS Usage
2009-10-26 18:44:00