最新更新 sitemap 网站制作设计本站搜索
网页设计
国外网站 韩国网站 个人主页 手提袋设计 CSS 网页特效 平面设计 网站设计 Flash CMS技巧 服装网站 php教程 photoshop 画册 服务器选用 数据库 Office
虚拟主机 域名注册 云主机 网页设计 客服QQ:8208442
当前位置:首页 > 编程开发 > asp教程

ASP纯真格式IP数据库的编码与解码技巧

日期:07-23    来源:中国设计秀    作者:cnwebshow.com

程序代码iS0中国设计秀
function enaddr(sip)'IP编码iS0中国设计秀
esip=cstr(sip)iS0中国设计秀
str1=Left(sip,CInt(InStr(sip,".")-1))iS0中国设计秀
sip=Mid(sip,cint(instr(sip,"."))+1)iS0中国设计秀
str2=Left(sip,cint(instr(sip,"."))-1)iS0中国设计秀
sip=mid(sip,cint(instr(sip,"."))+1)iS0中国设计秀
str3=left(sip,cint(instr(sip,"."))-1)iS0中国设计秀
str4=mid(sip,cint(instr(sip,"."))+1)iS0中国设计秀
enaddr=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1iS0中国设计秀
end functioniS0中国设计秀

iS0中国设计秀
程序代码iS0中国设计秀
function deaddr(sip) 'IP解码iS0中国设计秀
sip=sip+1iS0中国设计秀
s1=int(sip/256/256/256)iS0中国设计秀
s21=s1*256*256*256iS0中国设计秀
s2=int((sip-s21)/256/256)iS0中国设计秀
s31=s2*256*256+s21iS0中国设计秀
s3=int((sip-s31)/256)iS0中国设计秀
s4=sip-s3*256-s31iS0中国设计秀
deaddr=cstr(s1)+"."+cstr(s2)+"."+cstr(s3)+"."+cstr(s4)iS0中国设计秀
end functioniS0中国设计秀

iS0中国设计秀
20090522更新两个函数上来:iS0中国设计秀

作用:把长整型数字转为IP地址iS0中国设计秀

iS0中国设计秀
程序代码iS0中国设计秀
<%iS0中国设计秀
Function CStrIP(ByVal anNewIP)iS0中国设计秀
    Dim lsResultsiS0中国设计秀
    Dim lnTempiS0中国设计秀
    Dim lnIndexiS0中国设计秀
    For lnIndex = 3 To 0 Step -1iS0中国设计秀
        lnTemp = Int(anNewIP / (256 ^ lnIndex))iS0中国设计秀
        lsResults = lsResults & lnTemp & "."iS0中国设计秀
        anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex))iS0中国设计秀
    NextiS0中国设计秀
    lsResults = Left(lsResults, Len(lsResults) - 1)iS0中国设计秀
    CStrIP = lsResultsiS0中国设计秀
End FunctioniS0中国设计秀
%>iS0中国设计秀

iS0中国设计秀
作用:把IP地址转为长整型iS0中国设计秀

iS0中国设计秀
程序代码iS0中国设计秀
<%iS0中国设计秀
Function CLngIP(ByVal asNewIP)iS0中国设计秀
    Dim lnResultsiS0中国设计秀
    Dim lnIndexiS0中国设计秀
    Dim lnIpAryiS0中国设计秀
    lnIpAry = Split(asNewIP, ".", 4)iS0中国设计秀
    For lnIndex = 0 To 3iS0中国设计秀
        If Not lnIndex = 3 TheniS0中国设计秀
            lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))iS0中国设计秀
        End IfiS0中国设计秀
        lnResults = lnResults + lnIpAry(lnIndex)iS0中国设计秀
    NextiS0中国设计秀
    CLngIP = lnResultsiS0中国设计秀
End FunctioniS0中国设计秀
%>iS0中国设计秀
 iS0中国设计秀

本文引用地址:/bc/article_46264.html
网站地图 | 关于我们 | 联系我们 | 网站建设 | 广告服务 | 版权声明 | 免责声明