asp下取得客戶端IP地址函數轉換IP地址函數

更新時間：2007年08月08日 11:27:49 作者：

<%
'******************************
'函數：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 
%>

用ASP實現(xiàn)分級權限控制
用ASP實現(xiàn)分級權限控制...
2007-09-09
Asp 返回引用類型函數代碼
Asp函數返回引用類型代碼，需要的朋友可以參考下。
2010-03-03
ASP提速技巧推薦
ASP提速技巧推薦...
2007-01-01
asp javascript值的互相傳遞方法
不時有人問這種問題， js怎么傳值到asp, asp 怎么傳值到js。其實這個問題很經典，我以前也犯過這種糊涂。
2009-05-05
asp 實現(xiàn)的冒泡排序程序
asp 實現(xiàn)的冒泡排序程序程序代碼，需要的朋友可以參考下。
2009-11-11
Js獲取asp頁面返回的值(加載值)實現(xiàn)代碼
本文詳細介紹Js獲取asp頁面返回的值(加載值)實現(xiàn)方法，需要了解的朋友可以參考下
2012-12-12
asp利用Split函數進行多關鍵字檢索
怎樣提取數據庫用|隔開的字！
2009-09-09
.NET?Core?分布式任務調度ScheduleMaster詳解
這篇文章主要介紹了分布式任務調度ScheduleMaster,集中任務調度系統(tǒng)，最簡單的理解ScheduleMaster，就是對不同的系統(tǒng)里面的調度任務做統(tǒng)一管理的框架，本文通過圖文實例代碼相結合給大家介紹的非常詳細，需要的朋友可以參考下
2022-05-05
完美解決PJ的Cookies保存時限問題!可選擇記錄登陸時長!
完美解決PJ的Cookies保存時限問題!可選擇記錄登陸時長!...
2007-02-02
asp 數組重復刪除函數(腳本之家增強版)
這篇文章是asp下刪除重復數組的函數，已經經過測試。
2010-05-05