planlist.asp

功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来看下.

<!--#include file="check.asp"-->
<!--#INCLUDE FILE="connect.asp" --> 
<%
set bzwb=server.createobject("oaserver.planlist")
bzwb.main(conn)

If request("dodate2") = "" Then
rightdate = Date
Else
rightdate = request("dodate2")
End If
rightdate = Replace(rightdate, "'", "")

%>

<input class='noinput' title='点击选择安排日期' readonly type='hidden' name='dodate2' onClick="document.form.finddate.value='finddate';setday(dodate2,document.all.dodate2)" style="cursor:hand" value="<%=rightdate%>" size="15" maxlength="15">
&nbsp;<input type="image" name="Submit3" onClick="document.form.finddate.value='finddate';setday(dodate2,document.all.dodate2);return false;" style="cursor:hand" src="images/dategif.gif" alt="选择日期">
</td></tr></table><table width="95%" cellpadding="0" cellspacing="0">
<tr bgcolor="71B2E6" height="1"><td height="1"></td></tr>
<tr bgcolor="ffffff" height="1"><td height="1"><img src="images/spacer.gif"></td></tr></table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="35">
 <tr><td align="center" valign="middle" class="title"> <img src="images/personplan.gif"> 
              <div style="Z-INDEX: -1; POSITION: absolute; TOP: 249px; left: 70px; width: 734px; height: 109px"> 
                <p></p>
                <p></p>
                <p></p>
                <p></p>
                <p>&nbsp;</p>
                <p><font id=YMBG 
      style="FONT-SIZE: 90pt; COLOR: #f9f9f9; FONT-FAMILY: 'Arial Black'"><%=rightdate%></font> 
                </p>
              </div>
              <input type="hidden" name="finddate">
            </td>
          </tr>
        </table>

<% 
response.write "<table width='95%' cellspacing='0' cellpadding='0'><tr><td valign='top' rowspan='2'>"   		 
for i=1 to 7
response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0' height='45'><tr>" 
response.write "<td width='5%' rowspan='2' align='right' class='plantime'>"
%>
 
                    <%j=i*2+4
						  dd=j+2
						  response.write("<b>"&j&"</b>")
						  if len(j)=1 then
						  j="0"&j
						  end if
						   if len(dd)=1 then
						  dd="0"&dd
						  end if		
				  set rs=server.createobject("adodb.recordset")
				  sql="select * from personplan where uid='"&session("uid")&"' and plandate=#"&rightdate&"# and plantime>='"&j&"00"&"' and plantime<'"&dd&"00"&"' order by plantime"
					rs.open sql,conn,1,1
					
				%>
                  </td>
                  <td width="8%" rowspan="2" align="left" valign="middle"> 
                    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="45">
                      <tr> 
                        <td valign="top" class="plantime2"> <b>00</b></td>
                      </tr>
                    </table>
                  </td>
                  <td width="87%" valign="top" height="2"></td>
                </tr>
                <tr > 
                  <td width="87%" valign="top"> 
                    <%while not rs.eof %>
                    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="30">
                      <tr> 
                        <td> 
                          <%response.write("<a href='modifyplan.asp?id="&rs("id")&"' class='aapply' onClick='return OpenWindows(this.href)'>")
							  response.write rs("content")
							   bbbb=left(rs("plantime"),2)&":"&right(rs("plantime"),2)
							   response.write("&nbsp;"&bbbb)
							    response.write("<a>")
							  %>
                        </td>
                      </tr>
                    </table>
                    <%rs.movenext
						wend
						%>
                  </td>
                </tr>
                <tr height="1"> 
                  <td colspan="3" background="images/dotlineb.gif"></td>
                </tr>
              </table>
              <% 
					rs.close
					next 
					set rs=nothing
					conn.close
					set conn=nothing
					%>
              <input type="hidden" name="position">
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
</form>
<script language=javascript src="calendar2.js">
 </script>
</body>
</html>