firstmenu.asp

功能齐全的oa系统

<style type="text/css">
.SecMenuClass {
	color: #FFFFFF;
	font-size: 14px;
	text-decoration: none;
}
</style>
<%
Dim SecMenuSQL, SubMenuRS, SecMenuSQL1, SubMenuRS1
Dim Menuid, SecMenuSQLCount, SecMenuRSCount
Dim RoleRS, IsManager

Set SubC   = Server.CreateObject("CMS2003.DBHandle")
Set SubObjDB  = Server.CreateObject("Adodb.Connection")
OpenDB SubObjDB    '执行数据库的取值操作

StrSQL = "Select a.SubRoles, b.IsManager From t_OA_SYS_Account a, t_OA_Sub_SubRoles b Where a.ID = " 
StrSQL = StrSQL & Session("AccountID") & " and a.SubRoles = b.SubRoleID"
Set RoleRS = SubObjDB.Execute(StrSQL)
'Response.Write StrSQL

if RoleRS("IsManager") then
  IsManager = 1
else
  IsManager = 0
end if

Session("SubRoleID") = RoleRS("SubRoles")
StrSQL = "Select distinct b.FirstMenuID, a.FirstMenuName, a.Icon From t_OA_Sub_FirstMenu a, t_OA_Sub_Permission b "
StrSQL = StrSQL & " Where a.FirstMenuID = b.FirstMenuID and a.IsManager = " & IsManager & " and b.SubRoleID = " 
StrSQL = StrSQL & Cint(RoleRS("SubRoles")) & " and b.SubRoleID <> 101" & " order by b.FirstMenuID"
'Response.Write StrSQL
Set SubObjRS  = SubObjDB.Execute(StrSQL)

'SQL = "Select Count(*) From t_OA_Sub_FirstMenu a, t_OA_Sub_Permission b "
'SQL = SQL & " Where a.FirstMenuID = b.FirstMenuID and b.SubRoleID = " & Cint(RoleRS("SubRoles")) 
'Response.Write SQL
'Set SubObjRS1 = SubObjDB.Execute(SQL)

'Response.Write Request.QueryString("SecMenuid")
if Request.QueryString("SecMenuid") = "0" or Request.QueryString("SecMenuid") = "" then
  if NOT SubObjRS.EOF then
    SecMenuID = SubObjRS("FirstMenuID")
  else
    SecMenuID = 0
  end if
else
  SecMenuID = Request.QueryString("SecMenuid")
end if

SecMenuSQL = "Select a.SecMenuName, b.SecMenuID, a.IpAddress From t_OA_Sub_secMenu a, t_OA_Sub_Permission b "
SecMenuSQL = SecMenuSQL & " Where a.SecMenuID = b.SecMenuID and a.IsManager = " & IsManager & " and b.SubRoleID = " 
SecMenuSQL = SecMenuSQL & Cint(RoleRS("SubRoles")) & " and b.SubRoleID <> 101" & " and a.FirstMenuid = " & SecMenuID
Set SubMenuRS = SubObjDB.Execute(SecMenuSQL)
'Response.Write SecMenuSQL

SecMenuSQLCount = "Select Count(*) From t_OA_Sub_secMenu a, t_OA_Sub_Permission b "
SecMenuSQLCount = SecMenuSQLCount & " Where a.SecMenuID = b.SecMenuID  and a.IsManager = " & IsManager
SecMenuSQLCount = SecMenuSQLCount & " and b.SubRoleID = " & Cint(RoleRS("SubRoles")) & " and b.SubRoleID <> 101"
SecMenuSQLCount = SecMenuSQLCount & " and a.FirstMenuid = " & SecMenuID
Set SecMenuRSCount = SubObjDB.Execute(SecMenuSQLCount)

if Request.QueryString("SecMenuid") = "0" or Request.QueryString("SecMenuid") = "" then
  DeskValue = "Desk.asp"
else
  SecMenuSQL1  = "Select SecMenuName, SecMenuID, IpAddress From t_OA_Sub_secMenu Where FirstMenuid = " & SecMenuID
  Set SubMenuRS1 = SubObjDB.Execute(SecMenuSQL1, 1)
  if not SubMenuRS.EOF then
    DeskValue = SubMenuRS1("IpAddress")
    Session("SecMenuID") = SubMenuRS1("SecMenuID")
  else
    DeskValue = "Desk.asp"
  End if
end if
  
%>
<script runat=server language=javascript>
<!--
function getSecMenu()
{
  var num
  Session("num") = 1

  window.location = "Main.asp"
}
-->
</script>
<%
'Response.Write SubObjRS1(0) & "<BR>"
Dim MenuCount
MenuCount = 0
While Not SubObjRS.EOF
%>  
  <TD width="84" align=left> <a href="main.asp?SecMenuid=<%=SubObjRS("FirstMenuID")%>" onClick=""><img id="img"+<%=MenuCount%> onmouseover="this.src='../../<%=SubObjRS("ICON")%>_.gif'" onmouseout="this.src='../../<%=SubObjRS("ICON")%>.gif'" src="../../<%=SubObjRS("ICON")%>.gif" name="Image"+<%=MenuCount%> width="84" height="99" border="0"></a></TD>
<%
  'Response.Write SubObjRS("FirstMenuID") & "<BR>"
  'Response.Write SubObjRS("Icon")
  MenuCount = MenuCount + 1
  SubObjRS.MoveNext
Wend

'Response.Write MenuCount
if MenuCount < 6 then
  for i = 0 to (6 - MenuCount) -1
%>
    <TD width="84" background="../../images/index_14.gif"> </TD>
<%
  Next
end if
%>