4-11.aspx

来自「asp做的新闻系统」· ASPX 代码 · 共 15 行

ASPX
15
字号
<Html>
<Script Language="VB" Runat="Server">
  Sub Page_Load(Sender As Object,e As Eventargs)
    Dim shtI As Short
    Application.Add("Application1","Value1")
    Application.Add("Application2","Value2")
    Application.Add("Application3","Value3")
    For shtI=0 To Application.Count-1
    Response.Write("变量名:" & Application.GetKey(shtI) )
    Response.Write(" ,变量值:" & Application.Item(shtI) & "<P>")
    Next
    Application.Clear()
  End Sub
</Script>
</Html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?