访客柜台

问题描述

嗨我已经使用asp.net 2.0开发了一个访客计数器，但是我认为这是不必要的每天增加的.例如，如果访问者人数为20，则显示为60-70.请解决此问题，代码是写在global.asax文件中的，如下所示:

  Sub  Application_Start( ByVal 发​​件人 As  对象， ByVal  e  As  EventArgs)
' 在应用程序启动时运行的代码
昏暗结果结果 整数
 Dim  conn  As  OleDbConnection
 Dim  comm  As  OleDbCommand
 Dim  strConnection  As   String 
strConnection = "  Provider = Microsoft.Jet.OleDb.4.0; Data Source ="  + Server.MapPath( "  database/counter.mdb" )
conn = 新建 OleDbConnection(strConnection)
comm = 新建 OleDbCommand(" 从[计数器]中选择访问者其中visitorname ='naresh'"，conn)
conn.Open()
结果=  CType (comm.ExecuteScalar()，字符串)
Application(" 计数器" )=结果
'  Dim总计为字符串= Application("counter")
conn.Close()
结束 子

子 Session_Start( ByVal 发​​件人 As  对象， ByVal  e  As  EventArgs)
' 启动新会话时运行的代码
Application.Lock()
Application(" 计数器" )= Application(" 计数器")+  1 
'  Application.UnLock()
 Dim  conn1  As  OleDbConnection
 Dim  comm1  As  OleDbCommand
 Dim  strConnection1  As  字符串
strConnection1 = "  Provider = Microsoft.Jet.OleDb.4.0; Data Source ="  + Server.MapPath( "  database/counter.mdb" )
conn1 = 新建 OleDbConnection(strConnection1)
comm1 = 新建 OleDbCommand(" 更新[计数器] SET访问者='"& Application("  计数器")& "  '其中visitorname ='naresh'"，conn1)
conn1.Open()
comm1.ExecuteNonQuery()
conn1.Close()
Application.UnLock()
结束 子 

解决方案

这篇关于访客柜台的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！