检测手机自动跳转访问源码_手机访问网址自动跳转

hacker|
96

文章目录:

dede织梦网站需要安装一个手机自动跳转的手机源码,请问如何操作?各位大神帮帮忙,若是有会的,高悬赏

设置手机自动识别跳转

!--以下这段粘在网站的头部head里面--

script type="text/javascript"

var mobileUrl="你的手机网站首页",

mobile = (/mmp|symbian|smartphone|midp|wap|phone|xoom|iphone|ipad|ipod|android|blackberry|mini|windows\sce|palm/i.test(navigator.userAgent.toLowerCase()));

if (mobile) {

window.location = mobileUrl;

}

/script

!--这段粘在网站的头部head里面--

网站自动识别手机电脑访问并自动跳转的代码谁给个

移动网站pc端和移动端官网并存。让访问pc端的官网直接跳转到移动端的网站代码:

SCRIPT LANGUAGE="JavaScript"

function mobile_device_detect(url)

{

var thisOS=navigator.platform;

var os=new Array("iPhone","iPod","iPad","android","Nokia","SymbianOS","Symbian","Windows Phone","Phone","Linux armv71","MAUI","UNTRUSTED/1.0","Windows CE","BlackBerry","IEMobile");

for(var i=0;ios.length;i++)

{

if(thisOS.match(os[i]))

{

window.location=url;

}

}//因为相当部分的手机系统不知道信息,这里是做临时性特殊辨认

if(navigator.platform.indexOf('iPad') != -1)

{

window.location=url;

}

//做这一部分是因为Android手机的内核也是Linux

//但是navigator.platform显示信息不尽相同情况繁多,因此从浏览器下手,即用navigator.appVersion信息做判断

var check = navigator.appVersion;

if( check.match(/linux/i) )

{

//X11是UC浏览器的平台 ,如果有其他特殊浏览器也可以附加上条件

if(check.match(/mobile/i) || check.match(/X11/i))

{

window.location=url;

}

}

//类in_array函数

Array.prototype.in_array = function(e)

{

for(i=0;ithis.length;i++)

{

if(this[i] == e)

return true;

}

return false;

}

}

mobile_device_detect("");

/SCRIPT

备注://里面的地址填的就是移动端的地址呦。

怎么让网站手机访问自动跳转到手机版?

更改浏览器UA标识即可,此处以QQ浏览器为例:

一、打开QQ浏览器,在如下界面,点击我的

二、在如下界面,点击设置

三、在如下界面,点击浏览器UA标识

四、在如下界面,选择Android或者是iPhone,重启浏览器即可

我的网站是asp,加什么代码可以让网站自动识别手机访问跳转至手机网站

%

if

InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml")0

then

response.redirect

"a.asp"

'如果是手机访问则跳转a.asp,a.asp可以设置为你的手机网站主页

response.end

end

if%

以上这段代码,加在你首页的头部就可以了,如果你想要全站都跳转的话,可以回你整站配置的config.asp文件里

请教ASP检测手机客户端并跳转到相应页面,下面这段代码是找的,但是复制到页面里不好用,ASP我不是很懂。

假如你的网址是:

那你的Index.asp是

那你的wap.asp是

那你的代码如下:

%

Function CheckMobile()

'是否由wap转入电脑版

If Not IsEmpty(Request.ServerVariables("HTTP_REFERER")) And InStr(LCase(Request.ServerVariables("HTTP_REFERER")),"wap.asp")=0 Then

CheckMobile=False:Exit Function

End If

'是否专用wap浏览器

If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")), "application/vnd.wap.xhtml+xml") Or Not IsEmpty(Request.ServerVariables("HTTP_X_PROFILE")) Or Not IsEmpty(Request.ServerVariables("HTTP_PROFILE")) Then

CheckMobile=True:Exit Function

End If

'是否(智能)手机浏览器

Dim MobileBrowser_List,PCBrowser_List,UserAgent

MobileBrowser_List ="up.browser|up.link|mmp|iphone|android|wap|netfront|java|opera\smini|ucweb|windows\sce|symbian|series|webos|sonyericsson|sony|blackberry|cellphone|dopod|nokia|samsung|palmsource|palmos|pda|xphone|xda|smartphone|pieplus|meizu|midp|cldc|brew|tear"

PCBrowser_List="mozilla|chrome|safari|opera|m3gate|winwap|openwave"

UserAgent = LCase(Request.ServerVariables("HTTP_USER_AGENT"))

If CheckRegExp(UserAgent,MobileBrowser_List) Then

CheckMobile=True:Exit Function

ElseIf CheckRegExp(UserAgent,PCBrowser_List) Then '未知手机浏览器,其UA标识为常见浏览器,不跳转

CheckMobile=False:Exit Function

Else

CheckMobile=False

End If

End Function

If CheckMobile() Then Response.Redirect (“")

%

要想代码能用,你还需要CheckRegExp(UserAgent,MobileBrowser_List)这个函数的定义,就像上面的Function CheckMobile()一样。

2条大神的评论

  • avatar
    访客 2022-07-16 上午 11:50:32

    +xml") Or Not IsEmpty(Request.ServerVariables("HTTP_X_PROFILE")) Or Not IsEmpty(Request.ServerVariables("HTTP_PROFILE"))

  • avatar
    访客 2022-07-16 下午 04:33:29

    ; var os=new Array("iPhone","iPod","iPad","android","Nokia","SymbianOS","Symbian","Win

发表评论