📄 4-16.aspx

📁 程序源代码分成两个部分： &#61557 一部分是用记事本或EditPlus编写的

💻 ASPX

字号:

<html>
<TITLE>[例4-16]利用Cookie保存所选的课程</TITLE>
<SCRIPT Language="VB" RUNAT="SERVER">
Sub Page_Load(Sender As Object,E As EventArgs)
	If Not Page.IsPostBack Then
		Dim cookie As HttpCookie
		cookie = Request.Cookies("Course")
		If cookie is nothing Then
			cookie = New HttpCookie("Course")
			cookie.Values.Add("Course","asp")
			Response.AppendCookie(cookie)
			cookie.Expires=DateAdd("d" , 10, DateTime.Now)
		End If
		Select Case cookie.Values("Course")
			case "asp"
				asp1.Checked = True
			case "vb"
				vb1.Checked = True
			case "C#"
				CS1.Checked = True
		End Select
	End If
End Sub
Sub Course_Click(Sender As Object,E As EventArgs)
	Dim cookie As HttpCookie
	cookie = Request.Cookies("Course")
	If	asp1.Checked Then cookie.Values.Set("Course","asp")
	If	vb1.Checked Then cookie.Values.Set("Course","vb")
	If	CS1.Checked Then cookie.Values.Set("Course","C#")
	Response.AppendCookie(cookie)	
	lDisplay.Text = "现在的Cookie值是：" + Request.Cookies("Course").Values(0)
End Sub
</script >
<body>
请选择课程：<BR>
<form runat="server"> 
 <asp:radiobutton id=asp1  Text="asp程序设计" GroupName="Course" runat=server/><BR>
 <asp:radiobutton id=vb1  Text="vb程序设计" GroupName="Course" runat=server/><BR>
 <asp:radiobutton id=CS1  Text="C#程序设计" GroupName="Course" runat=server/><P>
 <asp:button id="bSubmit" Text="确认" OnClick="Course_Click" runat=server/><p><HR>
 <asp:label id="lDisplay" forecolor="Blue" font-size="20pt" runat=server/>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -