asp下のIPアドレスセグメント計算関数

IPアドレスセグメント計算＜script laguage=「JScript」 Runat=「Server」function IPDeCode(EIC){var} Ip 1,Ip 2,Ip 3,Ip 4;Ip 1 = moveByteR（EIA） & 0 xff000000,3）Ip 2 = moveByteR（EIA） & 0 x 00 ff0000、2）Ip 3 = moveByteR（EIA） & 0 x 0000 ff 00,1）Ip 4 = EIC & 0 x 000000 ffreturn Ip 1 + "." + Ip 2 + "." + Ip 3 + "." + Ip 4；｝機能 moveByteL(num，byteum){return] num <<= (byteum*8)}function moveByteR(num，byteum){return] num >>>= (bytemp*8)はvbsではビット操作がありません。このように一つのページでjsとvbsを使うのはよくないです。vbsでもいいですが、くどいです。それに、vbsの中でsplit（「202.02.29.6」「.」）、202、102、29の数字が必要です。 & ".",".") 私はvbsで作ったのですが、ビット操作がないので、面倒くさいです。 ip 2 int(ipstr)dim iptemp，max iptemp = split（ipstr&「.」）max = uound(iptemp)if max <> 4 then exit function end if dim a，b，i a = "&H「for」 i = 0 ト 3 b = Hex(iptemp(i)if len(b) = 1 then b = "0'&b end if a = a&b next ip 2 int = CLng(a)end function function int 2 ip(ip)dim iptemp、a、ipstr、i、length iptemp = Hex(ip)length = 8 - len(iptemp)for i = 1 ト length iptemp = "0” & iptemp next a = left(iptemp，2)a = "&H” & a i = CInt(a)a = CStr(i)ipstr = a. & "." a. = mid（iptemp、3、2）a = "&H” & a i = CInt(a)a = CStr(i)ipstr = ipstr & a. & "." a. = mid（iptemp、5、2）a = "&H” & a i = CInt(a)a = CStr(i)ipstr = ipstr & a. & "." a. = right(iptemp，2)a = "&H” & a i = CInt(a)a = CStr(i)ipstr = ipstr & a int 2 ip = ipstr end function dim testIP，testInt testIP=「202.02.29.6」testInt = ip 2 int(testIP)reponse.write testIP & " will be encoded ト " & test Int & "
「レスポンス.write」 testIP & " will be dencoded ト " & int 2 ip(testInt) & "
“%”