asp下客户端IP地址函数到IP地址功能的转换

<
******************************
功能：Userip（）
参数：否
作者：Ali Cici
日期：2007 7 12
说明：获取客户端IP地址
的例子：
******************************
Userip（）函数
昏暗的getclientip
如果客户端使用代理服务器的ServerVariables（http_x_forwarded_for ）应该用的方法
getclientip = request.servervariables（http_x_forwarded_for ）
如果getclientip = 或空（getclientip）或是空的（getclientip）然后
如果客户不使用代理，该request.servervariables（remote_addr ）应该用的方法
getclientip = request.servervariables（remote_addr ）
最后如果
userip = getclientip
端功能
%>
IP地址转换功能
复制代码代码如下所示：
<
******************************
功能：CIP（SIP）
参数：SIP、IP地址
作者：Ali Cici
日期：2007 7 12
说明：IP地址函数的转换
的例子：
******************************
功能CIP（SIP）
提示= CSTR（SIP）
SIP1 =左（尖，Cint（仪器（尖，）- 1）））
提示=中（尖，Cint（仪器（尖，，）+ 1）））
为=左（尖，Cint（仪器（尖，）- 1）））
提示=中（尖，Cint（仪器（尖，，）+ 1）））
SIP3 =左（尖，Cint（仪器（尖，）- 1）））
sip4 =中（尖，Cint（仪器（尖，，）+ 1）））
CIP = Cint（1）* 256 * 256 * 256 + Cint（为）* 256 * 256 + Cint（SIP3）* 256 + Cint（SIP4）
端功能
%>