job_show.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 498 行 · 第 1/2 页

ASP
498 行
字号
12
</script>
</head>

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

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

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

<table width="100%" cellspacing="1" cellpadding="2" class="tab">
  <tr>
    <td width="100%" class="tdTop" colspan="2">
      <table border="0" width="100%" cellspacing="0" cellpadding="0">
        <tr>
          <td class="tdTop">
            <p align="left"><img border="0" src="../images/icon_title.gif" align="left"><%=HtmlOut(rs("Title"))%></p>
          </td>
          <td width="90" class="tdTop">
            <p align="left"><img border="0" src="../images/icon_return.gif" align="left">  
            <a href="<%=reurl%>?page=<%=currentpage%>&selectdate=<%=selectdate%>" class="linkTop">返回列表</a></p>    
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td width="100%" class="td1">
      <table border="0" width="100%" cellspacing="10" cellpadding="0">
        <tr>
          <td width="100%">
            起止日期：<%=rs("StartDate")%> 至 <%=rs("EndDate")%>　　　　
<%
	Select Case rs("Importance")
	   Case 1
	      Importance="低"
	   Case 2
	      Importance="中"
	   Case 3
	      Importance="高"
	   Case Else
	      Importance="未指定"
	End Select
%>
            重要程度：<%=Importance%><br>
          </td>
        </tr>
        <tr>
          <td width="100%">
            <div id="ShowFinish">
	      <table border="0" width="100%" cellspacing="0" cellpadding="0">
	        <tr>
	          <td width="400">
		     <table border="0" width="100%" cellspacing="0" cellpadding="0">
		        <tr>
		          <td width="60">完成情况：</td>
		          <td width="300">
		          <div style="border: 1 solid #000000"><img border="0" src="../images/line.png" height="8" width="<%=rs("finish")*3%>"></div>
		          </td>
		          <td>&nbsp;<%=rs("finish")%>%</td>
		        </tr>
		      </table>
	          </td>
	          <%if (UserMod > 0) then%>
	          <td>
	            <p align="left"><img border="0" src="../images/icon_go_up.gif" align="left">  
	            <a href="#" onclick="return ShowEditFinish()" onfocus="this.blur()">修 改</a></p>   
	          </td>
	          <%end if%>
	        </tr>
	      </table>
	    </div>
	    <div id="EditFinish" style="display: none">
	      <table border="0" width="300" cellspacing="0" cellpadding="0">
	        <form name="frmfinish" method="POST" action="?id=<%=pid%>&reurl=<%=reurl%>&page=<%=currentpage%>&selectdate=<%=selectdate%>" onSubmit="return GoFinish(frmfinish)">
	        <tr>
	          <td width="160">
	            修改完成情况：
	            <input type=hidden name="edit_subed" value="finish">
	            <select size="1" name="finish" class="input">
	              <option value="0" <%if rs("finish")=0 then response.write "selected"%>>0</option>
		      <option value="10" <%if rs("finish")=10 then response.write "selected"%>>10</option>
		      <option value="20" <%if rs("finish")=20 then response.write "selected"%>>20</option>
		      <option value="30" <%if rs("finish")=30 then response.write "selected"%>>30</option>
		      <option value="40" <%if rs("finish")=40 then response.write "selected"%>>40</option>
		      <option value="50" <%if rs("finish")=50 then response.write "selected"%>>50</option>
		      <option value="60" <%if rs("finish")=60 then response.write "selected"%>>60</option>
		      <option value="70" <%if rs("finish")=70 then response.write "selected"%>>70</option>
		      <option value="80" <%if rs("finish")=80 then response.write "selected"%>>80</option>
		      <option value="90" <%if rs("finish")=90 then response.write "selected"%>>90</option>
		      <option value="100" <%if rs("finish")=100 then response.write "selected"%>>100</option>
		    </select>%
	          </td>
	          <td><br>
	            <img border="0" src="../images/icon_save.gif" align="left"> <a href="javascript: GoFinish(frmfinish)" onfocus="this.blur()">确 定</a></p>    
	          </td>
	          <td><br>
	            <img border="0" src="../images/icon_close.gif" align="left"> <a href="#" onclick="return ShowEditFinish()" onfocus="this.blur()">取 消</a></p>    
	          </td>
	        </tr>
	        </form>
	      </table>
	    </div>
          </td>
        </tr>
        <tr>
          <td width="100%">
            <fieldset style="width:100%" align="center"> <legend>任务内容</legend> 
            <%=HtmlOut(rs("Body"))%>
            </fieldset>
          </td>
        </tr>
        <tr>
          <td width="100%">
            <fieldset style="width:100%" align="center"> <legend>备注</legend> 
            <%=HtmlOut(rs("Remark"))%>
            </fieldset>
          </td>
        </tr>
        <tr>
          <td width="100%">
            <fieldset style="width:100%" align="center"> <legend>任务进程</legend> 
              <%while not rs_r.EOF '循环%>
              <div align="center">
	      <table border="0" width="95%" cellspacing="0" cellpadding="0">
	        <tr>
	          <td>
	            <p align="left"><img border="0" src="../images/icon_title.gif" align="left">填写人：<%=rs_r("UserName")%>　(<%=rs_r("Times")%>)</p>
	          </td>
	          <%if cint(LoginID)=rs_r("UserID") then%>
		  <td width="70">
		  <div id="EditTitle">
		    <img border="0" src="../images/icon_edit.gif" align="left"><a href="#Bottom" onclick="return ShowBody(<%=rs_r("ID")%>)" onfocus="this.blur()">编 辑</a>
		  </div>
		  </td>
		  <td width="70">
		    <img border="0" src="../images/icon_dele.gif" align="left">
		    <a href="javascript: GoDele(<%=rs_r("ID")%>)">删 除</a>
		  </td>
		  <%end if%>
	        </tr>
	      </table>
	      <table border="0" width="95%" cellspacing="0" cellpadding="0">
	        <tr>
	          <td><div id="Relative_<%=rs_r("ID")%>"><%=HtmlOut(rs_r("Body"))%></div></td>
	        </tr>
	      </table>
              <hr width="95%" size="1">
              </div>
              <%rs_r.MoveNext: wend%>

	      <table border="0" width="100%" cellspacing="0" cellpadding="0">
	        <form name="eventfrm" method="POST" action="?id=<%=pid%>&reurl=<%=reurl%>&page=<%=currentpage%>&selectdate=<%=selectdate%>">
	        <input type=hidden name="edit_subed" value="">
	        <input type=hidden name="rid" value="">
	        <tr>
	          <td>&nbsp;</td>
	          <td width="110">
	            <div id="RelativeTitle"><img border="0" src="../images/icon_open.gif" align="left"> <a href="#bottom" onclick="ShowBody()" onfocus="this.blur()">填 写 进 程</a></div> 
	            <div id="Relative" style="display: none">
	              <textarea rows="3" name="Body" class="textarea"></textarea> 
	            </div>
	          </td>
	        </tr>
	        </form> <script language="javascript">BodySize(); window.onresize=BodySize;</script>
	      </table>
	      
            </fieldset>
          </td>
        </tr>
      </table>
    </td>
    <td width="1%" class="td1" align="center" valign="top">
      <table border="0" width="150" cellspacing="0" cellpadding="6">
        <tr>
          <td width="100%">
            <fieldset style="width:100%" align="center"> <legend>任务制定人</legend> 
	      <table border="0" width="150">
	        <tr>
	          <td width="70%" style="border-bottom: 1 solid #000000">
	            <%=HtmlOut(rs("UserName"))%>&nbsp;
	          </td>
	        </tr>
	      </table>
            </fieldset>
            <br>
            <fieldset style="width:100%" align="center"> <legend>负责人</legend> 
	      <table border="0" width="150">
	        <tr>
	          <td width="70%" style="border-bottom: 1 solid #000000">
	            <%=HtmlOut(rs("ManagerName"))%>&nbsp;
	          </td>
	          <%if (UserMod > 1) then%>
	          <td width="30%">
	            <a href="javascript: selectmanager(frmassign)"><img border="0" src="../images/icon_user.gif" title="更改" align="left"></a>
	          </td>
	          <%end if%>
	        </tr>
	      </table>
            </fieldset>
            <br>
            <fieldset style="width:100%" align="center"> <legend>参与者</legend> 
	      <table border="0" width="150">
	        <%while not rs_a.EOF '循环%>
	        <tr>
	          <td width="70%">
		    <%=HtmlOut(rs_a("AssignUserName"))%>
	          </td>
	          <%if (UserMod > 0) then%>
	          <td width="30%">
	            <a href="javascript: assigndele(frmassign,<%=rs_a("ID")%>)"><img border="0" src="../images/icon_dele1.gif" title="删除" align="left"></a>
	          </td>
	          <%end if%>
	        </tr>
	        <%rs_a.MoveNext: wend%>
	        <%if (UserMod > 0) then%>
	        <tr>
	          <td width="100%" colspan="2"><img border="0" src="../images/icon_list.gif" align="left"> 
	            <a href="javascript: assignadd(frmassign)">增加</a>
	          </td>
	        </tr>
	        <%end if%>
	      </table>
            </fieldset>
            <form name="frmassign" method="POST" action="?id=<%=pid%>&reurl=<%=reurl%>&page=<%=currentpage%>&selectdate=<%=selectdate%>">
             <input type=hidden name="edit_subed" value="">
             <input type=hidden name="userlist" value="">
             <input type=hidden name="manager" value="">
             <input type=hidden name="rid" value="">
            </form>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td width="100%" colspan="2" class="tdBottom">
    </td>
  </tr>
</table>
<a name="bottom"></a>
</body>

</html>

<%'释放对象变量
rs.close
oConn.close
%>
12

job_show.asp - 源码说明

本页面展示了「OFFICE办公自动化」中的 job_show.asp 源码文件，采用 ASP 编程语言编写，共 498 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Office自动化相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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