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 + -
显示快捷键?