如何把这两个ASP格式化IP的函数写与SQL自定义函数
qfljm 2006-02-23 10:50:48 如何把这两个ASP格式化IP的函数写与SQL自定义函数
Function EcodeIP(strIP)
Dim aIP, RV
If strIP="" Or strIP="127.0.0.1" Then strIP="192.168.0.1"
aIP = Split(strIP, ".")
EcodeIP=CLng(aIP(0)) * 16777216 + CLng(aIP(1)) * 65536 + CLng(aIP(2)) * 256 + CLng(aIP(3)) - 1
End Function
Function DcodeIP(intIP)
Dim sect1, sect2, sect3, sect4
sect1 = Int(intIP / 16777216)
intIP = intIP - sect1 * 16777216
sect2 = Int(intIP / 65536)
intIP = intIP - sect2 * 65536
sect3 = Int(intIP / 256)
intIP = intIP - sect3 * 256
sect4 = intIP+1
DcodeIP = sect1 & "." & sect2 & "." & sect3 & "." & sect4
End Function
MSSQL2000版本