📄 desk.asp
字号:
<!--#include virtual="include/DataEnvi.asp"-->
<!--#include virtual="include/function.asp"-->
<!--#include virtual="include/DateFunction.asp"-->
<!--#include virtual="include/String.asp"-->
<%
Dim objDB,objRS,strSQL
Dim strComMsg,strEmail,strBBS,strPlan,strInfo
Dim AccountID
AccountID = session("AccountID")
Set objDB = server.CreateObject("ADODB.Connection")
OpenDB objDB
strSQL = "select Count(*) from t_OA_Work_ComMessage_Record_Des Where State=1 And ExecuteID = " & AccountID
Set objRS = objDB.Execute(strSQL)
If objRS(0)=0 Then
strComMsg = "您没有待处理的公文"
Else
strComMsg = "您有<font color=#FF6600>" & objRS(0) & "</font>封待处理的公文<br><font color=999999>"
objRS.Close()
strSQL = "select Top 4 ExeID,Title,ExeUpdateTime from v_OA_Work_ComMessage WHERE ExeState = 1 AND IsCreator = 0 AND ExeIsDel = 0 AND ExecuteID = " & AccountID & "Order By ExeUpdateTime Desc"
Set objRS = objDB.Execute(strSQL)
Do While Not objRS.EOF
strComMsg = strComMsg & "<tr><td width='11%'><img src='../../images/arrow.gif' width=12 height=12></td>"
strComMsg = strComMsg & "<td width='89%'><span class=style3><A class=Link2 href='../../OA/Work/commessage/index.asp' target=IframeMain>" & FixStrLen(objRS.Fields("Title"),20)
strComMsg = strComMsg & " (" & FormatDateS(objRS.Fields("ExeUpdateTime")) & ")</A></span></td>"
objRS.MoveNext()
Loop
End If
objRS.Close()
'----------------------------------------------------------------------------------------------------------------------
'电子邮件系统暂时使用公司邮件系统
'StrSQL=" Select Count(*) from t_OA_Message where AccountID ="& AccountID &" and BoxID = 1 and IsNew = 1"
'Set objRS = objDB.Execute(strSQ)
'If objRS(0)=0 Thn
' strEmail = "您没有未读的电子邮件"
'Else
' strEmail = "您有<font color=#FF6600>" & objRS(0) & "</font>封未读的邮件<br><font color=999999>"
' StrSQL=" Select Top 3 ID,Subject,SendTime from t_OA_Message where AccountID ="& AccountID &" and BoxID = 1 And IsNew = 1 order by ID"
' Set objRS = objDB.Execute(strSQL)
' Do While Not objRS.EOF
' strEmail = strEmail & "<br>" & FixStrLen(objRS.Fields("Subject"),20) & "("
' strEmail = strEmail & FormatDateS(objRS.Fields("SendTime")) & ")"
' objRS.MoveNext()
' Loop
'End If
'objRS.Close()
'-------------------------------------------------------------------------------------------------------------------------
StrSQL=" Select Count(*) from V_OA_Public_Notice_TrueName Where CreateTime Between '" & DateAdd("d",-3,Now()) & "' And '" & Now() & "'"
Set objRS = objDB.Execute(strSQL)
If objRS(0)=0 Then
strBBS = "最近三天没有新公告"
Else
strBBS = "最近三天有<font color=#FF6600>" & objRS(0) & "</font>条公告<br><font color=999999>"
StrSQL=" Select Top 4 ID,Title,CreateTime from V_OA_Public_Notice_TrueName Where CreateTime Between '" & DateAdd("d",-3,Now()) & "' And '" & Now() & "'"
Set objRS = objDB.Execute(strSQL)
Do While Not objRS.EOF
strBBS = strBBS & "<tr><td width='11%'><img src='../../images/arrow.gif' width=12 height=12></td>"
strBBS = strBBS & "<td width='89%'><span class=style3><A class=Link2 href='../../OA/public/Notice/index.asp' target=IframeMain>" & FixStrLen(objRS.Fields("Title"),20)
strBBS = strBBS & " (" & FormatDateS(objRS.Fields("CreateTime")) & ")</a></span></td>"
objRS.MoveNext()
Loop
End If
objRS.Close()
'------------------------------------------------------------------------------------------------------------------------
strSQL = "SELECT Count(*) " & _
"FROM t_OA_Private_Log " & _
"WHERE IsForLeader=0 And AccountID= " & Session("AccountID") & " And StartDate Between '" & Now() & "' And '" & DateAdd("d",3,Now()) & "'"
Set objRS = objDB.Execute(strSQL)
If objRS(0)=0 Then
strPlan = "最近三天没有日程安排"
Else
strPlan = "最近三天有<font color=#FF6600>" & objRS(0) & "</font>条日程安排<br><font color=999999>"
strSQL = "SELECT Top 4 ID, Title, Place, StartDate, EndDate, Remark " & _
"FROM t_OA_Private_Log " & _
"WHERE IsForLeader=0 And AccountID= " & Session("AccountID") & " And StartDate Between '" & Now() & "' And '" & DateAdd("d",3,Now()) & "'"
Set ObjRS = objDB.Execute(StrSQL)
Do While Not objRS.EOF
strPlan = strPlan & "<tr><td width='11%'><img src='../../images/arrow.gif' width=12 height=12></td>"
strPlan = strPlan & "<td width='89%'><span class=style3><A class=Link2 href='../../OA/private/event/index.asp' target=IframeMain >" & FixStrLen(objRS.Fields("Title"),20)
strPlan = strPlan & " (" & FormatDateS(objRS.Fields("StartDate")) & ")</a></span></td>"
objRS.MoveNext()
Loop
End If
objRS.Close()
'---------------------------------------------------------------------------------------------------------------------------
StrSQL = "Select Count(*) From v_OA_Public_BBS_TrueName where ParentID = 0 And CreateTime Between '" & DateAdd("d",-3,Now()) & "' And '" & Now() & "'"
Set objRS = objDB.Execute(strSQL)
If objRS(0)=0 Then
strInfo = "最近三天没有新文章"
Else
strInfo = "最近三天有<font color=#FF6600>" & objRS(0) & "</font>篇新文章<br><font color=999999>"
StrSQL = "Select Top 3 ID,Title,CreateTime From v_OA_Public_BBS_TrueName where ParentID = 0 And CreateTime Between '" & DateAdd("d",-3,Now()) & "' And '" & Now() & "' Order By ID Desc"
Set objRS = objDB.Execute(strSQL)
Do While Not objRS.EOF
strInfo = strInfo & "<tr><td width='11%'><img src='../../images/arrow.gif' width=12 height=12></td>"
strInfo = strInfo & "<td width='89%'><span class=style3><A class=Link2 href='../../OA/public/BBS/Board/index.asp' target=IframeMain>" & FixStrLen(objRS.Fields("Title"),20)
strInfo = strInfo & " (" & FormatDateS(objRS.Fields("CreateTime")) & ")</a></span></td>"
objRS.MoveNext()
Loop
End If
objRS.Close()
'-------------------------------------------------------------------------------------------------------------------------------
Set objRS = Nothing
objDB.Close()
Set objDB = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.style3 {color: #3d619d; font-size: 12px; }
-->
.Link1 {
color: #3D619D;
font-size: 12px;
text-decoration: none;
}
.Link1:hover {
color: #CC0000;
font-size: 12px;
text-decoration: none;
}
.Link2 {
color: #3D619D;
font-size: 12px;
text-decoration: none;
}
.Link2:hover {
color: #E300D0;
font-size: 12px;
text-decoration: none;
}
</style>
<script language="JavaScript1.2">
defaultconf=''
function expandf()
{
if (document.all)
{
if (document.body.cols!="10,*")
document.body.cols="10,*"
else
document.body.cols=defaultconf
}
}
</script>
</head>
<body bgcolor="#F1F1F1">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" background="../../images/panel.gif">
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="113"> </td>
</tr>
<tr>
<td height="140"><table width="100%" height="140" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="19%"> </td>
<td width="24%" valign="top"><table width="189" border="0" cellspacing="2" cellpadding="2">
<tr>
<td width="9%"><img src="../../images/arrow.gif" width="12" height="12"></td>
<td width="91%"><span class="style3"><A class=Link1 href="../../OA/Work/commessage/index.asp" target=IframeMain><%=strComMsg%></a></span></td>
</tr>
</table></td>
<td width="13%"> </td>
<td width="24%" valign="top"><table width="189" border="0" cellspacing="2" cellpadding="2">
<tr>
<td width="9%"><img src="../../images/arrow.gif" width="12" height="12"></td>
<td width="91%"><span class="style3"><A class=Link1 href="../../OA/public/Notice/index.asp" target=IframeMain><%=strBBS%></a></span></td>
</tr>
</table></td>
<td width="20%"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="128"> </td>
</tr>
<tr>
<td height="140"><table width="100%" height="140" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="32%"> </td>
<td width="24%" valign="top"><table width="189" border="0" cellspacing="2" cellpadding="2">
<tr>
<td width="9%"><img src="../../images/arrow.gif" width="12" height="12"></td>
<td width="91%"><span class="style3"><A class=Link1 href="../../OA/private/event/index.asp" target=IframeMain ><%=strPlan%></a></span></td>
</tr>
</table></td>
<td width="12%"> </td>
<td width="24%" valign="top"><table width="189" border="0" cellspacing="2" cellpadding="2">
<tr>
<td width="9%"><img src="../../images/arrow.gif" width="12" height="12"></td>
<td width="91%"><span class="style3"><A class=Link1 href="../../OA/public/BBS/Board/index.asp" target=IframeMain><%=strInfo%></a></span></td>
</tr>
</table></td>
<td width="8%"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -