fragment.ascx

来自「Code for VB.NET教程源码 很好的源码」· ASCX 代码 · 共 26 行

<%@ Language="VB" %>
<%@ OutputCache Duration="10" VaryByControl="Category"%>

<Script runat=server>
  Public Sub Page_Load()
  
    ' Get the Date and Time, once again this should not change after the first run       
    Dim NowTime As DateTime = DateTime.Now
    Dim Expires As DateTime = NowTime.AddSeconds(10)

    CreatedStamp.InnerHtml = NowTime.ToString("r")
    ExpiresStamp.InnerHtml = Expires.ToString("r")
  
  End Sub
  
</Script>

<Font size=6>
Fragment Cache created: <Font color=red><B id=CreatedStamp runat=server></B></Font>
<BR>
Fragment Cache expires: <Font color=red><B id=ExpiresStamp runat=server></B></Font>
</Font>