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地址函数