📄 job_index.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<%
'功能：我的任务日历
%>

<!--#include file="../inc/Secure.asp"-->
<!-- #include file ="../inc/conn.asp" -->
<!--#include file="../inc/Const.asp"-->
<!-- #include file ="const.inc" -->
<%
SelectID=Session("LoginID")
if SelectID="" then SelectID=0
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>main</title>
<base target="FrmMain">
</head>

<body topmargin="10" leftmargin="10">

<!--#include file="job_menu.html"-->

<hr width="100%" size=1 color="#000000">

<table width="100%" cellspacing="1" cellpadding="2" class="tab">
   <tr>
     <td class="tdTop">
        <div align="LEFT">
	<table cellspacing="0" cellpadding="0" class="tdTop">
	  <tr> 
	    <td width="20" height="18" align="LEFT" valign="MIDDLE"><a href="<%=sScript%>?month=<%=IntPrevMonth %>&amp;year=<%=IntPrevYear %>"><img src="../images/prev.gif" width="10" height="18" border="0" alt="Previous Month"></a></td>
	    <td align="CENTER" valign="MIDDLE"  class="AWhite"><%= strMonthName & " " & intThisYear %></td>
	    <td width="20" height="18" align="RIGHT" valign="MIDDLE"><a href="<%=sScript %>?month=<%=IntNextMonth %>&amp;year=<%=IntNextYear %>"><img src="../images/next.gif" width="10" height="18" border="0" alt="Next Month"></a>　　</td>
	    <td><!-- #include file="form.inc" --></td>
	  </tr>
	</table>
	</div>
	<table width="100%" cellspacing="1" cellpadding="2" class="tab">
	 <tr> 
	   <td align="CENTER" WIDTH="14%" class="td1" valign="BOTTOM">日</td>
	   <td align="CENTER" WIDTH="14%" class="td1" valign="BOTTOM">一</td>
	   <td align="CENTER" WIDTH="14%" class="td1" valign="BOTTOM">二</td>
	   <td align="CENTER" WIDTH="14%" class="td1" valign="BOTTOM">三</td>
	   <td align="CENTER" WIDTH="14%" class="td1" valign="BOTTOM">四</td>
	   <td align="CENTER" WIDTH="14%" class="td1" valign="BOTTOM">五</td>
	   <td align="CENTER" WIDTH="14%" class="td1" valign="BOTTOM">六</td>
	 </tr>
	 <!--#include file ="showcal.inc" -->
	</table>
    </td>
  </tr>
</table>
<%
Function ShowPlan(SelectDate)
	dim Show:Show=""
	set rstmp=Server.CreateObject("ADODB.RecordSet")
	sql="select id from vioaJobAssign where Startdate<='"& SelectDate &"' and Enddate>='"& SelectDate &"' and AssignUserID="& SelectID
	rstmp.open sql,oConn
	if not rstmp.eof then
		dim total:total=0
		do while not rstmp.eof
		  total=total+1
		  rstmp.movenext
		loop
		Show=Show&"<a href='job_list_join.asp?selectdate="& SelectDate &"'><font color=8080B0>我参与的任务:"& total &"</font></a><br>"
	end if
	rstmp.close
	set rstmp=nothing
	
	set rstmp=Server.CreateObject("ADODB.RecordSet")
	sql="select id from tbioaJob where Startdate<='"& SelectDate &"' and Enddate>='"& SelectDate &"' and ManagerID="& SelectID
	rstmp.open sql,oConn
	if not rstmp.eof then
		total=0
		do while not rstmp.eof
		  total=total+1
		  rstmp.movenext
		loop
		Show=Show&"<a href='job_list_manage.asp?selectdate="& SelectDate &"'><font color=B08080>我负责的任务:"& total &"</font></a><br>"
	end if
	rstmp.close
	set rstmp=nothing
	
	set rstmp=Server.CreateObject("ADODB.RecordSet")
	sql="select id from tbioaJob where Startdate<='"& SelectDate &"' and Enddate>='"& SelectDate &"' and UserID="& SelectID
	rstmp.open sql,oConn
	if not rstmp.eof then
		total=0
		do while not rstmp.eof
		  total=total+1
		  rstmp.movenext
		loop
		Show=Show&"<a href='job_list_enact.asp?selectdate="& SelectDate &"'><font color=808080>我制定的任务:"& total &"</font></a><br>"
	end if
	rstmp.close
	set rstmp=nothing
	
	if Show<>"" then
		ShowPlan=Show
	else
		ShowPlan="<font color=8080B0>未安排任务</font>"
	end if
	
end Function
%>
<!--#include file="../inc/conn_close.asp"-->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -