ASP中如何获取IP地址和归属地

[ygisun]

就是在ASP中获取访问者的IP地址，然后获取它所在IP的归属地，最好有IP的数据库下载地址
我想要个详细点的代码，有的请回帖，谢谢~~~~

[见习学术士]

'通用函数
Private Function getIP() 
　　Dim strIPAddr 
　　If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then 
　　strIPAddr = Request.ServerVariables("REMOTE_ADDR") 
　　ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then 
　　strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) 
　　ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then 
　　strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) 
　　Else 
　　strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
　　End If 
　　getIP = Trim(Mid(strIPAddr, 1, 30)) 
End Function 

[sy_binbin]

找个IP 库！网上的代码多的是

[royal1]

<%@ Assembly Name="System.Net" %>
<%@ Import Namespace="System.Net"%>
<script language="C#" runat="server">
void Page_Load(Object sender, EventArgs e){
DNS dns;
String hostname;
hostname=DNS.GetHostName();
' 静态变量getHostName
IPAddress ip=DNS.Resolve(hostname);
' 静态变量Resove
lblShow.Text="机器名称:"+hostname + "<br>IP地址:"+ip.ToString();
}
</script>
<asp:label id=lblShow runat=server />

[不耐烦]

IP的归属地~就要用到 ip地址库了~