急！！！！在线等！！！我在index.aspx运行后得不到application("t")和application("ss")的值？

[yqyzzy]

我的global.asax中的代码：

<% @import namespace = "System.IO" %>
<% @import namespace = "System.DateTime"%>

<script language="vb" runat="server">
dim startTime ,endtime as DateTime
dim ts as long
dim t as integer
Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
application("count")=0
startTime =DateTime.Now()
End Sub

sub session_beginrequest(byval sender as object,byval e as eventargs)
application.lock
dim sr as streamreader=file.opentext(server.mappath("aa.txt"))
Dim s As String
s = sr.ReadLine
t= convert.toint32(s)
application("t") =t + 1
sr.Close()
Dim sw As StreamWriter=File.createtext(server.mappath("aa.txt"))
sw.WriteLine(application("t"))
sw.Close()
application("count")+=1
application.unlock
end sub

sub session_endrequest(byval sender as object,byval e as eventargs)
application.lock
application("count")-=1
application.unlock
end sub

sub Application_EndRequest(byval sender as object,byval e as eventargs)
endtime = DateTime.Now()
ts = DateDiff(DateInterval.second,endTime,startTime)
application("ss")=(ts/1000).ToString()
end sub
</script>

我在index.aspx中，是这样取值的
<td><%=Application("t")%></td>
<td><%=Application("ss")%></td>

[cancersyf]

出现什么错误了吗？

[yqyzzy]

没有错误提示，但也显示数据！！！！