asp.net DZ論壇中根據IP地址取得所在地的代碼

使用方法： IpSearch.GetAddressWithIP("202.96.128.167")
CS類代碼 複製代碼 代碼如下:using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;

//引入的命名空間
using System.IO;

/// <summary>
/// 判斷IP歸屬地類
/// </summary>
public class IpSearch
{
private static object lockHelper = new object();

static PHCZIP pcz = new PHCZIP();

static string filePath = "";

static bool fileIsExsit = true;

static IpSearch()
{
filePath = HttpContext.Current.Server.MapPath("~/ipdata.config");
pcz.SetDbFilePath(filePath);
}

/// <summary>
/// 返回IP尋找結果
/// </summary>
/// <param name="IPValue">要尋找的IP地址</param>
/// <returns></returns>
public static string GetAddressWithIP(string IPValue)
{
lock (lockHelper)
{
string result = pcz.GetAddressWithIP(IPValue.Trim());

if (fileIsExsit)
{
if (result.IndexOf("IANA") >= 0)
{
return "";
}
else
{
return result;
}
}
else
{
return null;
}
}
}

/// <summary>
/// 輔助類，用於儲存IP索引資訊
/// </summary>
///
public class CZ_INDEX_INFO
{
public UInt32 IpSet;
public UInt32 IpEnd;
public UInt32 Offset;

public CZ_INDEX_INFO()
{
IpSet = 0;
IpEnd = 0;
Offset = 0;
}
}

//讀取純真IP資料庫類
public class PHCZIP
{
protected bool bFilePathInitialized;
protected string FilePath;
protected FileStream FileStrm;
protected UInt32 Index_Set;
protected UInt32 Index_End;
protected UInt32 Index_Count;
protected UInt32 Search_Index_Set;
protected UInt32 Search_Index_End;
protected CZ_INDEX_INFO Search_Set;
protected CZ_INDEX_INFO Search_Mid;
protected CZ_INDEX_INFO Search_End;

public PHCZIP()
{
bFilePathInitialized = false;
}

public PHCZIP(string dbFilePath)
{
bFilePathInitialized = false;
SetDbFilePath(dbFilePath);
}

//使用二分法尋找索引區，初始化尋找區間
public void Initialize()
{
Search_Index_Set = 0;
Search_Index_End = Index_Count - 1;
}

//關閉檔案
public void Dispose()
{
if (bFilePathInitialized)
{
bFilePathInitialized = false;
FileStrm.Close();
//FileStrm.Dispose();
}

}

public bool SetDbFilePath(string dbFilePath)
{
if (dbFilePath == "")
{
return false;
}

try
{
FileStrm = new FileStream(dbFilePath, FileMode.Open, FileAccess.Read, FileShare.Read);
}
catch
{
return false;
}
//檢查檔案長度
if (FileStrm.Length < 8)
{
FileStrm.Close();
//FileStrm.Dispose();
return false;
}
//得到第一條索引的絕對位移和最後一條索引的絕對位移
FileStrm.Seek(0, SeekOrigin.Begin);
Index_Set = GetUInt32();
Index_End = GetUInt32();

//得到總索引條數
Index_Count = (Index_End - Index_Set) / 7 + 1;
bFilePathInitialized = true;

return true;

}

public string GetAddressWithIP(string IPValue)
{
if (!bFilePathInitialized)
{
return "";
}

Initialize();

UInt32 ip = IPToUInt32(IPValue);

while (true)
{

//首先初始化本輪尋找的區間

//區間頭
Search_Set = IndexInfoAtPos(Search_Index_Set);
//區間尾
Search_End = IndexInfoAtPos(Search_Index_End);

//判斷IP是否在區間頭內
if (ip >= Search_Set.IpSet && ip <= Search_Set.IpEnd)
return ReadAddressInfoAtOffset(Search_Set.Offset);

//判斷IP是否在區間尾內
if (ip >= Search_End.IpSet && ip <= Search_End.IpEnd)
return ReadAddressInfoAtOffset(Search_End.Offset);

//計算出區間中點
Search_Mid = IndexInfoAtPos((Search_Index_End + Search_Index_Set) / 2);

//判斷IP是否在中點
if (ip >= Search_Mid.IpSet && ip <= Search_Mid.IpEnd)
return ReadAddressInfoAtOffset(Search_Mid.Offset);

//本輪沒有找到，準備下一輪
if (ip < Search_Mid.IpSet)
//IP比區間中點要小，將區間尾設為現在的中點，將區間縮小1倍。
Search_Index_End = (Search_Index_End + Search_Index_Set) / 2;
else
//IP比區間中點要大，將區間頭設為現在的中點，將區間縮小1倍。
Search_Index_Set = (Search_Index_End + Search_Index_Set) / 2;
}

//return "";

}

private string ReadAddressInfoAtOffset(UInt32 Offset)
{
string country = "";
string area = "";
UInt32 country_Offset = 0;
byte Tag = 0;
//跳過4位元組，因這4個位元組是該索引的IP區間上限。
FileStrm.Seek(Offset + 4, SeekOrigin.Begin);

//讀取一個位元組，得到描述國家資訊的“定址方式”
Tag = GetTag();

if (Tag == 0x01)
{

//模式0x01，表示接下來的3個位元組是表示位移位置
FileStrm.Seek(GetOffset(), SeekOrigin.Begin);

//繼續檢查“定址方式”
Tag = GetTag();
if (Tag == 0x02)
{
//模式0x02，表示接下來的3個位元組代表國家資訊的位移位置
//先將這個位移位置儲存起來，因為我們要讀取它後面的地區資訊。
country_Offset = GetOffset();
//讀取地區資訊（註：按照Luma的說明，好像沒有這麼多種可能性，但在測試過程中好像有些情況沒有考慮到，
//所以寫了個ReadArea()來讀取。
area = ReadArea();
//讀取國家資訊
FileStrm.Seek(country_Offset, SeekOrigin.Begin);
country = ReadString();
}
else
{
//這種模式說明接下來就是儲存的國家和地區資訊了，以'\0'代表結束。
FileStrm.Seek(-1, SeekOrigin.Current);
country = ReadString();
area = ReadArea();

}
}
else if (Tag == 0x02)
{
//模式0x02，說明國家資訊是一個位移位置
country_Offset = GetOffset();
//先讀取地區資訊
area = ReadArea();
//讀取國家資訊
FileStrm.Seek(country_Offset, SeekOrigin.Begin);
country = ReadString();
}
else
{
//這種模式最簡單了，直接讀取國家和地區就OK了
FileStrm.Seek(-1, SeekOrigin.Current);
country = ReadString();
area = ReadArea();

}
string Address = country + " " + area;
return Address;

}

private UInt32 GetOffset()
{
byte[] TempByte4 = new byte[4];
TempByte4[0] = (byte)FileStrm.ReadByte();
TempByte4[1] = (byte)FileStrm.ReadByte();
TempByte4[2] = (byte)FileStrm.ReadByte();
TempByte4[3] = 0;
return BitConverter.ToUInt32(TempByte4, 0);
}

protected string ReadArea()
{
byte Tag = GetTag();

if (Tag == 0x01 || Tag == 0x02)
{
FileStrm.Seek(GetOffset(), SeekOrigin.Begin);
return ReadString();
}
else
{
FileStrm.Seek(-1, SeekOrigin.Current);
return ReadString();
}
}

protected string ReadString()
{
UInt32 Offset = 0;
byte[] TempByteArray = new byte[256];
TempByteArray[Offset] = (byte)FileStrm.ReadByte();
while (TempByteArray[Offset] != 0x00)
{
Offset += 1;
TempByteArray[Offset] = (byte)FileStrm.ReadByte();
}
return System.Text.Encoding.Default.GetString(TempByteArray).TrimEnd('\0');
}

protected byte GetTag()
{
return (byte)FileStrm.ReadByte();
}

protected CZ_INDEX_INFO IndexInfoAtPos(UInt32 Index_Pos)
{
CZ_INDEX_INFO Index_Info = new CZ_INDEX_INFO();
//根據索引編號計算出在檔案中在位移位置
FileStrm.Seek(Index_Set + 7 * Index_Pos, SeekOrigin.Begin);
Index_Info.IpSet = GetUInt32();
Index_Info.Offset = GetOffset();
FileStrm.Seek(Index_Info.Offset, SeekOrigin.Begin);
Index_Info.IpEnd = GetUInt32();

return Index_Info;
}

/// <summary>
/// 從IP轉換為Int32
/// </summary>
/// <param name="IpValue"></param>
/// <returns></returns>
public UInt32 IPToUInt32(string IpValue)
{
string[] IpByte = IpValue.Split('.');
Int32 nUpperBound = IpByte.GetUpperBound(0);
if (nUpperBound != 3)
{
IpByte = new string[4];
for (Int32 i = 1; i <= 3 - nUpperBound; i++)
IpByte[nUpperBound + i] = "0";
}

byte[] TempByte4 = new byte[4];
for (Int32 i = 0; i <= 3; i++)
{
//'如果是.Net 2.0可以支援TryParse。
//'If Not (Byte.TryParse(IpByte(i), TempByte4(3 - i))) Then
//' TempByte4(3 - i) = &H0
//'End If
if (IsNumeric(IpByte[i]))
TempByte4[3 - i] = (byte)(Convert.ToInt32(IpByte[i]) & 0xff);
}

return BitConverter.ToUInt32(TempByte4, 0);
}

/// <summary>
/// 判斷是否為數字
/// </summary>
/// <param name="str">待判斷字串</param>
/// <returns></returns>
protected bool IsNumeric(string str)
{
if (str != null && System.Text.RegularExpressions.Regex.IsMatch(str, @"^-?\d+$"))
return true;
else
return false;
}

protected UInt32 GetUInt32()
{
byte[] TempByte4 = new byte[4];
FileStrm.Read(TempByte4, 0, 4);
return BitConverter.ToUInt32(TempByte4, 0);
}
}

}

需要用到IP資料庫，在打包中有。打包下載http://xiazai.jb51.net/200810/others/iptoaddress.rar