📄 oamain.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../config.asp"-->
<!--#include file="checklogin.asp"-->
<!--#include file="popu.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>企业协同办公系统</title>
<LINK href="img/css1.css" type=text/css media=screen rel=stylesheet>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.style1 {
color: #FFFFFF;
font-weight: bold;
}
.style2 {color: #FFFFFF}
.style3 {color: #CC0000}
-->
</style></head>
<body >
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="52%" height="20" valign="top" class="table3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" align="center" bgcolor="#CC0000"><span class="style1">我的短消息</span></td>
</tr>
<tr>
<td height="150" valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
<%
Sql="select top 6 id,notice_title,notice_sender,notice_addtime,notice_type from oa_notice where notice_accept like '%"&trim(session("truename"))&"%' or notice_accept like '|所有人'"
set rs=conn.execute(Sql)
do while not rs.eof
ssql="select truename from oa_admin where id="&rs(2)
set srs=conn.execute(ssql)
if not srs.eof then
sendname=srs(0)
else
sendname="不明确"
end if
srs.close
set srs=nothing
%>
<tr>
<td width="67%" height="20">·<A title="" onClick="window.open('personal/view.asp?id=<%=rs(0)%>','','width=550,height=450,scrollbars=no')" href="javascript:;" ><%=rs(1)%></a></td>
<td width="17%" height="20" align="center"><%=sendname%></td>
<td width="16%" height="20" align="center"><%=formatdatetime(rs(3),2)%></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table></td>
</tr>
</table></td>
<td width="1%" valign="top"> </td>
<td width="47%" height="20" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td height="20" align="center" bgcolor="#CC0000"><span class="style1"> 系统公告</span></td>
</tr>
<tr>
<td height="150" valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
<%
sql="select top 7 id,title,addtime from systemnotice order by id desc"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.Write("暂时没有通知内容")
else
do while not rs.eof
%>
<tr>
<td width="73%" height="20">·<A title="" onClick="window.open('news/view_sysnotice.asp?id=<%=rs(0)%>','','width=550,height=450,scrollbars=no')" href="javascript:;" ><%=rs(1)%></a></td>
<td width="27%" height="20" align="center"><%=rs(2)%></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="3" valign="top"> </td>
</tr>
<tr>
<td height="20" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td width="89%" height="20" align="center" bgcolor="#CC0000"><span class="style1"> 通知</span></td>
<td width="11%" align="center" bgcolor="#CC0000"><a href="news/tongzhi.asp"><span class="style2">>>更多</span></a></td>
</tr>
<tr>
<td height="150" colspan="2" valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
<%
sql="select top 7 id,title,adduser,addtime,notice_import from oa_tongzhi where companyid="&session("companyid")&" and notice_flag=2"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.Write("暂时没有通知内容")
else
do while not rs.eof
%>
<tr>
<td width="67%" height="20">·<A title="" onClick="window.open('news/view_notice.asp?id=<%=rs(0)%>','','width=550,height=450,scrollbars=no')" href="javascript:;" ><%=rs(1)%></a></td>
<td width="17%" height="20" align="center">[<%=rs(2)%>]</td>
<td width="16%" height="20" align="center"><%=rs(3)%></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</table></td>
</tr>
</table></td>
<td width="1%" valign="top"> </td>
<td height="20" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td width="89%" height="20" align="center" bgcolor="#CC0000"><span class="style1"> 公告</span></td>
<td width="11%" align="center" bgcolor="#CC0000"><a href="news/notice.asp"><span class="style2">>>更多</span></a></td>
</tr>
<tr>
<td height="150" colspan="2" valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
<%
sql="select top 7 id,title,adduser,addtime,notice_import from oa_tongzhi where companyid="&session("companyid")&" and notice_flag=1"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.Write("暂时没有公告内容")
else
do while not rs.eof
%>
<tr>
<td width="67%" height="20">·<A title="" onClick="window.open('news/view_notice.asp?id=<%=rs(0)%>','','width=550,height=450,scrollbars=no')" href="javascript:;" ><%=rs(1)%></a></td>
<td width="17%" height="20" align="center">[<%=rs(2)%>]</td>
<td width="16%" height="20" align="center"><%=rs(3)%></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="3" valign="top"> </td>
</tr>
<tr>
<td height="20" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td width="89%" height="20" align="center" bgcolor="#CC0000"><span class="style1"> 最新日记</span></td>
<td width="11%" align="center" bgcolor="#CC0000"><a href="work/mydayblog.asp"><span class="style2">>>更多</span></a></td>
</tr>
<tr>
<td height="150" colspan="2" valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
<%
sql="select top 7 id,uid,uname,oa_blogtitle,addtime,hits from oa_blog where companyid="&session("companyid")&" order by id desc"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.Write("暂时没有日记")
else
do while not rs.eof
%>
<tr>
<td width="84%" height="20">·<a href="work/view_blog.asp?id=<%=rs(0)%>"><%=rs(3)%></a><span class="style3">[<%=rs("uname")%>]</span></td>
<td width="16%" height="20" align="center"><%=rs(4)%></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</table></td>
</tr>
</table></td>
<td width="1%" valign="top"> </td>
<td height="20" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td width="89%" height="20" align="center" bgcolor="#CC0000"><span class="style1"> 我的代办任务 </span></td>
<td width="11%" align="center" bgcolor="#CC0000"><a href="work/work_daiban.asp"><span class="style2">>>更多</span></a></td>
</tr>
<tr>
<td height="150" colspan="2" valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
<%
sql="select top 7 id,uid,uname,work_title,work_import,work_time,work_time1,work_time2 from oa_work where work_name="&session("adminid")&" and work_endtime is null order by id desc"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.Write("暂时没代办任务")
else
do while not rs.eof
%>
<tr>
<td width="67%" height="20">·<a href="work/view_work.asp?id=<%=rs(0)%>"><%=rs(3)%></a></td>
<td height="20" align="center">分派日期:<%=rs(5)%></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="3" valign="top"> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -