job_menu.html

OFFICE办公自动化

<!--任务菜单-->
<table border=0 cellspacing="0" cellpadding="0">
  <tr>
    <td width=110 nowrap><img border="0" src="../images/icon_menu.gif" align="left"><a href="job_index.asp">我的任务日历</a></td>
    <td width=110 nowrap><img border="0" src="../images/icon_menu.gif" align="left"><a href="job_list_join.asp">我参与的任务</a></td>
    <td width=110 nowrap><img border="0" src="../images/icon_menu.gif" align="left"><a href="job_list_manage.asp">我负责的任务</a></td>
<%
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
'------------------------------------------------取记录
'取用户信息 （返回rs_user对象）
'
set rs_user_menu=Server.CreateObject("ADODB.RecordSet")
sql="select RoleID from vioaUser where ID="&LoginID
'Response.Write sql
rs_user_menu.open sql,oConn,1,1
'------------------------------------------------
if (returnqx("0104")) then
%>
    <td width=110 nowrap><img border="0" src="../images/icon_menu.gif" align="left"><a href="job_list_enact.asp">我制定的任务</a></td>
    <td width=97 nowrap><img border="0" src="../images/icon_menu.gif" align="left"><a href="job_add.asp">制定工作任务</a></td>
<%
end if
rs_user_menu.close
%>
    <td width=50></td>
  </tr>
</table>