4-16.aspx

来自「程序源代码分成两个部分： &#61557 一部分是用记事本或EditPlus」· ASPX 代码 · 共 44 行

ASPX
44 行
字号 
<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>

4-16.aspx - 源码说明

本页面展示了「程序源代码分成两个部分： &#61557 一部分是用记事本或EditPlus编写的」中的 4-16.aspx 源码文件，采用 ASPX 编程语言编写，共 44 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与EditPlus相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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