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

以下是代码片段：

    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

说明：Session("Private")是从数据库里取出的权限字段的值，其格式为"0100"，其对应的权限为依次控制页面中id为menu1，menu2，menu3，menu4的菜单的DIV或者TD是否显示，0为显示，1为不显示

使用：在页面中用JS包含<script language="javascript" src="上面的代码存的文件地址"><script>，然后在BODY中加入onload="getPrivate()"事件就行了

这里提供的代码应用在局域网使用的管理系统中，安全性就不谈了，功能实现比较方便，呵呵~~

本文地址：http://com.8s8s.com/it/it41165.htm