首页 / 网页编程 / ASP / 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地址函数
复制代码 代码如下:
<%
"******************************
"函数：cip（sip）
"参数：sip，IP地址
"作者：阿里西西
"日期：2007/7/12
"描述：转换IP地址函数
"示例：<%=cip（"219.16.73.120"）%>
"******************************
function cip（sip）
tip=cstr（sip）
sip1=left（tip,cint（instr（tip,"."）-1））
tip=mid（tip,cint（instr（tip,"."）+1））
sip2=left（tip,cint（instr（tip,"."）-1））
tip=mid（tip,cint（instr（tip,"."）+1））
sip3=left（tip,cint（instr（tip,"."）-1））
sip4=mid（tip,cint（instr（tip,"."）+1））
cip=cint（sip1）*256*256*256+cint（sip2）*256*256+cint（sip3）*256+cint（sip4）
end function
%>