asp排序（带小数点）

来源：百度知道 编辑：UC知道 时间：2024/05/13 08:28:00
需求是取字段IP的最后三位（str=Recordset1("IP") a_Data= right(str,3)）然后排序，如果有小数点 排在最前面，可能会出现数据一样的情况。就挨着排。
谢谢。

ip最好是转化成串
'-------------------------------------------------------------------------------------
'将IP转换为数字格式
'-------------------------------------------------------------------------------------
Function IP2Num(IP)
Dim IPArr
if instr(IP,".")<1 then
IP2Num=0
exit function
end if
IPArr=Split(IP,".")
IP2Num=Int(IPArr(0))*256*256*256+Int(IPArr(1))*256*256+Int(IPArr(2))*256+Int(IPArr(3))
End Function