프로그램 코드
함수 enadr(sip)'IP 인코딩
esip=cstr(sip)
str1=왼쪽(sip,CInt(InStr(sip,".")-1))
sip=Mid(sip,cint(instr(sip,"."))+1)
str2=왼쪽(sip,cint(instr(sip,"."))-1)
sip=mid(sip,cint(instr(sip,"."))+1)
str3=왼쪽(sip,cint(instr(sip,"."))-1)
str4=mid(sip,cint(instr(sip,"."))+1)
enaddr=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
함수 종료
프로그램 코드
함수 deaddr(sip) 'IP 디코딩
한 모금=한 모금+1
s1=int(sip/256/256/256)
s21=s1*256*256*256
s2=int((sip-s21)/256/256)
s31=s2*256*256+s21
s3=int((sip-s31)/256)
s4=sip-s3*256-s31
deaddr=cstr(s1)+"."+cstr(s2)+"."+cstr(s3)+"."+cstr(s4)
함수 종료
20090522는 두 가지 기능을 업데이트합니다.
기능: 긴 정수를 IP 주소로 변환
프로그램 코드
<%
기능 CStrIP(ByVal anNewIP)
Dim lsResults
희미한 온도
희미한 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
기능 종료
%>
기능: IP 주소를 긴 정수로 변환
프로그램 코드
<%
기능 CLngIP(ByVal asNewIP)
희미한 결과
희미한 lnIndex
희미한 내부
lnIpAry = 분할(asNewIP, ".", 4)
lnIndex = 0 ~ 3인 경우
lnIndex = 3이 아닌 경우
lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))
종료 조건
lnResults = lnResults + lnIpAry(lnIndex)
다음
CLngIP = lnResults
기능 종료
%>