|
بىكەتكە ئەزا نامىڭىز بىلەن كىرسىڭىز تېخىمۇ كۆپ ئۇچۇرلارنى كۆرەلەيسىز
مۇنبىرىمىزگە تىزىملىتىپ كىرسىڭىز ئاندىن قوشۇمچە ھۆججەتنى كۆرەلەيسىز ياكى چۈشۈرەلەيسىز . تېخى تىزىملاتمىغانمۇ؟ تىزىملىتىڭ
x
 |
 |
 |
 |
ئابونتلار تور بىكىتىڭىزنى يانفوندا زىيارەت قىلغان ۋاقىتتا ئاپتۇماتىك wap بىتىڭىزگە ئالماشتۇرالامسىز؟ تۆۋەندىكى دەرسلىكتە بىز دەل مۇشۇ مەسىللەرنى ھەل قىلىمىز. ئۇنداقتا ئۈستىدىكى ئېلاننى بىر چىكىۋېتىپ دىققىتىڭىز تۆۋەندىكى دەرسلىكتە بولسۇن.
بەت ئالمىشىش كودلىرى:
php نىڭ: - function is_mobile() {
- var regex_match = /(nokia|iphone|android|motorola|^mot-|softbank|foma|docomo|kddi|up.browser|up.link|htc|dopod|blazer|netfront|helio|hosin|huawei|novarra|CoolPad|webos|techfaith|palmsource|blackberry|alcatel|amoi|ktouch|nexian|samsung|^sam-|s[cg]h|^lge|ericsson|philips|sagem|wellcom|bunjalloo|maui|symbian|smartphone|midp|wap|phone|windows ce|iemobile|^spice|^bird|^zte-|longcos|pantech|gionee|^sie-|portalmmm|jigs browser|hiptop|^benq|haier|^lct|operas*mobi|opera*mini|320x320|240x320|176x220)/i;
- var u = navigator.userAgent;
- if (null == u) {
- return true;
- }
- var result = regex_match.exec(u);
-
- if (null == result) {
- return false
- } else {
- return true
- }
- }
- if (is_mobile()) {
- document.location.href="#";
- }
مەزمۇننى كۆچۈرۈۋېلىش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
مەزمۇننى كۆچۈرۈۋېلىش
|
 |
 |
 |
 |
|
باھالاش
-
باھا خاتىرىسى
|