久久九九国产,在线观看美景之屋,青青久视频

asp判斷是否是手機訪問

網絡 2015/3/11 9:06:06 深山字體:大中小瀏覽 8021

asp判斷瀏覽器是否是手機版的，如果是手機版，就跳轉相應的頁面

qwbmmobilefeatures = "mini 9.5|vx1000|lge|m800|e860|u940|ux840|compal|wireless| mobi|ahong|lg380|lgku|lgu900|lg210|lg47|lg920|lg840|lg370|sam-r|mg50|s55|g83|t66|vx400|mk99|d615|d763|el370|sl900|mp500|samu3|samu4|vx10|xda_|samu5|samu6|samu7|samu9|a615|b832|m881|s920|n210|s700|c-810|_h797|mob-x|sk16d|848b|mowser|s580|r800|471x|v120|rim8|c500foma:|160x|x160|480x|x640|t503|w839|i250|sprint|w398samr810|m5252|c7100|mt126|x225|s5330|s820|htil-g1|fly v71|s302|-x113|novarra|k610i|-three|8325rc|8352rc|sanyo|vx54|c888|nx250|n120|mtk |c5588|s710|t880|c5005|i;458x|p404i|s210|c5100|teleca|s940|c500|s590|foma|samsu|vx8|vx9|a1000|_mms|myx|a700|gu1100|bc831|e300|ems100|me701|me702m-three|sd588|s800|8325rc|ac831|mw200|brew |d88|htc\/|htc_touch|355x|m50|km100|d736|p-9521|telco|sl74|ktouch|m4u\/|me702|8325rc|kddi|phone|lg |sonyericsson|samsung|240x|x320vx10|nokia|sony cmd|motorola|up.browser|up.link|mmp|symbian|smartphone|midp|wap|vodafone|o2|pocket|kindle|mobile|psp|treo|iris|3g_t|windows ce|opera mobi|windows ce; smartphone;|windows ce; iemobile|ipod|iphone|android|opera mini|blackberry|palm os|palm|hiptop|avantgo|fennec|plucker|xiino|blazer|elaine|iris|3g_t|windows ce|opera mobi|windows ce; smartphone;|windows ce; iemobile|UC|Windows Phone|webOS|vnd.wap"

call Check_Wap()

Sub Check_Wap()

dim MoblieUrl,reExp,MbStr

Set reExp = New RegExp

reExp.pattern=".*("&MbStr&").*"

reExp.IgnoreCase = True

reExp.Global = True

If reExp.test(Request.ServerVariables("HTTP_USER_AGENT")) Then

MoblieUrl="/3g/index.asp"''手機網站路徑

'response.redirect MoblieUrl

response.write "這個是WAP手機版"

'response.End

else

response.write "這個是PC版"

'response.End

End If

End Sub

'If instr(lcase(Request.ServerVariables("ALL_HTTP")),"vnd.wap")>0 or instr(lcase(Request.ServerVariables("ALL_HTTP")),"iphone")>0 or instr(lcase(Request.ServerVariables("ALL_HTTP")),"android")>0 or instr(lcase(Request.ServerVariables("ALL_HTTP")),"wap")>0 Or instr(lcase(Request.ServerVariables("All_HTTP")),"symbian") > 0 Or instr(lcase(Request.ServerVariables("All_HTTP")),"windows phone") > 0 Then

'response.Redirect("http://m.qwbm.com/?agent_id=494948")

'End If

'**************************************************

'函數名：websitez_detect_mobile_device

'作用:判斷訪問瀏覽器的類型

'參數：

'返回值：瀏覽器類型

'函數名:regexpmobiletest

'作用:在正則表達式中搜索給定的字符串，找到返回 true

'參數：

'返回值：布爾型

'日期:11-12-18

'**************************************************

Function regexpmobiletest(patrn, strng)

Dim regEx, retVal '建立變量

Set regEx=New RegExp '建立正則表達式

regEx.Pattern=patrn '設置模式

regEx.IgnoreCase=True '設置是否區分大小寫，true為不區分

retVal=regEx.Test(strng)'執行搜索測試

regexpmobiletest=retVal

End Function

function webmobilereturn(wmleis)

dim mobile_browser,user_agent, accept,mobile_browser_type

mobile_browser = "0"

user_agent=Trim(Lcase(Request.ServerVariables("HTTP_USER_AGENT")))

accept = Request.ServerVariables("HTTP_ACCEPT")

mobile_browser_type = "0" '0 - PC, 1 - Smart Phone, 2- Standard Phone 3 touch phone

'Select case true

if InStr(user_agent,"ipod")>0 or InStr(user_agent,"iphone")>0 or InStr(user_agent,"ipad")>0 then 'iPhone or iPod

mobile_browser = "1"

mobile_browser_type = "3" 'Smart Phone

elseif InStr(user_agent,"android")>0 then 'Android

mobile_browser = "1"

mobile_browser_type = "3" 'Smart Phone

elseif InStr(user_agent,"opera mini")>0 then 'Opera Mini

mobile_browser = "1"