7.asp

本oa系统内部短信.手机短信.文件传输.公文收发.邮件服务.共享下载.内部论坛等功能

<%  
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 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 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: 10px;
}
<!--
.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 >
<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>
        </tr>
        <tr>
          <td height="167" valign="top" background="../../img/jpg/NEWS/enews.jpg"><div align="center">
              <table width="814" height="167"  border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="457" height="60" valign="top"><br>
                    <br>
                    <table width="130%"  border="0" cellpadding="0" cellspacing="0">
                      <% 
While ((Repeat2__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>
                      <tr>
                        <td width="4%" height="23"><div align="right"></div></td>
                        <td width="75%" colspan="2"><A HREF="../../toall/tz/tzcontentdrfgwdfgrt.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "id=" & Recordset1.Fields.Item("id").Value %>"> </A><A HREF="../../toall/tz/tzcontentdrfgwdfgrt.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "id=" & Recordset1.Fields.Item("id").Value %>">
                          <% if len(Recordset1("标题"))>18 then%>
                          <%=(left(Recordset1("标题"),18)&"..")%>
                          <%
	else%>
                          <%
	=(Recordset1("标题"))%>
                          <%end if%>
                          </A>
                            <%if Recordset1("最后更新日期")="2006-10-1" then  %>