以下是代码片段：

    Private Sub Page_Load(ByVal sender As System.Object， ByVal e As System.EventArgs) Handles MyBase.Load
        ＇在此处放置初始化页的用户代码
        Response.Write("function getPrivate(){" & vbCrLf)
        For i As Integer = 1 To Session("Private").ToString.Length
            Response.Write(MENUshow(Mid(Session("Private").ToString， i， 1)， i))
        Next
        Response.Write("}")
        Response.End()
    End Sub

    Private Function MENUshow(ByVal i As Integer， ByVal t As Integer) As String
        Select Case i
            Case 0
                MENUshow = "document.all[＇menu" & t & "＇].style.display=＇＇;" & vbCrLf
            Case 1
                MENUshow = "document.all[＇menu" & t & "＇].style.display=＇none＇;" & vbCrLf
        End Select
    End Function