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