强制浏览器重新访问服务器下载页面，而不是从缓存读取页面

<%
option explicit
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
if request("logout")="logout" then
session("admin")=""
session("password")=""
session("aleave")=""
Session.Abandon()
response.redirect "index.asp"
end if
if session("admin")="" and session("password")="" and session("login")<>true then
Function GetCode()
 Dim TestObj
 On Error Resume Next
 Set TestObj = Server.CreateObject("Adodb.Stream")
 Set TestObj = Nothing
 If Err Then
  Dim TempNum
  Randomize timer
  TempNum = cint(8999*Rnd+1000)
  Session("GetCode") = TempNum
  GetCode = Session("GetCode")  
 Else
  GetCode = "<img src=""../include/GetCode.asp"">"  
 End If
End Function
%>