index_down.asp

来自「未成型的程序。不能算OA的」· ASP 代码 · 共 344 行 · 第 1/2 页

                      <td width="530" class="fontsize12"> <a href=disp.asp?dispid=<%=rs("id")%>&back=index_down.asp class="fontsize12wu"> 
                        <%if rs("附件数")>0 then%>
                        <%=left(rs("标题"),42)%> 
                        <%else%>
                        <%=left(rs("标题"),44)%> 
                        <%end if%>
                        </a> <%if rs("附件数")>0 then%> <img src="images/fujian.gif" align="absmiddle"> 
                        <%end if%>
                      </td>
                      <td width="134" class="fontsize12"> <%=rs("发文日期")%>&nbsp;<%=rs("发文时间")%> </td>
                      <td width="66" class="fontsize12">附件数：<%=rs("附件数")%></td>
                    </tr>
                  </table></td>
              </tr>
              <%
	        rs.movenext 
			if rs.eof then exit for
	    next%>
            </table></td>
          <td width="10" class="fontsize10">　</td>
        </tr>
      </table> 
      <table width="600" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td class="fontsize04">　</td>
        </tr>
      </table>
<%end if
 rs.close%>
      <%
	  user_name1="|"&session("user_name")&"|"
	  user_name2="|"&session("user_name")&"("
	  str="select * from woa where 发文者='"&session("user_name")&"' and 接收者='|' and 所有人=0 order by id desc"
	  rs.open str,conn,3,2
if not rs.eof then
	  %> <table width="758" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="10" class="fontsize10">　</td>
          <td width="365"><table width="738" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
              <tr> 
                <td height="26" background="images/menu-d-gg.gif"> <div align="center" class="fontsize14"><strong><a href="privatefile.asp" class="fontsize14wu">私 
                    人 文 件</a></strong>　　　　　　<span class="fontsize12">共有<%=rs.recordcount%>个</span></div></td>
              </tr>
              <%
	  for m=1 to syxxs%>
              <tr> 
                <td height="18" class="fontsize12"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="530" class="fontsize12"> <a href=disp.asp?dispid=<%=rs("id")%>&back=index_down.asp class="fontsize12wu"> 
                        <%if rs("附件数")>0 then%>
                        <%=left(rs("标题"),42)%> 
                        <%else%>
                        <%=left(rs("标题"),44)%> 
                        <%end if%>
                        </a> <%if rs("附件数")>0 then%> <img src="images/fujian.gif" align="absmiddle"> 
                        <%end if%> </td>
                      <td width="134" class="fontsize12"> <%=rs("发文日期")%>&nbsp;<%=rs("发文时间")%> </td>
                      <td width="66" class="fontsize12">附件数：<%=rs("附件数")%></td>
                    </tr>
                  </table></td>
              </tr>
              <%
	        rs.movenext 
			if rs.eof then exit for
	    next
	    rs.close%>
            </table></td>
          <td width="10" class="fontsize10">　</td>
        </tr>
      </table>
      <table width="600" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td class="fontsize04">　</td>
        </tr>
      </table>
      <%end if%>
      <table width="758" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="10" class="fontsize10">　</td>
          <td width="365"><table width="364" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
              <tr> 
                <td height="26" background="images/menu-d-gg.gif"> <div align="center" class="fontsize14"><strong><a href="often.asp" class="fontsize14wu">常 
                    用 文 件</a></strong></div></td>
              </tr>
              <%
	  user_name1="|"&session("user_name")&"|"
	  user_name2="|"&session("user_name")&"("
	  str="select * from woa where (接收者 like '%"&user_name1&"%' or 所有人=1) and 常用=1 order by id desc"
	  set rs=conn.execute(str)
	  for m=1 to 7%>
              <tr> 
                <td height="18" class="fontsize12"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td class="fontsize12">
                        <%if not rs.eof then%> <a href=disp.asp?dispid=<%=rs("id")%>&back=index_down.asp class="fontsize12wu"> 
                        <%if rs("附件数")>0 then%>
                        <%=left(rs("标题"),18)%> 
                        <%else%>
                        <%=left(rs("标题"),20)%> 
                        <%end if%>
                        </a> <%if rs("附件数")>0 then%> <img src="images/fujian.gif" align="absmiddle"> 
                        <%end if%> <%else%>
                        ☆☆☆☆☆☆☆ 
                        <%end if%>
                      </td>
                      <td width="110" class="fontsize12"> 
                        <%if not rs.eof then%> <%=rs("发文日期")%>&nbsp;<%=rs("发文者")%> <%else%> &nbsp; <%end if%>
                      </td>
                    </tr>
                  </table></td>
              </tr>
              <%if not rs.eof then 
	        rs.movenext 
		end if
	    next
	    rs.close%>
              
            </table></td>
          <td width="10" class="fontsize10">　</td>
          <td width="365"><table width="364" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
              <tr> 
                <td height="26" colspan="3" background="images/menu-d-gg.gif"> 
                  <div align="center" class="fontsize14"><strong><a href="gzab.asp" class="fontsize14wu">工 
                    作 安 排</a></strong></div></td>
              </tr>
              <%today=date
	    wd=weekday(today)
		weekbegin=today-wd+1
	    for m=1 to 7
		    if m=1 then ww="日" end if
			if m=2 then ww="一" end if
			if m=3 then ww="二" end if
			if m=4 then ww="三" end if
			if m=5 then ww="四" end if
			if m=6 then ww="五" end if
			if m=7 then ww="六" end if%>
              <tr> 
                <td width="16" height="18" class="fontsize12">
<div align="center"><%=ww%></div></td>
                <td width="62" class="fontsize12"> 
                  <div align="center"><%=weekbegin+m-1%></div></td>
				<%str="select * from gzab where 日期=#"&weekbegin+m-1&"#"
				  set rs=conn.execute(str)%>
                <td class="fontsize12"><%if not rs.eof then%><%=left(rs("安排"),22)%><%else%>&nbsp;<%end if%></td>
				  <%rs.close%>
                <%next%>
              </tr>
            </table></td>
          <td width="10" class="fontsize10">　</td>
        </tr>
      </table>
      <table width="600" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td class="fontsize10">　</td>
        </tr>
      </table> </td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelr">
  <tr> 
    <td class="fontsize04">　</td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tabletblg">
  <tr> 
    <td background="images/bocolor02.gif">
<!--#include file="bottom.asp" --></td>
  </tr>
</table>
</body>
</html>