📄 datacache.aspx
字号:
<%@ Page Language="vb" debug="True" %>
<%@ Import Namespace="System.Drawing"%>
<HTML>
<HEAD>
<SCRIPT LANGUAGE="vb" RUNAT="server" ID="Script1">
Public Sub ShowCache()
Dim oItem As Object
Dim sText As String
For Each oItem In Cache
If Left(oItem.key, 7) <> "System." Then
sText = sText & oItem.Key & "=" & Cache(oItem.Key) & "<br>"
End If
Next
divDisplay.InnerHTML =sText
lblcompile.Text = datetime.Now.ToLongTimeString
End Sub
Public Sub btnRefreshClick(ByVal sender As Object, ByVal e As System.EventArgs)
ShowCache()
End Sub
Public Sub BtnRemoveClick(ByVal sender As Object, ByVal e As System.EventArgs)
Cache.Remove(txtKey.Text.ToString)
showcache()
End Sub
Public Sub btnInsertClick(ByVal sender As Object, ByVal e As System.EventArgs)
Dim bAbs as Boolean
Dim bSlide as Boolean
Dim bBoth as Boolean
Dim sTemp as String
If CDbl(txtAbs.Text.ToString()) > 0 And CDbl(txtSlide.Text.ToString()) = 0 Then
Cache.Insert(txtKey.Text.tostring, txtvalue.Text.ToString, Nothing, datetime.Now.AddSeconds(CDbl(txtAbs.Text.ToString())), timespan.zero)
bAbs=True
lblError.Text =txtKey.Text & "/" & txtValue.text &"在" & datetime.Now.AddSeconds(CDbl(txtAbs.Text.ToString())).ToLongTimeString & "过期"
lblError.ForeColor= color.Blue
ElseIf Cdbl(txtAbs.Text.ToString()) = 0 And CDbl(txtSlide.Text.ToString()) > 0 Then
Cache.Insert(txtKey.Text.ToString, txtvalue.Text.ToString, Nothing, datetime.maxvalue, timespan.FromSeconds(CDbl(txtSlide.Text.ToString())))
bSlide=True
lblError.Text =txtKey.Text & "/" & txtValue.text &"在" & datetime.Now.AddSeconds(CDbl(txtSlide.Text.ToString())).ToLongTimeString & "过期"
lblError.ForeColor= color.Blue
ElseIf Cdbl(txtAbs.Text.ToString()) > 0 And CDbl(txtSlide.Text.ToString()) > 0 Then
lblError.Text = "You can only set Absolute Expiration or Sliding Expiration not both"
lblError.ForeColor= color.red
End If
showcache()
End Sub
Sub Page_Load(ByVal Sender As System.Object, ByVal e As System.EventArgs)
ShowCache()
End Sub
</SCRIPT>
<META CONTENT="Microsoft Visual Studio.NET 7.0" NAME="GENERATOR">
<META CONTENT="Visual Basic 7.0" NAME="CODE_LANGUAGE">
</HEAD>
<BODY>
<H3>数据缓存<Hr></H3>
<FORM ID="WebForm1" METHOD="post" RUNAT="server">
<ASP:LABEL ID="lblError" RUNAT="server"></ASP:LABEL>
<p>
</p>
键：
<ASP:TEXTBOX ID="txtKey" RUNAT="server"></ASP:TEXTBOX>
值：
<ASP:TEXTBOX ID="txtValue" RUNAT="server"></ASP:TEXTBOX>
<P>
<ASP:TEXTBOX ID="txtAbs" RUNAT="server" WIDTH="25" HEIGHT="24" TEXT="0"></ASP:TEXTBOX>秒后绝对过期；
</P>
<P>
<ASP:TEXTBOX ID="txtSlide" RUNAT="server" WIDTH="25" HEIGHT="24" TEXT="0"></ASP:TEXTBOX>秒后相当过期。
</P>
<P>
<ASP:BUTTON ID="btnInsert" ONCLICK="btninsertclick" RUNAT="server" TEXT="插入"></ASP:BUTTON>
<ASP:BUTTON ID="BtnRemove" RUNAT="server" TEXT="删除" ONCLICK="btnremoveclick"></ASP:BUTTON>
<ASP:BUTTON ID="btnRefresh" RUNAT="server" TEXT="更新" ONCLICK="btnRefreshClick"></ASP:BUTTON>
</P>
<H2>
结果
</H2>
</P>
</FORM>
<P>
网页最后刷新时间：
<ASP:LABEL ID="lblCompile" RUNAT="server"></ASP:LABEL>
</P>
<P>
所有Data Cache值列表：
</P>
<DIV ID="divDisplay" RUNAT="server">
</DIV>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -