ASP判断是否手机访问自动进入手机站
作者:hwarker 日期:2016-06-07
在PC+手机二合一的网站中,网站如何能够正确判断用户是从PC端还是移动端的来访,并且根据用户的来访路径来决定是分配手机网站还是PC网站。经过一段时间的研究及摸索,已经完全掌握了其规律,今天就将办法分享给大家。很简单的方式,只要一段简单的ASP代码即可。代码如下:
<%
Sub Check_Wap()
dim MoblieUrl,reExp,MbStr
MoblieUrl=http://www.kukafei.cn''此为手机网站路径,各位在复制代码时只要将此路径修改成指定手机网站的路径即可。推荐使用独立手机网站域名。
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
%>
调用<%call Check_Wap()%>
这段代码经过奇亿网络的多次测试,100%有用。<%
Sub Check_Wap()
dim MoblieUrl,reExp,MbStr
MoblieUrl="http://www.kukafei.cn"''手机网站路径
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判断是否手机访问办法,时间关系未试,请各位有兴趣读者自行测试。
以下是引用片段:
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 "我是手机访问"
’’ response.redirect "wap.asp"
else
Response.Write "我是PC访问"
’’ response.redirect "Pc.asp"
End if
本次的分享到这里结束。手机网站会在一定时期成为互联网发展的潮流。当然,在更远的未来,能够适应各种设备浏览,无论是PC、平板电脑还是各种分辨率的手机都能够得到最佳程度展现的网站建设类型才会是众望所归。我们仍然在这条路上努力探索,并且会不定时跟大家分享我们的成果。如果你希望和我们一起分享或者有一些更好的建议,欢迎联系我们。
<%
Sub Check_Wap()
dim MoblieUrl,reExp,MbStr
MoblieUrl=http://www.kukafei.cn''此为手机网站路径,各位在复制代码时只要将此路径修改成指定手机网站的路径即可。推荐使用独立手机网站域名。
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
%>
调用<%call Check_Wap()%>
这段代码经过奇亿网络的多次测试,100%有用。<%
Sub Check_Wap()
dim MoblieUrl,reExp,MbStr
MoblieUrl="http://www.kukafei.cn"''手机网站路径
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判断是否手机访问办法,时间关系未试,请各位有兴趣读者自行测试。
以下是引用片段:
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 "我是手机访问"
’’ response.redirect "wap.asp"
else
Response.Write "我是PC访问"
’’ response.redirect "Pc.asp"
End if
本次的分享到这里结束。手机网站会在一定时期成为互联网发展的潮流。当然,在更远的未来,能够适应各种设备浏览,无论是PC、平板电脑还是各种分辨率的手机都能够得到最佳程度展现的网站建设类型才会是众望所归。我们仍然在这条路上努力探索,并且会不定时跟大家分享我们的成果。如果你希望和我们一起分享或者有一些更好的建议,欢迎联系我们。
评论: 0 | 引用: 0 | 查看次数: -
发表评论