asp下取得客戶端IP地址函數(shù) 轉(zhuǎn)換IP地址函數(shù)
更新時(shí)間：2007年08月08日 11:27:49 作者：
<%
'******************************
'函數(shù)：Userip()
'參數(shù)：無
'作者：阿里西西
'日期：2007/7/12
'描述：取得客戶端IP地址
'示例：<%=Userip()%>
'******************************
Function Userip()
Dim GetClientIP
'如果客戶端用了代理服務(wù)器，則應(yīng)該用ServerVariables("HTTP_X_FORWARDED_FOR")方法
GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If GetClientIP = "" or isnull(GetClientIP) or isempty(GetClientIP) Then
'如果客戶端沒用代理，應(yīng)該用Request.ServerVariables("REMOTE_ADDR")方法
GetClientIP = Request.ServerVariables("REMOTE_ADDR")
end if
Userip = GetClientIP
End function
%>
轉(zhuǎn)換IP地址函數(shù)
<%
'******************************
'函數(shù)：cip(sip)
'參數(shù)：sip，IP地址
'作者：阿里西西
'日期：2007/7/12
'描述：轉(zhuǎn)換IP地址函數(shù)
'示例：<%=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
%>
'******************************
'函數(shù)：Userip()
'參數(shù)：無
'作者：阿里西西
'日期：2007/7/12
'描述：取得客戶端IP地址
'示例：<%=Userip()%>
'******************************
Function Userip()
Dim GetClientIP
'如果客戶端用了代理服務(wù)器，則應(yīng)該用ServerVariables("HTTP_X_FORWARDED_FOR")方法
GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If GetClientIP = "" or isnull(GetClientIP) or isempty(GetClientIP) Then
'如果客戶端沒用代理，應(yīng)該用Request.ServerVariables("REMOTE_ADDR")方法
GetClientIP = Request.ServerVariables("REMOTE_ADDR")
end if
Userip = GetClientIP
End function
%>
轉(zhuǎn)換IP地址函數(shù)
復(fù)制代碼 代碼如下:
<%
'******************************
'函數(shù)：cip(sip)
'參數(shù)：sip，IP地址
'作者：阿里西西
'日期：2007/7/12
'描述：轉(zhuǎn)換IP地址函數(shù)
'示例：<%=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
%>
相關(guān)文章
用ASP實(shí)現(xiàn)分級(jí)權(quán)限控制
用ASP實(shí)現(xiàn)分級(jí)權(quán)限控制...2007-09-09
Asp函數(shù)返回引用類型代碼，需要的朋友可以參考下。2010-03-03
ASP提速技巧 推薦...2007-01-01
不時(shí)有人問這種問題， js怎么傳值到asp, asp 怎么傳值到j(luò)s。 其實(shí)這個(gè)問題很經(jīng)典，我以前也犯過這種糊涂。2009-05-05
asp 實(shí)現(xiàn)的冒泡排序程序程序代碼，需要的朋友可以參考下。2009-11-11
Js獲取asp頁面返回的值(加載值)實(shí)現(xiàn)代碼
本文詳細(xì)介紹Js獲取asp頁面返回的值(加載值)實(shí)現(xiàn)方法，需要了解的朋友可以參考下2012-12-12
asp利用Split函數(shù)進(jìn)行多關(guān)鍵字檢索
怎樣提取數(shù)據(jù)庫用|隔開的字！2009-09-09
.NET?Core?分布式任務(wù)調(diào)度ScheduleMaster詳解
這篇文章主要介紹了分布式任務(wù)調(diào)度ScheduleMaster,集中任務(wù)調(diào)度系統(tǒng)，最簡(jiǎn)單的理解ScheduleMaster，就是對(duì)不同的系統(tǒng)里面的調(diào)度任務(wù)做統(tǒng)一管理的框架，本文通過圖文實(shí)例代碼相結(jié)合給大家介紹的非常詳細(xì)，需要的朋友可以參考下2022-05-05
完美解決PJ的Cookies保存時(shí)限問題!可選擇記錄登陸時(shí)長(zhǎng)!
完美解決PJ的Cookies保存時(shí)限問題!可選擇記錄登陸時(shí)長(zhǎng)!...2007-02-02
asp 數(shù)組 重復(fù)刪除函數(shù)(腳本之家增強(qiáng)版)
這篇文章是asp下刪除重復(fù)數(shù)組的函數(shù)，已經(jīng)經(jīng)過測(cè)試。2010-05-05