<%
Function CheckMobile()
if InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/vnd.wap.wml")>0 then
CheckMobile=True: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
Set MobileBrowser_List = New RegExp '建立正则表达式
Set PCBrowser_List = New RegExp '建立正则表达式
MobileBrowser_List.Pattern ="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.Pattern="mozilla|chrome|safari|opera|m3gate|winwap|openwave"
UserAgent = LCase(Request.ServerVariables("HTTP_USER_AGENT"))
If MobileBrowser_List.Test(UserAgent) Then
CheckMobile=True:Exit Function
ElseIf PCBrowser_List.Test(UserAgent) Then '未知手机浏览器，其UA标识为常见浏览器，不跳转
CheckMobile=False:Exit Function
Else
CheckMobile=False
End If
End Function
if CheckMobile then
Response.redirect "mobile.asp"
end if%>
