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

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

说明：Session("Private")是从数据库里取出的权限字段的值，其格式为"0100"，其对应的权限为依次控制页面中id为menu1，menu2，menu3，menu4的菜单的DIV或者TD是否显示，0为显示，1为不显示
使用：在页面中用JS包含<script language="javascript" src="上面的代码存的文件地址"><script>，然后在BODY中加入onload="getPrivate()"事件就行了
这里提供的代码应用在局域网使用的管理系统中，安全性就不谈了，功能实现比较方便，呵呵~~ 以下是代码片段：