secmenu.asp

功能齐全的oa系统

    <table width="100%" height="25" border="0" cellpadding="0" cellspacing="0" background="../../images/index_9.gif">
      <tr>
        <td width="30%" valign="middle"><font color="#00FFFF" size="2">&nbsp;&nbsp;欢迎您：<%=StrTrueName%> </font></td>
<%
if Session("SubRoleID") <> 101 then
%>
        <td width="70%"><img src="../../images/icon1.gif" width="16" height="16"> 
<%
end if
  
Dim iCount
iCount = 0
Session("SecMenuID") = ""
'Response.Write SecMenuRSCount(0)
while not SubMenuRS.EOF
'Response.Write SubMenuRS("SecMenuName") & "<BR>"
  iCount = iCount + 1
%>
  <a class=SecMenuClass href="#" onclick="<%Session("SecMenuID")=SubMenuRS("SecMenuID")%>;parent.parent.IframeMain.location='<%=SubMenuRS("IpAddress")%>'"><font size=2px><%=SubMenuRS("SecMenuName")%></font></a>
<%
  if SecMenuRSCount(0) <> iCount then 
%>
    <font color=#FFFFFF> | </font>
<%
  end if  
  SubMenuRS.MoveNext
Wend
%>
        </td>
      </tr>
    </table>
<script language="JavaScript">
<%'SubMenuRS.MoveFirst
  while not SubMenuRS.EOF%>
  function Update<%=SubMenuRS("SecMenuID")%>()
  {
    SecMenuID = <%=SubMenuRS("SecMenuID")%>
    if (SecMenuID == <%=SubMenuRS("SecMenuID")%>)
    {
      <%Session("SecMenuID")=SubMenuRS("SecMenuID")%>
    }
    parent.parent.IframeMain.location='<%=SubMenuRS("IpAddress")%>'
  }
<%  SubMenuRS.MoveNext
  Wend%>
</script>