alc板规格厚度:请教ASP高手

请问如何将下面的代码改为防止刷新
<%
Set conn1 = Server.CreateObject("ADODB.Connection")
Strconn1="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn1=Strconn1 & "DBQ=E:\Inetpub\wwwroot\data\count#data.mdb"
conn1.Open Strconn1
SET Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" , conn1,1,3
IF CSTR(Month(Rs("DATE"))) <> CSTR(Month(DATE())) THEN
Rs("DATE") = DATE()
Rs("YESTERDAY") = RS("TODAY")
Rs("BMONTH") = Rs("MONTH")
Rs("MONTH") = 1
Rs("TODAY") = 1
Rs.Update
ELSE
IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN
Rs("DATE") = DATE()
Rs("YESTERDAY") = Rs("TODAY")
Rs("TODAY") = 1
Rs.Update
END IF
END IF
Rs("TOTAL") = Rs("TOTAL") + 1
Rs("TODAY") = Rs("TODAY") + 1
Rs("MONTH") = Rs("MONTH") + 1
Rs.Update
Response.write "本站浏览总人数："
MyCounter( Rs("TOTAL") )
Response.write "<br>"
Response.write "今日浏览总人数："
MyCounter( Rs("TODAY") )
Response.write "<br>"
Response.write "昨日浏览总人数："
MyCounter( Rs("YESTERDAY") )
Response.write "<br>"
%>
<%
Response.write "本月浏览总人数："
MyCounter( Rs("MONTH") )
Response.write "<br>"
Response.write "上月浏览总人数："
MyCounter( Rs("BMONTH") )
Response.write "<br>"
N=now
D2 = DateValue(N)
D1 = #5/1/2006#
Response.write "本站开站至今天："
MyCounter( DateDiff("d", D1, D2) )
Response.write "<br>"
D3 = DateDiff("d", D1, D2)
Response.write "日平均浏览人数："
MyCounter( Rs("TOTAL")\D3 )
CONN1.CLOSE
Function MyCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "<IMG SRC=images/countgif/" & Mid(S, i, 1) & ".gif Align=middle>"
Next
Response.write G
End Function
%>
不是防止更新，是防止刷新啊