查人人中国名人网创世战车兰博基尼:asp.net防刷新记数器问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/11 15:08:11
Sub page_load()
Dim objreader As New StreamReader(Server.MapPath("1.txt"))
Dim count As String = objreader.ReadLine()
objreader.Close()
If Session.IsNewSession = True Then
count += 1
Dim objwriter As New StreamWriter(Server.MapPath("1.txt"), False)
objwriter.WriteLine(count)
objwriter.Close()
End If
Response.Write(count)
End Sub
这个程序用了If Session.IsNewSession = True 来判断用户是否刷新,但运行是为什么点了刷新数字还是不断提升
Dim objreader As New StreamReader(Server.MapPath("1.txt"))
Dim count As String = objreader.ReadLine()
objreader.Close()
If Session.IsNewSession = True Then
count += 1
Dim objwriter As New StreamWriter(Server.MapPath("1.txt"), False)
objwriter.WriteLine(count)
objwriter.Close()
End If
Response.Write(count)
End Sub
这个程序用了If Session.IsNewSession = True 来判断用户是否刷新,但运行是为什么点了刷新数字还是不断提升