最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

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ù)
復(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)文章

最新評(píng)論

琼海市| 营山县| 萨迦县| 泰和县| 龙陵县| 榕江县| 台北市| 平邑县| 柳河县| 马边| 河间市| 铁岭县| 屯门区| 额济纳旗| 双桥区| 桃江县| 阜康市| 肥乡县| 剑阁县| 理塘县| 道孚县| 明光市| 奇台县| 岱山县| 丹巴县| 任丘市| 宜昌市| 衢州市| 新龙县| 沙河市| 闽清县| 秭归县| 墨玉县| 开阳县| 合肥市| 韶关市| 阳原县| 孙吴县| 确山县| 清徐县| 四子王旗|