<% 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 %> <% end if rs_user_menu.close %>

我的任务日历

我参与的任务

我负责的任务

我制定的任务

制定工作任务