asp下取得客户端IP地址函数 转换IP地址函数

<%
'
'函数Userip()
'参数无
'作者阿里西西
'日期2007/7/12
'描述取得客户端IP地址
'示例<%=Userip()%>
'
Function Userip()
Dim GetClientIP
'如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法
GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If GetClientIP = "" or isnull(GetClientIP) or isempty(GetClientIP) Then
'如果客户端没用代理，应该用Request.ServerVariables("REMOTE_ADDR")方法
GetClientIP = Request.ServerVariables("REMOTE_ADDR")
end if
Userip = GetClientIP
End function
%>
转换IP地址函数