7.asp

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

<%@LANGUAGE="VBSCRIPT"%>
<%  
Response.ExpiresAbsolute=now()-1
Response.CacheControl="no-cache"
%>
<!--#include file="../../Connections/oavbsconn.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__MMColParam
Recordset1__MMColParam = "通知"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT infoall.id,infoall.标题,infoall.内容,infoall.发送人姓名,infoall.入库日期,infoall.最后更新日期,最后更新时间  FROM infoall  WHERE infoall.信息属性 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' and 开关='是'  ORDER BY infoall.最后更新时间 desc"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_oavbsconn_STRING
Recordset2.Source = "SELECT 主题,日期,id,最后更新日期,最后更新时间  FROM 新闻动态  WHERE 开关='是'  ORDER BY 最后更新时间 desc"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_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 是否开通提示音乐  FROM usertertggbng  WHERE usersdsfg56= '" + Replace(tixingmusic__MMColParam, "'", "''") + "'"
tixingmusic.CursorType = 0
tixingmusic.CursorLocation = 2
tixingmusic.LockType = 1
tixingmusic.Open()

tixingmusic_numRows = 0
%>

<%
Dim Recordset5__MMColParam
Recordset5__MMColParam = "短消息"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset5__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset5__varsessionuser
Recordset5__varsessionuser = "1"
If (Session("names")      <> "") Then 
  Recordset5__varsessionuser = Session("names")     
End If
%>
<%
Dim Recordset5
Dim Recordset5_numRows
Set Recordset5 = Server.CreateObject("ADODB.Recordset")
Recordset5.ActiveConnection = MM_oavbsconn_STRING
Recordset5.Source = "SELECT *  FROM infoall  WHERE (信息属性 = '" + Replace(Recordset5__MMColParam, "'", "''") + "' or 信息属性 = '短消息回复') and (接收人姓名='" + Replace(Recordset5__varsessionuser, "'", "''") + "')and 是否标记为接收人删除='否' and 是否阅读='否'"
Recordset5.CursorType = 0
Recordset5.CursorLocation = 2
Recordset5.LockType = 1
Recordset5.Open()
Recordset5_numRows = 0
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = 5
Repeat2__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat2__numRows
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 5
Repeat1__index = 0
Recordset2_numRows = Recordset2_numRows + Repeat1__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = 6
Repeat3__index = 0
Recordset5_numRows = Recordset5_numRows + Repeat3__numRows
%>
<%
Dim MM_paramName 
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<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;
}
-->
</style>
<link href="../../css/link.css" rel="stylesheet" type="text/css">
<style type="text/css">
body  {
	margin:0px;
	font:9pt 宋体;
	FONT-SIZE: 9pt;
	text-decoration: none;
	margin-top: 1px;
	margin-left: -6px;
}
<!--
.style7 {font-size: 20%}
.style10 {font-size: 12px}
.style15 {color: #CC6633; font-size: 6px; }
.style16 {	color: #666666;
	font-size: 12px;
}
.style33 {font-size: 12px; color: #FFFFFF; }
.style37 {color: #999999}
.style9 {color: #26A4E6}
.style40 {color: #FF0000}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

function MM_controlSound(x, _sndObj, sndFile) { //v3.0
  var i, method = "", sndObj = eval(_sndObj);
  if (sndObj != null) {
    if (navigator.appName == 'Netscape') method = "play";
    else {
      if (window.MM_WMP == null) {
        window.MM_WMP = false;
        for(i in sndObj) if (i == "ActiveMovie") {
          window.MM_WMP = true; break;
      } }
      if (window.MM_WMP) method = "play";
      else if (sndObj.FileName) method = "run";
  } }
  if (method) eval(_sndObj+"."+method+"()");
  else window.location = sndFile;
}
//-->
</script>
</head>
<body >
<div id="Layer2" style="position:absolute; left:741px; top:14px; width:90px; height:19px; z-index:2"><a href="../../toall/news/lialljiaoxue.asp">更多..</a><img src="../../img/jpg/NEWS/20031225844.gif" width="15" height="15"></div>

<div align="left">
  <table width="820" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td><table width="814"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="870" valign="top"></td>