خطا در 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