函数：将长整数转换为IP地址。

<
函数的CStrIP（ByVal annewip）
昏暗的lsresults
昏暗的lntemp
昏暗的lnindex
对于lnindex = 3到0步，1
lntemp = int（annewip /（256 ^ lnindex））
lsresults = lsresults lntemp 。
annewip = annewip -（lntemp *（256 ^ lnindex））
下一个
lsresults =左（lsresults，Len（lsresults）- 1）
cstrip = lsresults
端功能
%>