初次来，先送些小东西

[aoeiuvcom]

以下两个函数不知道能用多久，能在IP6普及之前吧：）

我的数据库里就用整数来保存IP地址，节省空间！

Function GetIPVal(byval s)
dim v,i
v = split(s,".")
for i=0 to 3
v(i) = Hex(v(i))
if len(v(i)) = 1 then v(i) = "0" & v(i)
next
i = "&h" & v(0) & v(1) & v(2) & v(3)
GetIpVal = CLng(i)
End Function

Function GetIPString(byval v)
dim s,n(3),m
s = Hex(v)
m = 2 + len(s) - 8
n(0) = CLng("&h" & mid(s,1,m))
n(1) = CLng("&h" & mid(s,1+m,2))
n(2) = CLng("&h" & mid(s,3+m,2))
n(3) = CLng("&h" & mid(s,5+m,2))
GetIPString = join(n,".")
End Function


俺是偷偷进来的，因为CSDN没有解决俺的问题，登陆进来找不到论坛列表，只好偷偷找ID然后偷偷进来

[aoeiuvcom]

此贴，

转移到ASP区失败，删除也失败

无言。。。