Partial Class Index Inherits System.Web.UI.Page Protected Sub Page_Init(ByVal sender As Ob

Partial Class Index
    Inherits System.Web.UI.Page

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        If Request.Cookies("username") IsNot Nothing And Request.Cookies("userpass") IsNot Nothing Then
            Dim username As String = Request.Cookies("username").Value
            Dim userpass As String = Request.Cookies("userpass").Value

            Dao.sds.SelectCommand = "select count(*) from t_user where username = @username and userpass = @userpass"
            Dao.sds.SelectParameters.Clear()
            Dao.sds.SelectParameters.Add("username", username)
            Dao.sds.SelectParameters.Add("userpass", userpass)

            Dim i As Integer = Dao.sds.Select(DataSourceSelectArguments.Empty)(0)(0)

            If i = 0 Then
                Response.Redirect("~/Default.aspx")
            End If
        Else
            Response.Redirect("~/Default.aspx")
        End If
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Menu1 As Menu = New Menu()
        Dim mi As MenuItem = New MenuItem("主页", "主页", "", "~/Index.aspx", "_blank")
        Dim mia As MenuItem = New MenuItem("用户", "用户", "", "~/User.aspx", "_blank")
        Dim mib As MenuItem = New MenuItem("商品", "商品", "", "~/Goods.aspx", "_blank")
        Dim mic As MenuItem = New MenuItem("叫货", "叫货", "", "~/JiaoHuo.aspx", "_blank")

        Menu1.Orientation = Orientation.Horizontal
        Menu1.Items.Add(mi)
        Menu1.Items.Add(mia)
        Menu1.Items.Add(mib)
        Menu1.Items.Add(mic)

        Me.form1.Controls.Add(Menu1)
    End Sub
End Class