权限控制操作菜单显示的代码

以下是代码片段：     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