i have managed to run the asp file in the local network however it add only my ip each time the users run the file
how can i change the code so that i get the user's ip address not mine
i guess it has something to do with the host.
Code:<%@ Page Language="VB"%>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
' Declared outside the subs so both can access it.
Dim objConnection As OleDbConnection
Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)
Dim value As String = h.AddressList.GetValue(0).ToString()
Dim ipfull As String = h.AddressList.GetValue(0).ToString
Dim ipsplit() As String = ipfull.Split(".".ToCharArray())
'IP.Text = h.AddressList.GetValue(0).ToString()
Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)
' Set up our connection.
objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("ip.mdb") & ";")
' Every call to the page adds a new record and
' shows the data in the table.
AddNewRecord()
'ShowDataGrid()
End Sub
Sub AddNewRecord()
Dim objCommand As OleDbCommand
Dim strSQLQuery As String
' Our insert command
strSQLQuery = "INSERT INTO ip " _
& "(pcname, username, mip) " _
& "VALUES (@TextValue, @TextValue2, @TextValue3)"
' Create new command object passing it our SQL insert
' and telling it which connection to use.
objCommand = New OleDbCommand(strSQLQuery, objConnection)
' Add parameters that our SQL command takes:
objCommand.Parameters.Add(New OleDbParameter("@TextValue", OleDbType.VarChar, 255))
objCommand.Parameters.Add(New OleDbParameter("@TextValue2", OleDbType.VarChar, 255))
objCommand.Parameters.Add(New OleDbParameter("@TextValue3", OleDbType.VarChar, 255))
objCommand.Parameters("@TextValue").Value = System.Environment.MachineName
objCommand.Parameters("@TextValue2").Value = System.Environment.UserName
objCommand.Parameters("@TextValue3").Value = ipsplit(3)
' Open the connection, execute the command, and close the connection.
Try
objConnection.Open()
objCommand.ExecuteNonQuery()
objConnection.Close()
status.Text = "data added"
Catch ex As Exception
status.Text = "you can add data only once"
End Try
End Sub
</script>
<html>
<body>
<form id="form1" runat="server">
<asp:Label ID="Label1" runat="server" Text="Status"></asp:Label>
<asp:TextBox ID="status" runat="server" Width="352px"></asp:TextBox><!-- Plain old DataGrid... format it as you like. -->
</form>
</body>
</html>
