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

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

以下是代码片段:

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()"事件就行了

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航