dotNETportal.cz

Můžete třeba spolu s daty do databáze ukládat i IP adresu počítače, ze kterého se data posílají. A vždycky předtím než uložíte nový záznam tak zkontrolujete, zda daná IP adresa už v databázi není. Pokud ano, nový záznam nevložíte.

 Public Shared Function GetIPAddress() As String
        Dim context As System.Web.HttpContext = System.Web.HttpContext.Current
        Dim sIPAddress As String = context.Request.ServerVariables("HTTP_X_FORWARDED_FOR")
        If String.IsNullOrEmpty(sIPAddress) Then
            Return context.Request.ServerVariables("REMOTE_ADDR")
        Else
            Dim ipArray As String() = sIPAddress.Split(New [Char]() {","c})
            Return ipArray(0)
        End If
    End Function