ÕâÒ»Ò³ÃæÌá½»µ½expiretest_result.aspÍøÒ³Ê±£¬Äܹ»ÉèÖÃResponse.CacheControlÊôÐÔ£¬È»ºóÔÚÍøÒ³ÖвåÈëÖµºÍ½Å±¾±»Ö´ÐеÄʱ¼ä£º
<%
If Request.Form(¡°public¡±) = ¡°on¡± Then ¡®Cache-Control check box was ticked
Response.CacheControl = ¡°Public¡±
Else
Response.CacheControl = ¡°Private¡±
End If
%>
...
Cache-Control is: <% = Response.CacheControl %>
Value in text box is: <% Response.Write Request.Form(¡°textbox¡±) %>
<%
Response.Write Right(¡°0¡± & Hour(Now),2) & ¡°:¡± & Right(¡°0¡± & Minute(Now),_
& 2) & ¡°:¡± & Right(¡°0¡± & Second(Now),2)
%>
ͨ¹ýµ¥»÷ä¯ÀÀÆ÷Éϵġ°Back¡±ºÍ¡°Forward¡±£¬ÄÜ¿´µ½´úÂëÊÇ×Ô¶¯Ö´Ðл¹ÊÇʹÓûº´æµÄ¸±±¾£¬ÈçÏÂͼËùʾ¡£½á¹ûËæä¯ÀÀÆ÷µÄ²»Í¬¶ø±ä»¯¡£
2) Response.ExpiresºÍResponse.ExpiresAbsoluteÊôÐÔ
¿ØÖÆ»º´æµÄÍøÒ³´æ·Åʱ¼äµÄÁ½¸öÊôÐÔΪResponse¶ÔÏóµÄExpiresºÍExpriesAbsoluteÊôÐÔ¡£Response.Expires¶¨ÒåÁË·çÒ³ÔÚ´Ó»º´æÇø±»¶ªÆúǰӦ±£³ÖÓÐЧµÄʱ¼ä³¤¶È£¬ÒÔ´´½¨ÒÔÀ´µÄ·ÖÖÓÊýÐÎʽ±íʾ¡£ExpiresAbsoluteÊôÐÔΪµ½ÆÚʱ¼äÉèÖÃÁËÒ»¸ö¾ø¶ÔµÄÈÕÆÚºÍʱ¼ä¡£
ÎÒÃÇÌṩһ¸öÃüÃûΪaddheaders_form.aspµÄÀý×ÓÍøÒ³£¬ÓÃÓÚÑÝʾÈçºÎʹÓÃÕâЩÊôÐÔ¡£ÔÚ¡°Response Object¡±Ö÷Ò³Öе¥»÷¶ÔÕâÁ½ÖÖÊôÐÔµÄÁ´½Ó£¬ÈçÏÂͼËùʾ£º
ÔÚÕâÒ»Ò³ÃæÖУ¬¿É¼ÓÈë×Ô¼º¶¨ÖƵÄHTTP±¨Í·£¬²¢¿ÉÉèÖÃһЩӰÏìÏìÓ¦µÄHTTP±¨Í·µÄ¶àÖÖÊôÐÔ¡£ÔÚ¡°Ìá½»²éѯÄÚÈÝ¡±°´Å¥Éϵ¥»÷ʱ£¬Ò³Ãæshow_headers.aspÔÚ·µ»ØµÄÊý¾ÝÁ÷ÖÐÌí¼ÓËùÑ¡µÄ±¨Í·£¬È»ºóÏÔʾÓÃÀ´Íê³É´Ë²Ù×÷µÄ´úÂ룬ÏÔʾÏàÓ¦µÄÖ´ÐÐʱ¼ä£¬¿ÉÓÃÀ´¼ì²éÒ³ÃæÊDZ»»º´æ»¹ÊDZ»ÔÙ´ÎÖ´ÐУ¬ÈçÏÂͼËùʾ£º
show_headers.aspÍøÒ³ÖеĴúÂë´´½¨ºÍÌí¼ÓHTTP±¨Í·£¬³ÌÐòÈçÏ£º
<%
¡®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¡±)
%>
...
... Show code and execution time
...
ÆäÓಿ·Ö½ö½öÊÇÏÔʾÒѱ»Ö´ÐеĴúÂëºÍÖ´ÐÐʱ¼ä¡£¶ÁÕß»á×¢Òâµ½°üº¬ÔÚÍøÒ³Öе͍ÖƵı¨Í·¡°PRAGMA¡±£¨ÖÁ½ñÎÒÃÇ»¹Ã»ÌÖÂÛ¹ý£©¡£Ò»Ð©£¨ÏÈǰµÄ£©´úÀí·þÎñÆ÷ʹÓÃËü×÷ÎªÍø´ÅÊÇ·ñÓ¦±»»º´æµÄָʾ¡£È±Ê¡ÊÇÍøÒ³±»»º³å£¬³ý·Ç½ÓÊܵ½HTTP±¨Í·¡°PRAGMA=NO-CACHE¡°¡£
2. ´´½¨×´Ì¬ÂëºÍ¶¨ÖƵÄHTTP±¨Í·
¿ÉʹÓÃÏÈǰÔÚʵÀýÍøÒ³ÖÐËù¿´µ½µÄResponse¶ÔÏóµÄAddHeader·½·¨À´´´½¨×Ô¼ºµÄ״̬Âë»ò×Ô¼ºÏ²»¶µÄ¶¨ÖƵı¨Í·¡£ÕâÒ»·½·¨ÐèÒªÁ½¸ö²ÎÊý£ºHTTP±¨Í·Ãû³Æ»òÒ»¸ö°üº¬ÆäÖµ»ò·ÖÅ䏸ËüµÄÖµµÄ×Ö·û´®¡£×÷Ϊһ¸öÀý×Ó£¬ÏÂÃæµÄ´úÂëÔÚÒ³ÃæÖÐÌí¼ÓREFRESH±¨Í·£º
Response.AddHeader ¡°REFRESH¡±, ¡±60;URL=newpath/newpage.asp¡±
¹²6Ò³: ÉÏÒ»Ò³ [1] [2] [3] 4 [5] [6] ÏÂÒ»Ò³