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