以下是代码片段：
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()"事件就行了
这里提供的代码应用在局域网使用的管理系统中，安全性就不谈了，功能实现比较方便，呵呵~~
