手工雾眉5圆针教学视频:vb 6.0 中有cookies操作的方法吗?

有

我用Cookies保存最后访问公司的名称，以便下次打开网站时能看到上次访问的最后一个公司的资料．
1、下拉列表触发保存．
Protected Sub ComboCompany_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboCompany.SelectedIndexChanged
Dim MyCookie As New HttpCookie("Company")
MyCookie.Values("CompanyName") = ComboCompany.SelectedValue
MyCookie.Expires = DateTime.Now.AddDays(1)
Response.Cookies.Add(MyCookie)
End Sub
2、在页面加载时判空和读取Cookies的值
If Not Page.IsPostBack Then
Try
Dim c As Integer
If Not Request.Cookies("Company") Is Nothing Then
For c = 0 To ComboCompany.Items.Count - 1
If ComboCompany.Items(c).ToString.Trim = Request.Cookies("Company")("CompanyName") Then
ComboCompany.SelectedIndex = c
Else
Me.ComboCompany.SelectedIndex = 0
End If
Next
End If
Catch objE As Exception
Me.Label1.Text = objE.Message
End Try
End If