ASP获取用户是电脑还是手机访问以及IP地址

最近在研究ASP程序，通过ASP函数获取判断访问用户设备的来源，判断电脑还是手机访问，经过这几天的学习，终于完成ASP获取用户是电脑还是手机设备访问来源，以及访问者IP地址的ASP函数，完整代码如下。

<%
Function GetUrl()
Dim WapStr,InFrom,HTTP_ACCEPT,HTTP_USER_AGENT,HTTP_X_WAP_PROFILE,HTTP_UA_OS,HTTP_VIA,REMOTE_ADDR
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"))                '网关信息
REMOTE_ADDR=Request.ServerVariables("REMOTE_ADDR")                 'IP信息
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 
InFrom="手机端 "&"-IP地址"&REMOTE_ADDR
else   
InFrom="电脑端 "&"-IP地址"&REMOTE_ADDR
End if
GetUrl = InFrom
End Function
Response.Write GetUrl
%>