Chặn Ip nước ngoài vào website....mà không dùng tới .htaccess!?

[nvcnvn]

Hót em xài bị lỗi nếu dùng file .htaccess, nên em không biết cách nào để chặn bọn nước ngoài vào site, mọi người có cách nào giúp em không!
Chặn đưng1 mọi IP nước ngoài ngay từ đầu luôn á!
Thân, cảm ơn mọi người!

[danp]

Khi khách vào website bạn lấy đc IP, lấy cái IP đấy truyền cho bọn này http://www.geody.com/geoip.php nó tìm xem ở đâu, nếu việt nam thì cấp cho cái session trang sau không cần kiểm tra nữa, nhưng cách này lại bị phụ thuộc.
Đã lâu quá rồi, trc mình có tìm thấy một cái xác định ip của việt nam, nhưng không nhớ dữ liệu lấy ở đâu.
shortIP = Request.ServerVariables("REMOTE_HOST")
mySplit = Split(shortIP, ".")
LongIP = (mySplit(0)*(256*256*256)) + (mySplit(1)*(256*256)) + (mySplit(2)*256) + (mySplit(3))
myArray=array(985268224,2059995136,2064646144,2111 078400,2111176704,2112487424,2258592512,2258602496 ,3389391360,3389415424,3392114176,3392956416,33941 66784,3394234368,3395027968,3397783552,3398934528, 3400270848,3400440960,3410866688,3413213184,341357 5680,3413582848,3413584896,3414224896,3416260608,3 416285184,3416326144,3416391680,3416985600,3417350 144,3418267648,3418294272,3418304512,3419570176,35 28908800,3539271680,3663989248,3663990272,37061427 20,3715694592,3716415488,3716481024,3741057024)

myArrayD=array(985399295,2059997183,2065694719,211 1111167,2111193087,2112618495,2258592767,225860275 1,3389391615,3389415935,3392114431,3392958463,3394 168831,3394236415,3395028991,3397785599,3398938623 ,3400271359,3400441023,3410866943,3413229567,34135 76703,3413583871,3413585919,3414226943,3416261119, 3416287231,3416327167,3416457215,3416989695,341735 2191,3418271743,3418296319,3418306559,3419602943,3 528912895,3539304447,3663989503,3663990527,3706159 103,3715710975,3716431871,3716489215,3741319167)
IPvietnam=0
For i = LBound(myArray) to UBound(myArray)
If LongIP > myArray(i) And LongIP < myArrayD(i) Then
IPvietnam=1
End If
Next
Cái dữ liệu mảng bị cũ nên hồi có viettel nó lại cho là của nước ngoài.