4-14.aspx

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

ASPX
19
字号
<Html>
<Script Language="VB" Runat="Server">
  Sub Page_Load(Sender As Object,e As Eventargs)
    Dim CookieCollection As HttpCookieCollection=New HttpCookieCollection
    Dim Cookie1 As HttpCookie=New HttpCookie("Cookie1")
    Dim Cookie2 As HttpCookie=New HttpCookie("Cookie2")
    Cookie1.Value=".Net Framework"
    Cookie2.Value="ASP.NET"
    CookieCollection.Add(Cookie1) '将Cookie 对象加入Cookies 集合中
    CookieCollection.Add(Cookie2)
    Dim shtI As Short
    For shtI=0 To CookieCollection.Count-1
      Response.Write("变量名=" & CookieCollection.Item(shtI).Name & "<br>")
      Response.Write("变量值=" & CookieCollection.Get(shtI).Value & "<p>")
    Next
    CookieCollection.Clear()
  End Sub
</Script>
</Html>

⌨️ 快捷键说明

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