8.asp

来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· ASP 代码 · 共 396 行

<%@LANGUAGE="VBSCRIPT"%>
<%  
Response.ExpiresAbsolute=now()-1
Response.CacheControl="no-cache"
%><!--#include file="../../Connections/oavbsconn.asp" -->
<!--#include file="../../Connections/oavbsconncopy.asp" -->
<!--#include file="../../Connections/gongyobngwenjianxitongvbs.asp" -->
<!--#include file="../../Connections/ifr/ifrasp.asp" -->
<%session.Timeout=240%>

<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="10"
MM_authFailedURL="../../index.asp"
MM_grantAccess=false
If Session("userssdfgfhtrh") <> "" Then
  If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim Recordset1__varsessionuser
Recordset1__varsessionuser = "1"
If (Session("names")  <> "") Then 
  Recordset1__varsessionuser = Session("names") 
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT count(ID) as t  FROM infoall  WHERE (信息属性 = '短消息' or 信息属性 = '短消息回复') and (接收人姓名='" + Replace(Recordset1__varsessionuser, "'", "''") + "') and 是否标记为接收人删除='否'and 是否阅读='否'  "
Recordset1.CursorType = 0
Recordset1.CursorLocation = 3
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0

%>
<%
Dim Recordset3__MMColParam
Recordset3__MMColParam = "1"
If (Session("names")  <> "") Then 
  Recordset3__MMColParam = Session("names") 
End If
%>
<%
Dim Recordset3
Dim Recordset3_numRows

Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_gongyobngwenjianxitongvbs_STRING
Recordset3.Source = "SELECT count(id) as t  FROM 文件信息  WHERE 接收人姓名 = '" + Replace(Recordset3__MMColParam, "'", "''") + "'  and 是否阅读='否' and 接收人是否删除='否'"
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()

Recordset3_numRows = 0
%>


<%
Dim Recordset5__MMColParam
Recordset5__MMColParam = "1"
If (Session("userssdfgfhtrh") <> "") Then 
  Recordset5__MMColParam = Session("userssdfgfhtrh")
End If
%>
<%
Dim Recordset5
Dim Recordset5_numRows

Set Recordset5 = Server.CreateObject("ADODB.Recordset")
Recordset5.ActiveConnection = MM_oavbsconn_STRING
Recordset5.Source = "SELECT count(id) as d  FROM beiwangluaery35t  WHERE 帐号 = '" + Replace(Recordset5__MMColParam, "'", "''") + "' and 日程日期=date() and 阅否='否'"
Recordset5.CursorType = 0
Recordset5.CursorLocation = 2
Recordset5.LockType = 1
Recordset5.Open()

Recordset5_numRows = 0
%>
<%
Dim Recordset6__c1
Recordset6__c1 = "1"
If (session("zibumen")&","  <> "") Then 
  Recordset6__c1 = session("zibumen")&"," 
End If
%>
<%
Dim Recordset6__c
Recordset6__c = "1"
If (session("bumen") <> "") Then 
  Recordset6__c = session("bumen")
End If
%>
<%
Dim Recordset6
Dim Recordset6_numRows

Set Recordset6 = Server.CreateObject("ADODB.Recordset")
Recordset6.ActiveConnection = MM_oavbsconn_STRING
Recordset6.Source = "SELECT count(id) as d  FROM gongwenadmindfggrhb  WHERE 公文接收部门 like'%" + Replace(Recordset6__c1, "'", "''") + "%' or 公文接收部门='对所有人群发'or 公文接收部门='" + Replace(Recordset6__c, "'", "''") + "'"
Recordset6.CursorType = 0
Recordset6.CursorLocation = 2
Recordset6.LockType = 1
Recordset6.Open()

Recordset6_numRows = 0
%>
<%
Dim Recordset7__MMColParam
Recordset7__MMColParam = "1"
If (Session("userssdfgfhtrh")  <> "") Then 
  Recordset7__MMColParam = Session("userssdfgfhtrh") 
End If
%>
<%
Dim Recordset7
Dim Recordset7_numRows

Set Recordset7 = Server.CreateObject("ADODB.Recordset")
Recordset7.ActiveConnection = MM_oavbsconn_STRING
Recordset7.Source = "SELECT count(id) as theyueedid  FROM 已读公文名单  WHERE 阅读人帐号 = '" + Replace(Recordset7__MMColParam, "'", "''") + "'"
Recordset7.CursorType = 0
Recordset7.CursorLocation = 2
Recordset7.LockType = 1
Recordset7.Open()

Recordset7_numRows = 0
%>
<%
Dim loginsss
Dim loginsss_numRows

Set loginsss = Server.CreateObject("ADODB.Recordset")
loginsss.ActiveConnection = MM_oavbsconncopy_STRING
loginsss.Source = "SELECT sum(登陆次数) as logins  FROM usertertggbng"
loginsss.CursorType = 0
loginsss.CursorLocation = 2
loginsss.LockType = 1
loginsss.Open()
loginsss_numRows = 0
%>
<%
Dim tixingmusic__MMColParam
tixingmusic__MMColParam = "1"
If (Session("userssdfgfhtrh") <> "") Then 
  tixingmusic__MMColParam = Session("userssdfgfhtrh")
End If
%>
<%
Dim tixingmusic
Dim tixingmusic_numRows

Set tixingmusic = Server.CreateObject("ADODB.Recordset")
tixingmusic.ActiveConnection = MM_oavbsconn_STRING
tixingmusic.Source = "SELECT 是否开通提示音乐,oneselffolder356u47646u4ty  FROM usertertggbng  WHERE usersdsfg56= '" + Replace(tixingmusic__MMColParam, "'", "''") + "'"
tixingmusic.CursorType = 0
tixingmusic.CursorLocation = 2
tixingmusic.LockType = 1
tixingmusic.Open()
p=tixingmusic("oneselffolder356u47646u4ty")
p="/dataandfiles/files/u/"&p&"/temp"
tixingmusic_numRows = 0
%>
 <%on error resume next
  Dim objFSO
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(Server.MapPath(p)) Then
objFSO.DeleteFolder Server.MapPath(p),True
end if
%>
<html>
<head>
<title></title>
<style type=text/css>
body  { background:#39867B; margin:0px; font:9pt 宋体; FONT-SIZE: 9pt;text-decoration: none;
SCROLLBAR-FACE-COLOR: #C6EBDE;
SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #39867B; SCROLLBAR-3DLIGHT-COLOR: #39867B; SCROLLBAR-ARROW-COLOR: #330000; SCROLLBAR-TRACK-COLOR: #E2F3F1; SCROLLBAR-DARKSHADOW-COLOR: #ffffff;}
table  { border:0px; }
td  { font:normal 12px 宋体; }
img  { vertical-align:bottom; border:0px; }
a  { font:normal 12px 宋体; color:#000000; text-decoration:none; }
a:hover  { color:#cc0000;text-decoration:underline; }
.sec_menu  { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#C6EBDE; }
.menu_title  { }
.menu_title span  { position:relative; top:2px; left:8px; color:#39867B; font-weight:bold; }
.menu_title2  { }
.menu_title2 span  { position:relative; top:2px; left:8px; color:#cc0000; font-weight:bold; }
.style1 {
	color: #FF0000;
	font-weight: bold;
}
.style2 {color: #000000}
.style3 {color: #FF0000}
.style6 {
	color: #009933;
	font-weight: bold;
}
.style4 {color: #FF6633; font-weight: bold; }
.style7 {color: #CC33CC}
.style8 {color: #3399CC;
	font-weight: bold;
}
.style9 {color: #000000; font-weight: bold; }
</style>
<SCRIPT language=javascript1.2>
function showsubmenu(sid)
{
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
}
}
</SCRIPT>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<table width=100% cellpadding=0 cellspacing=0 border=0 align=left>
    <tr><td valign=top>
      <table width=158 border="0" align=center cellpadding=0 cellspacing=0>
        <tr>
          <td valign=bottom><img src="../../images/title111.gif" width=158 height=38> </td>
        </tr>
      </table>
      <table cellpadding=0 cellspacing=0 width=58 align=center>
  <tr>
        <td width="164" background=../../images/title_bg_quit.gif id=menuTitle0 onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title';> 
          <a href="7.asp" target="mainFrame"><strong>　系统首页|</strong></a><a href="../../loginout.asp" target="_top" class="style9">安全退出</a><strong></strong><strong> 　 </strong></td>
  </tr>
  <tr>
    <td style="display:" id='submenu0'>
<div class=sec_menu style="width:158">
<table width=130 align=center cellpadding=0 cellspacing=0 bgcolor="#C6EBDE">
<tr>
  <td height=20>尊敬的<%= Session("names") %>您好！</td>
</tr>
<tr>
  <td height=20>
    <a href="../../toall/sms/readsmsfgnjeytjwestrh.asp" target="mainFrame">您有<span class="style1"><%=Recordset1("t")%></span>条新消息 </a> </td>
</tr>
<tr>
  <td height=20><span class="style3"><span class="style2"><a href="../../f/asp/filesupadmin/jieshouselffilessdfghfg.asp" target="mainFrame">您有<span class="style1"><%=Recordset3("t")%></span>个新文件</a></span></span></td>
</tr>
<tr>
  <td height=20><span class="style3"><span class="style2">
    <div align="left"><a href="../../toall/gw/getgongwengadfvgdfg.asp" target="mainFrame">您有<span class="style1"><%if Recordset6("d")-Recordset7("theyueedid")<=0 then %>0<%else%><%=Recordset6("d")-Recordset7("theyueedid")%><%end if%></span>个新公文 </a></div></td>
</tr>
<tr>
  <td height=20><span class="style3"><span class="style2">
    <div align="left"><a href="../../toall/bwdfhdghndgh/listbwww.asp" target="mainFrame">您有<span class="style1"><%=Recordset5("d")%></span>个今日日程 </a></div></td>
</tr>
<tr>
  <td height=20>登陆人次:<span class="style1"><%=(loginsss.Fields.Item("logins").Value)%></span>|<a href="../../myw/loginpaixudfhdfghdfgh.asp" target="mainFrame">排名</a></td>
</tr>
<tr>
  <td height=20><%if tixingmusic("是否开通提示音乐")="否" then %><a href="../../ifrmae/openmusic.asp">开通音乐提醒</a>&nbsp;未开通
        <%else%><a href="../../ifrmae/closetixingmusic.asp">关闭音乐提醒</a>&nbsp;已开通
        <%end if%></td>
</tr>
</table>
</div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20></td></tr>
</table>
</div>
	</td>
  </tr>
</table>
      <table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="../../images/Admin_left_1.gif" id=menuTitle1 onclick="showsubmenu(1)" style="cursor:hand;"> 
          <span>公共信息</span> </td>
  </tr>
  <tr>
    <td style="display:" id='submenu1'>
<div class=sec_menu style="width:158">
  <div align="center">
    <table cellpadding=0 cellspacing=0 align=center width=140>

<tr>
      <td width="156" height=20><a href="../../toall/tz/writetz.asp" target="mainFrame">撰写通知</a>|<a href="../../toall/tz/admintzlistdfghwerth.asp" target="mainFrame">通知管理</a></td>
    </tr>
<tr>
  <td height=20><a href="../../toall/sms/writesms.asp" target="mainFrame">发送消息</a>|<a href="../../toall/sms/mysmstoother.asp" target="mainFrame">已发消息</a></td>
</tr>
<tr>
  <td height=20><a href="../../toall/news/writejiaoxue.asp" target="mainFrame">发布新闻|</a><a href="../../toall/news/listbwanglu.asp" target="mainFrame">管理新闻</a></td>
</tr>
    </table>
  </div>
</div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20></td></tr>
</table>
</div>
	</td>
  </tr>
</table>

<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="../../images/Admin_left_1.gif" id=menuTitle1 onclick="showsubmenu(11)" style="cursor:hand;"> 
          <span>工作管理</span> </td>
  </tr>
  <tr>
    <td style="display:" id='submenu11'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=140>
<tr>
  <td height=20><a href="../../toall/bwdfhdghndgh/writebwsdfdgfdbnbg.asp" target="mainFrame">工作日程</a>|<a href="../../toall/bwdfhdghndgh/listbwanglu.asp" target="mainFrame">管理日程</a></td>
</tr>
<tr>
  <td height=20><a href="../../toall/jihuahghyhgergfbhu546j7tghc/writeonejihua.asp" target="mainFrame">工作计划</a>|<a href="../../toall/jihuahghyhgergfbhu546j7tghc/listgerenjihua.asp" target="mainFrame">计划管理</a></td>
</tr>
<tr>
  <td height=20><a href="../../toall/workreport/writemonhthorjidudfb.asp" target="mainFrame">月份总结</a>|<a href="../../toall/workreport/adminzongjie/listyuejiefgh.asp" target="mainFrame">月份总结管理</a></td>
</tr>
<tr>
  <td height=13><a href="../../toall/workreport/writjiduthorjidudfb.asp" target="mainFrame">季度总结</a>|<a href="../../toall/workreport/adminzongjie/listjidujiefgh.asp" target="mainFrame">季度总结管理</a></td>
</tr>
<tr>
  <td height=20><a href="../../toall/workreport/nianzaongjiegfgdfb.asp" target="mainFrame">年度总结</a>|<a href="../../toall/workreport/adminzongjie/listnianjiefgh.asp" target="mainFrame">年度总结管理</a></td>
</tr>


</table>

</table>
</body>
</html>
<%Session("countsms")=Recordset1("t")%>
<%Session("countfiles")=Recordset3("t")%>
<%Session("beiwang")=Recordset5("d")%>
<%if Recordset6("d")-Recordset7("theyueedid")>0 then 
session("xingw")=Recordset6("d")-Recordset7("theyueedid")
end if
%>

<%if Session("countsms")<>0 or Session("countfiles")<>0 or session("xingw") or Session("beiwang")<>0  then 
session("toshowjs")="ok"
end if
%>


<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset3.Close()
Set Recordset3 = Nothing
%>


<%
Recordset5.Close()
Set Recordset5 = Nothing
%>
<%
Recordset6.Close()
Set Recordset6 = Nothing
%>
<%
Recordset7.Close()
Set Recordset7 = Nothing
%>
<%
loginsss.Close()
Set loginsss = Nothing
%>
<%
tixingmusic.Close()
Set tixingmusic = Nothing
%>