خطا در Global.asax جهت به دست آوردن آی پی کاربر

[irpedia]

سلام در کد زیر برنامه من خطا دارد دوستان می توانند راهنمایی کنند.

کد من داخل Global.asax می باشد و به این ترتیب است:

Private Sub Application_AcquireRequestState(sender As Object, e As EventArgs)

Dim MyBl As New SiteTrackControl
Dim UrlR As String = "دسترسی مستقیم"

If System.Web.HttpContext.Current.Session IsNot Nothing Then
UrlR = System.Web.HttpContext.Current.Request.UrlReferrer .ToString
End If
MyBl.ReferURL = UrlR
MyBl.IP = System.Web.HttpContext.Current.Request.UserHostAdd ress.ToString
MyBl.Add()
MyBl = Nothing

End Sub


و متن خطا به این نحو است:


Error In Path : /default.aspx

Error Raw URL : /

Error Msg : Object reference not set to an instance of an object.

Error Source : App_global.asax.e_ib0jsi

Error Stack Trace : at ASP.global_asax.Application_AcquireRequestState(Ob ject sender, EventArgs e) in C:\inetpub\wwwroot\Site CMS With VB.NET 3.5\global.asax:line 25 at System.Web.HttpApplication.SyncEventExecutionStep. System.Web.HttpApplication.IExecutionStep.Execute( ) at System.Web.HttpApplication.ExecuteStep(IExecutionS tep step, Boolean& completedSynchronously)

Target Site : Void Application_AcquireRequestState(System.Object, System.EventArgs)

IP Address = ::1

[Tekyegah]

سلام
کدتون رو اینطوری بنویسید :

Dim str_ip As String = Request.UserHostAddress.ToString
Dim strpage As String = Request.Url.AbsoluteUri.ToString
Dim strlinked As String = Request.ServerVariables.Item("HTTP_REFERER")
If strlinked = "" Then
strlinked = "ورود مستقیم"
End If