Dim iparr : iparr = Split(IPADDRESS,".")

caltot = (iparr(0)*16777216)+(iparr(1)*65536)+(iparr(2)*256)+iparr(3)

SQL = "SELECT top 1 CountryCode, CountryNumber FROM GEOIP with(nolock) WHERE StartNumber<=" & caltot & " and EndNumber>=" & caltot

set rs = ConDB.Execute(SQL)

if not rs.EOF Then

CountryCode = rs("CountryCode")

CountryNumber = rs("CountryNumber")

Else

CountryCode = ""

CountryNumber = ""

End If

MAX Mind 무료 다운로드 http://dev.maxmind.com/geoip/geolite

신고

Name __

Password __

Link (Your Website)

Comment

SECRET | 비밀글로 남기기