機能:長い整数数をIPアドレスに変換します
<%
functioncstrip(byvalannewip)
dimlsresults
dimlntemp
dimlnindex
forlnindex = 3to0step-1
lntemp = int(annewip/(256^lnindex))
lsresults = lsresults&lntemp& "。"
annewip = annewip-(lntemp*(256^lnindex))
次
lsresults = left(lsresults、len(lsresults)-1)
cstrip = lsResults
エンド機能
%>