<% ‘Write HTTP headers before any other output If
Request.Form(“expires”) = “on” Then _ Response.Expires =
Request.Form(“expires_value”) If Request.Form(“expiresabs”) = “on” Then
_ Response.ExpiresAbsolute = Request.Form(“expiresabs_value”) If
Request.Form(“lastmod”) = “on” Then _ Response.AddHeader
“LAST-MODIFIED”, Cstr(Request.Form(“lastmod_value”)) If
Request.Form(“pragma”) = “on” Then _ Response.AddHeader “PRAGMA”,
CStr(Request.Form(“pragma_value”)) If Request.Form(“refresh”) =
“on” Then _ Response.AddHeader “REFRESH”,
CStr(Request.Form(“refresh_value”)) If Request.Form(“addheader”) = “on”
And Len(Request.Form(“addheader_name”)) Then _ Response.AddHeader
CStr(Request.Form(“addheader_name”)),
_ CStr(Request.Form(“addheader_value”)) If Request.Form(“status”)
= “on” Then _ Response.Status =
Request.Form(“status_value”) %> <HTML> ... ... Show code and
execution
time ... 其余部分仅仅是显示已被执行的代码和执行时间。读者会注意到包含在网页中的定制的报头“PRAGMA”(至今我们还没讨论过)。一些(先前的)代理服务器使用它作为网磁是否应被缓存的指示。缺省是网页被缓冲,除非接受到HTTP报头“PRAGMA=NO-CACHE“。