关于用户访问时间写入数据库的问题？

Question

你insert的次数太多了，你的时间是放到变量里存着了吧,不是随取虽用

Answer 1

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' 在会话启动时激发
        
        Dim myConnection As System.Data.OleDb.OleDbConnection
        Dim myCommand As System.Data.OleDb.OleDbCommand
        Dim ConnStr, ConnStr_location As String
        Dim SQL As String        Dim apppath As String
        apppath = Request.PhysicalApplicationPath
        ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + apppath + "wangzhantongji.mdb;"
        myConnection = New System.Data.OleDb.OleDbConnection(ConnStr)        Dim s_user_ip, s_location As String
        Dim dt_visit_time As DateTime
        ConnStr_location = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + apppath + "IpAddressofWorld.mdb;"        Dim IpLookUp As New GeneralTools.IpLookUp(ConnStr_location)        s_user_ip = Request.ServerVariables("REMOTE_ADDR")        s_location = IpLookUp.IptoLocation(s_user_ip)
        dt_visit_time = DateTime.Now        If Trim(s_user_ip) = "" Then
            Return
        End If        If Trim(s_user_ip) = "127.0.0.1" Then
            Return
        End If        SQL = "insert into visit_info(user_ip,visit_time,location) values('" + s_user_ip + "','" + dt_visit_time + "','" + s_location + "')"        myCommand = New System.Data.OleDb.OleDbCommand(SQL, myConnection)
        myConnection.Open()
        myCommand.ExecuteNonQuery()
        myConnection.Close()
    End Sub谢谢！！！其中GeneralTools是我写的程序集。

Answer 2

你在用户登陆你的网站是启动了几个session?

Answer 3

你在用户登陆你的网站是启动了几个session?

Answer 4

Dim myConnection As System.Data.OleDb.OleDbConnection
        Dim myCommand As System.Data.OleDb.OleDbCommand
        Dim ConnStr, ConnStr_location As String
        Dim SQL As String        Dim apppath As String
        apppath = Request.PhysicalApplicationPath
        ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + apppath + "wangzhantongji.mdb;"
        myConnection = New System.Data.OleDb.OleDbConnection(ConnStr)        Dim s_user_ip, s_location As String
        Dim dt_visit_time As DateTime
        ConnStr_location = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + apppath + "IpAddressofWorld.mdb;"        Dim IpLookUp As New GeneralTools.IpLookUp(ConnStr_location)        s_user_ip = Request.ServerVariables("REMOTE_ADDR")        s_location = IpLookUp.IptoLocation(s_user_ip)
        dt_visit_time = DateTime.Now        If Trim(s_user_ip) = "" Then
            Return
        End If        If Trim(s_user_ip) = "127.0.0.1" Then
            Return
        End If        SQL = "insert into visit_info(user_ip,visit_time,location) values('" + s_user_ip + "','" + dt_visit_time + "','" + s_location + "')"        myCommand = New System.Data.OleDb.OleDbCommand(SQL, myConnection)
        myConnection.Open()
        myCommand.ExecuteNonQuery()
        myConnection.Close()试试将上面的代码放到
protected void Application_Start(Object sender, EventArgs e)
{}
中间去。

Answer 5

Dim IpLookUp As New GeneralTools.IpLookUp(ConnStr_location)是什么意思？c#如何写的？

Answer 6

zwztu() :还会启动多个session？