[网络资源] 万能的落伍，求自动检测手机流览器访问转向到其他URL的代码。 [复制链接]
查看:7786 | 回复:21

zzz80714 · 发表于 2013-4-23 09:05:40

帮楼主顶下吧。

kkkie · 发表于 2013-4-23 09:06:45

高手块出现了

云随风 · 发表于 2013-4-23 09:27:40

if InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/vnd.wap.wml")>0 then
response.redirect "wap.asp" '如果是手机访问则跳转到wap.asp
response.end
else
response.redirect "default.asp" '如果电脑访问跳转到首页
response.end
end if

じ独爱〤佳丽々 · 发表于 2013-4-23 09:28:46

你身上就二千分，都不知道你要怎么给这一万分。。。

aljcfj · 发表于 2013-4-23 09:29:10

这个真是不知道哦

じ独爱〤佳丽々 · 发表于 2013-4-23 09:29:15

<?php
if(preg_match('/MSIE\s+6/',$_SERVER['HTTP_USER_AGENT'])){
header("Location: a.php");
}else{
header("Location: b.php");
}
?>

asp的
<%
Dim BrowserString
BrowserString = Request.ServerVariables("HTTP_USER_AGENT")
BrowserString = Lcase(BrowserString)

Dim broFirefox,broMSIE,broOpera,broWap
broFirefox = "firefox"
broMSIE = "msie"
broOpera = "opera"
broWap = "wap"

'如果是Firefox
if Instr(BrowserString, broFirefox) <> 0 then
Response.Redirect(broFirefox & ".asp")
end if
'如果是MSIE
if Instr(BrowserString, broMSIE) <> 0 then
Response.Redirect(broMSIE & ".asp")
end if
'如果是Opera
if Instr(BrowserString, broOpera) <> 0 then
Response.Redirect(broOpera & ".asp")
end if
'如果是Wap（没有用过所以还要看HTTP_USER_AGENT表示的结果）
if Instr(BrowserString, broWap) <> 0 then
Response.Redirect(broWap & ".asp")
end if
%>

www.sohu.ir · 发表于 2013-4-23 09:30:46

提示: 作者被禁止或删除内容自动屏蔽

zgqc · 发表于 2013-4-23 10:03:29

<?php
function check_wap() {
if (isset($_SERVER['HTTP_VIA'])) return true;
if (isset($_SERVER['HTTP_X_NOKIA_CONNECTION_MODE'])) return true;
if (isset($_SERVER['HTTP_X_UP_CALLING_LINE_ID'])) return true;
if (strpos(strtoupper($_SERVER['HTTP_ACCEPT']),"VND.WAP.WML") > 0) {
// Check whether the browser/gateway says it accepts WML.
$br = "WML";
} else {
$browser = isset($_SERVER['HTTP_USER_AGENT']) ? trim($_SERVER['HTTP_USER_AGENT']) : '';
if(emptyempty($browser)) return true;
$browser=substr($browser,0,4);
if ($browser=="Noki" || // Nokia phones and emulators
$browser=="Eric" || // Ericsson WAP phones and emulators
$browser=="WapI" || // Ericsson WapIDE 2.0
$browser=="MC21" || // Ericsson MC218
$browser=="AUR" || // Ericsson R320
$browser=="R380" || // Ericsson R380
$browser=="UP.B" || // UP.Browser
$browser=="WinW" || // WinWAP browser
$browser=="UPG1" || // UP.SDK 4.0
$browser=="upsi" || // another kind of UP.Browser ??
$browser=="QWAP" || // unknown QWAPPER browser
$browser=="Jigs" || // unknown JigSaw browser
$browser=="Java" || // unknown Java based browser
$browser=="Alca" || // unknown Alcatel-BE3 browser (UP based?)
$browser=="MITS" || // unknown Mitsubishi browser
$browser=="MOT-" || // unknown browser (UP based?)
$browser=="My S" ||// unknown Ericsson devkit browser ?
$browser=="WAPJ" || // Virtual WAPJAG www.wapjag.de
$browser=="fetc" || // fetchpage.cgi Perl script from www.wapcab.de
$browser=="ALAV" || // yet another unknown UP based browser ?
$browser=="Wapa" || // another unknown browser (Web based "Wapalyzer"?)
$browser=="Oper") // Opera
{
$br = "WML";
} else {
$br = "HTML";
}
}
if($br == "WML") {
return TRUE;
} else {
return FALSE;
}
}
if(!check_wap()) {
Header("Location: http://落伍"); //这里跳转到wap的域名
exit();
}

复制代码

这段代码比较全面了，加入到公用的文件前面，整个网站都能判断，里面的关键字还可以根据需要增减。

zgqc · 发表于 2013-4-23 10:06:02

bvo 发表于 2013-4-23 00:26
您是说在PHP头部中加入以下代码就可以吗。

是的，18楼的代码更全面一些。

简单判断WML关键字基本是可以判断手机浏览器，后面的主要针对虚拟的wap浏览器判断的！

bvo · 发表于 2013-4-23 22:28:21

zgqc 发表于 2013-4-23 10:03
这段代码比较全面了，加入到公用的文件前面，整个网站都能判断，里面的关键字还可以根据需要增减。

您是说把您的代码加到index.php头部是吗。
是否有JSP的代码呢。
另外我忘了说。我的服务器是TOMCAT7.0 阿拍奇的。

百独托管7500 紫田网络	超高转化播放器收cps[推荐]	速盾CDN 免实名免备防屏蔽	阿里云爆款特卖9.9元封顶	提升alexa、IP流量7Q5团队
【腾讯云】中小企福利专场	【腾讯云】多款产品1折起	高防随时退换好耶数据	小飞国外网赚带你月入万元	炎黄网络4H4G10M 99每月
香港带宽CN2/美国站群优惠	中客数据中心服务器租用	联盟系统移动广告平台中易	企业专场腾讯云服务器2.5折	九九数据工信部正规资质
腾讯云新用户大礼包代金券	高价收cpa注册量高价展示	【腾讯云】2核2G/9.93起	租服务器找45互联随时退换	阿里云短信服务验证秒达

[网络资源] 万能的落伍，求自动检测手机流览器访问转向到其他URL的代码。 [复制链接]
查看:7786 | 回复:21

QQ绑定

落伍者

落伍手机绑定

落伍草根英雄

[网络资源] 万能的落伍，求自动检测手机流览器访问转向到其他URL的代码。 [复制链接] 查看:7786 | 回复:21

QQ绑定

落伍者

落伍手机绑定

落伍草根英雄

[网络资源] 万能的落伍，求自动检测手机流览器访问转向到其他URL的代码。 [复制链接]
查看:7786 | 回复:21