getmenucount.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 23 行

<%
	Function GetMenuCount(ObjDB,MenuID)
		Dim ObjRS,ObjRS1,StrSQL,StrRoleIDs
		Dim IntMenuCount
		IntMenuCount = 0
		StrSQL = "Select TableID From t_Base_Menu_MIS Where ParentID = " & MenuID & " Order By OrderID"
		Set ObjRS = ObjDB.Execute (StrSQL)
		While Not ObjRS.Eof
			StrSQL = "Select RoleIDs From t_OA_SYS_Account Where ID = " & Session("AccountID")
			Set ObjRS1 = ObjDB.Execute(StrSQL)
			StrRoleIDs = "0"
			If ObjRS1("RoleIDs")<>"" Then StrRoleIDs = ObjRS1("RoleIDs")
			StrSQL = "Select * From t_MIS_Role_Permission Where TableID=" & ObjRS("TableID") & " And RoleID In (" & StrRoleIDs & ")"
			Set ObjRS1 = ObjDB.Execute(StrSQL)
			If Not ObjRS1.Eof Then
				IntMenuCount = IntMenuCount + 1
			End If
			ObjRS.MoveNext
		Wend
		GetMenuCount = IntMenuCount
	End Function

%>