機能：長い整数数を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
エンド機能
％>