Dim HTTP_ACCEPT: HTTP_ACCEPT=Request.ServerVariables("HTTP_ACCEPT") '獲取瀏覽器信息
Dim HTTP_USER_AGENT: HTTP_USER_AGENT=LCase(Request.ServerVariables("HTTP_USER_AGENT")) '獲取AGENT
Dim HTTP_X_WAP_PROFILE: HTTP_X_WAP_PROFILE=Request.ServerVariables("HTTP_X_WAP_PROFILE") 'WAP特定信息 品牌機自帶瀏覽器都會有
Dim HTTP_UA_OS: HTTP_UA_OS=Request.ServerVariables("HTTP_UA_OS") '手機系統 電腦為空
Dim HTTP_VIA: 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
Dim default_skin
If WAPstr=True Then
default_skin = "mobile"
else
default_skin = "default"
End if