starteit.asp.asp

Lirong网络办公系统

		response.write(num & "、<a href='../remind/disp.asp?Number=" & num-1 & "&opFlag=start'>" & rs("vtitle") & "<font color='666666'>[" & rs("vtime") & "]</font></a><br>")
		rs.movenext
		num=num+1
		
		
	wend
	rs.close
%>
                    <p><font color="#0000FF"><img src="../images/arrow_r.gif" width="7" height="7" border="0" align="absmiddle"><img src="../images/arrow_r.gif" width="7" height="7" border="0" align="absmiddle"></font> 
                        <a href="../remind/edit.asp"><font color="#0000FF">新日程</font></a> 
                        <a href="../remind/main.asp"><font color="#0000FF">日程安排</font></a></p>
                </ul>
            </td>
        </tr>
    </table>
    </div>

<div id="Layuyu" style="position:absolute; width:393px;top:53px; height:400px; z-index:8; left: 31px"> 
    <b><font size="4"><img src="../images/offiche.gif"  width="32" height="32" align="absmiddle">最新公告</font></b> 
    <table width="100%"   cellspacing="0" cellpadding="0" align="center"  class=vtext>
        <tr> 
            <td  style="border:1 solid <%=Session("vtitlebackcolor")%>;border-right:none"><b><br>
                </b> 
                <%	sql="select * from offiche order by vdate desc"
	SET rs=Server.CreateObject("ADODB.RecordSet") 
	rs.open sql,Session("conn"),1,1
	num=1
	while not rs.eof
		response.write("<BR>" & num & "、<a href='../offiche/disp.asp?Number=" & num-1 & "&opFlag=start'>" & rs("vtitle") & "<font color='666666'>[" & rs("vdate") & "]</font></a>")
		rs.movenext
		num=num+1
		
		
	wend
	rs.close
%>
                <br>
                <img src="../images/arrow_r.gif" width="7" height="7" border="0" align="absmiddle"><img src="../images/arrow_r.gif" width="7" height="7" border="0" align="absmiddle"> 
                <%if mid(Session("qx"),9,1)="1" then %>
                <a href="../offiche/edit.asp?opFlag=cmdAddNew"><font color="#0000FF"> 
                发布公告</font></a> 
                <%end if%>
                <a href="../offiche/main.asp"><font color="#0000FF">公告栏</font></a> 
                <font face="Arial, Helvetica, sans-serif" color="#999999">OFFICHE</font> 
            </td>
        </tr>
    </table>
    <table width="100%" class=vtext border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
            <td height="16" width="45" ><img src="../images/mail.gif"  width="32" height="32"></td>
            <td height="16" width="84" bgcolor="<%=Session("vtabletitlebackcolor")%>"  align=center valign="middle"><b>最新邮件 </b></td>
            <td height="16" align="right" width="264"><font face="Arial, Helvetica, sans-serif" color="#999999">MAILS</font></td>
        </tr>
        <tr> 
            <td width="45"></td>
            <td height="1" colspan="2" bgcolor="<%=session("vtitlebackcolor")%>"  valign="middle"><b></b></td>
        </tr>
        <tr height="120"> 
            <td colspan="3" height="15"> </td>
        </tr>
        <tr height="120"> 
            <td colspan="3"> 
                <ul>
                    <%
	sql="select * from recived" & Session("id") & " order by ilevel desc,idatetime desc"
	SET rs=Server.CreateObject("ADODB.RecordSet") 
	rs.open sql,Session("conn2"),1,1
	num=1
	while not rs.eof
		response.write(num & "、<a href='../mail/readmail.asp?page=1&num=" & num & "&opFlag=start'>" & rs("cent") & "<font color='666666'>[" & rs("idatetime") & "]</font></a><br>")
		rs.movenext
		num=num+1
		
		
	wend
	rs.close
%>
                    <p><font color="#0000FF"><img src="../images/arrow_r.gif" width="7" height="7" border="0" align="absmiddle"><img src="../images/arrow_r.gif" width="7" height="7" border="0" align="absmiddle"> 
                        </font><a href="../mail/write.asp"><font color="#0000FF">写邮件</font></a>　<a href="../mail/mailbox.asp?mailbox=common"><font color="#0000FF">公共信箱</font></a>　<a href="../mail/mailbox.asp?mailbox=recived"><font color="#0000FF">收件箱</font></a>　<a href="../mail/mailbox.asp?mailbox=sendout"><font color="#0000FF">发件箱</font></a>　<a href="../mail/mailbox.asp?mailbox=del"><font color="#0000FF">回收站</font></a><font color="#0000FF"> 
                        </font></p>
                </ul>
            </td>
        </tr>
        <tr> 
            <td height="16" width="45" ><img src="../images/meeting1.gif"  width="32" height="32"></td>
            <td height="16" width="84" bgcolor="<%=Session("vtabletitlebackcolor")%>"  align=center valign="middle"><b>最新帖子</b></td>
            <td height="16" align="right" width="264"><font face="Arial, Helvetica, sans-serif" color="#999999">BBS</font></td>
        </tr>
        <tr> 
            <td width="45"></td>
            <td height="1" colspan="2" bgcolor="<%=Session("vtitlebackcolor")%>" valign="middle"><b></b></td>
        </tr>
        <tr height="120"> 
            <td colspan="3" height="15"> </td>
        </tr>
        <tr height="120"> 
            <td colspan="3"> 
                <ul>
                    <%
	sql="select * from bbs  order by vtime desc"
	rs.open sql,Session("conn"),1,1
	num=1
	while not rs.eof
		response.write("<div>" & num & "、<a href='../bbs/disp.asp?Number=" & num-1 & "&opFlag=start'>" & rs("vtitle") & "<font color='666666'>[" & rs("vtime") & "]</font></a><div><br>")
		rs.movenext
		num=num+1
		
		
	wend
	rs.close
%>
                    <p><font color="#0000FF"><img src="../images/arrow_r.gif" width="7" height="7" border="0" align="absmiddle"><img src="../images/arrow_r.gif" width="7" height="7" border="0" align="absmiddle"> 
                        </font><a href="../bbs/edit.asp?opFlag=cmdAddNew"><font color="#0000FF">我要发帖</font></a> 
                        <a href="../bbs/main.asp"><font color="#0000FF">BBS交流</font></a></p>
                </ul>
            </td>
        </tr>
        <tr> 
            <td height="16" width="45" ><img src="../images/file.GIF"  width="32" height="32"></td>
            <td height="16" width="84" bgcolor="<%=Session("vtabletitlebackcolor")%>"  align=center valign="middle"><b>最新公文 </b></td>
            <td height="16" align="right" width="264"><font face="Arial, Helvetica, sans-serif" color="#999999">FILES</font></td>
        </tr>
        <tr> 
            <td width="45"></td>
            <td height="1" colspan="2" bgcolor="<%=Session("vtitlebackcolor")%>" valign="middle"><b></b></td>
        </tr>
        <tr height="120"> 
            <td colspan="3" height="15"> </td>
        </tr>
        <tr height="120"> 
            <td colspan="3"> 
                <ul>
                    <%
	sql="select * from file where vauthor='" & Session("id")
	sql=sql & "' or " & "vdolist like '%" & Session("id")  & "%' "
	sql=sql & " or " & "vreaders like '%" & Session("id")  & "%' "
	sql=sql & " or " & "vaccepters like '%" & Session("id")  & "%' order by vtime desc"
	rs.open sql,Session("conn"),1,1
	num=1
	while not rs.eof
		response.write(num & "、<a href='../file/disp.asp?Number=" & num-1 & "&opFlag=start'>" & rs("vtitle") & "<font color='666666'>[" & rs("vtime") & "]</font></a><br>")
		rs.movenext
		num=num+1
		
	wend
	rs.close
%>
                    <p><font color="#0000FF"><img src="../images/arrow_r.gif" width="7" height="7" border="0" align="absmiddle"><img src="../images/arrow_r.gif" width="7" height="7" border="0" align="absmiddle"> 
                        </font><a href="../file/edit.asp"><font color="#0000FF">新文拟稿</font></a> 
                        <a href="../file/edit.asp?opFlag=cmdRecive"><font color="#0000FF">来文接收</font></a> 
                        <a href="../file/myfiles.asp"><font color="#0000FF">我的公文夹</font></a> 
                        <a href="../file/reads.asp"><font color="#0000FF">我的阅读夹</font></a> 
                        <a href="../file/todo.asp"><font color="#0000FF">待处理公文</font></a> 
                        <a href="../file/already.asp"><font color="#0000FF">已处理公文</font></a></p>
                </ul>
            </td>
        </tr>
        <tr> 
            <td height="16" width="45" ><img src="../images/cala.gif"  width="32" height="32"></td>
            <td height="16" width="84" bgcolor="<%=Session("vtabletitlebackcolor")%>"  align=center valign="middle"><b>最新日程 </b></td>
            <td height="16" align="right" width="264"><font face="Arial, Helvetica, sans-serif" color="#999999">CALENDAR</font></td>
        </tr>
        <tr> 
            <td width="45"></td>
            <td height="1" colspan="2" bgcolor="<%=Session("vtitlebackcolor")%>" valign="middle"></td>
        </tr>
        <tr height="120"> 
            <td colspan="3" height="15"> </td>
        </tr>
        <tr height="120"> 
            <td colspan="3"> 
                <ul>
                    <%
	sql="select * from remind where vowner='" & Session("id") & "' order by vtime desc"
	rs.open sql,Session("conn"),1,1
	num=1
	while not rs.eof
		response.write(num & "、<a href='../remind/disp.asp?Number=" & num-1 & "&opFlag=start'>" & rs("vtitle") & "<font color='666666'>[" & rs("vtime") & "]</font></a><br>")
		rs.movenext
		num=num+1
		
		
	wend
	rs.close
%>
                    <p><font color="#0000FF"><img src="../images/arrow_r.gif" width="7" height="7" border="0" align="absmiddle"><img src="../images/arrow_r.gif" width="7" height="7" border="0" align="absmiddle"></font> 
                        <a href="../remind/edit.asp"><font color="#0000FF">新日程</font></a> 
                        <a href="../remind/main.asp"><font color="#0000FF">日程安排</font></a></p>
                </ul>
            </td>
        </tr>
    </table>
</div>

</body>
</html>