ASP纯真格式腾讯qq IP数据库的编码与解码

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

程序代码
function deaddr(sip) 'IP解码
sip=sip+1
s1=int(sip/256/256/256)
s21=s1*256*256*256
s2=int((sip-s21)/256/256)
s31=s2*256*256+s21
s3=int((sip-s31)/256)
s4=sip-s3*256-s31
deaddr=cstr(s1)+"."+cstr(s2)+"."+cstr(s3)+"."+cstr(s4)
end function

20090522更新两个函数上来：

作用:把长整型数字转为IP地址

程序代码
<%
Function CStrIP(ByVal anNewIP)
　  Dim lsResults
　  Dim lnTemp
　  Dim lnIndex
　  For lnIndex = 3 To 0 Step -1
　　　  lnTemp = Int(anNewIP / (256 ^ lnIndex))
　　　  lsResults = lsResults & lnTemp & "."
　　　  anNewIP = anNewIP - (lnTemp * (256 ^ lnIndex))
　  Next
　  lsResults = Left(lsResults, Len(lsResults) - 1)
　  CStrIP = lsResults
End Function
%>

作用:把IP地址转为长整型

程序代码
<%
Function CLngIP(ByVal asNewIP)
　  Dim lnResults
　  Dim lnIndex
　  Dim lnIpAry
　  lnIpAry = Split(asNewIP, ".", 4)
　  For lnIndex = 0 To 3
　　　  If Not lnIndex = 3 Then
　　　　　  lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))
　　　  End If
　　　  lnResults = lnResults + lnIpAry(lnIndex)
　  Next
　  CLngIP = lnResults
End Function
%>