谁能看懂这段代码asp

来源：百度知道 编辑：UC知道 时间：2024/05/06 23:40:29
Dim DateTime,NowCount
DateTime=Date
If Request.Cookies(SystemKey & "DateVisitTime")<>"" Or Session(SystemKey & "DateVisitTime")<>"" Then
Exit Sub
End If
Response.Cookies(SystemKey & "DateVisitTime")=Now
Session(SystemKey & "DateVisitTime")=Now
Response.Cookies(SystemKey & "DateVisitTime").Expires=DateTime+1
Sql="select * from visitinfo where DateTime=#" & DateTime & "#"
Rs.Open Sql,Conn,1,3
If Rs.RecordCount=0 Then
Rs.AddNew
Rs("DateTime")=DateTime
End If
Rs("Count")=Rs("Count")+1
NowCount=Rs("Count")
Rs.Update
Rs.Close
大概是怎么个流程啊
为什么那个访问量就是显示count的地方不加1啊有时候隔好大一会儿才加一

这是一个实时在线人数的程序。
Dim DateTime,NowCount '定义两个变量
DateTime=Date '给变量DateTime赋值为今天的日期
If Request.Cookies(SystemKey & "DateVisitTime")<>"" Or Session(SystemKey & "DateVisitTime")<>"" Then
Exit Sub
End If '这句if是说如果cookies或seccion都不为空的话就退出过程。意思是现在当前的访问者还没有离开网页。否则，即有新的访客时执行下面的代码

Response.Cookies(SystemKey & "DateVisitTime")=Now
Session(SystemKey & "DateVisitTime")=Now
Response.Cookies(SystemKey & "DateVisitTime").Expires=DateTime+1设置cookies和session的值
Sql="select * from visitinfo where DateTime=#" & DateTime & "#"
Rs.Open Sql,Conn,1,3 '打开记录集
If Rs.RecordCount=0 Then
Rs.AddNew 添加新记录
Rs("DateTime")=DateTime
End If
Rs("Count")=Rs("Count")+1
NowCount=Rs("Count")
Rs.Update 保存记录
Rs.Close 关闭记录集。

还不懂的话问我：390044571

读取访问时间》显示访