權限控制操作菜單顯示的代碼

- 中國WEB開發者網絡 (http://www.webasp.net)
-- 技術教程 (http://www.webasp.net/article/)
--- 權限控制操作菜單顯示的代碼 (http://www.webasp.net/article/18/17898.htm)

-- 作者：未知
-- 發佈日期： 2005-04-25

以下是代碼片段：

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()"事件就行了
這裡提供的代碼應用在局域網使用的管理系統中，安全性就不談了，功能實現比較方便，呵呵~~ 以下是代碼片段：

webasp.net