中国电子cec w658:调用acc数据库ip数据的函数修改

我的acc数据库ip数据原为001001001001格式，其调用函数为 <tr bgcolor="#FFFFFF">
<td align=left width="51"><%=Assay(1,i)%></td>
<td align=left width="60"><%if ipps=true then%>
<%Num=Split(Assay(3,i) ,".")%>
<%=Num(0)&"."&Num(1)&"."&Num(2)&".*"%>
<%else%>
<%=Assay(3,i)%>
<%end if%>
现在我将使用1.1.1.1格式ip数据库，请问如何调用？
先前的补充不对，应该是这个：
Num=Split(Ip,".")
IpOne=Num(0)
IpTwo=Num(0)&"."&Num(1)
For I=0 to 3
Sip=Sip&String(3-Len(Num(I)),"0")&Num(I)
Next
Sql="Select Top 1 Area,Address From IpInfo Where StartIp<='"&SIp&"' and EndIp>='"&SIp&"' Order By StartIp"
Rs.Open Sql,Conn,1,3
If Rs.Eof Or Rs.Bof Then
Area="其他地区"
Address="其他地区"
Else
Area=Rs("Area")
Address=Rs("Area")&Rs("Address")
End If
Rs.Close
Sql="Select Top 1 Scope From IpScope Where StartIp<='"&SIp&"' and EndIp>='"&SIp&"' Order By Scope DESC"
Rs.Open Sql,Conn,1,3
If Rs.Eof Or Rs.Bof Then
Scope="OtherNum"
Else
Scope=Rs("Scope")
End If
Rs.Close