ricehgdetail.asp
来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· ASP 代码 · 共 134 行
ASP
134 行
<%Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="../../index.asp"
MM_grantAccess=false
If Session("userssdfgfhtrh") <> "" Then
If (true 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
%>
<!--#include file="../../Connections/oavbsconn.asp" -->
<%
Dim r__varuser
r__varuser = "1"
If (Session("userssdfgfhtrh") <> "") Then
r__varuser = Session("userssdfgfhtrh")
End If
%>
<%
Dim r__d
r__d = "1"
If (request("id") <> "") Then
r__d = request("id")
End If
%>
<%
Dim r
Dim r_numRows
Set r = Server.CreateObject("ADODB.Recordset")
r.ActiveConnection = MM_oavbsconn_STRING
r.Source = "SELECT * FROM beiwangluaery35t WHERE 帐号='" + Replace(r__varuser, "'", "''") + "' and id=" + Replace(r__d, "'", "''") + " ORDER BY 日程日期 DESC"
r.CursorType = 0
r.CursorLocation = 2
r.LockType = 3
r.Open()
if not r.eof or not r.bof then
if r("日程日期")=date() then
r("阅否")="是"
r.update
t=r("批阅更新时间")
c=r("批阅内容")
end if
end if
r_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
.style37 {font-size: 12}
.style41 {font-size: 13px}
-->
</style>
<link href="../../css/link1.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style42 {color: #FFFFFF; font-size: 13px; }
.style43 {color: #FF0000}
-->
</style>
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="6" height="21"><img src="../../img/bbs/leftlin1.gif" width="6" height="21"></td>
<td width="936" bgcolor="#5AAE18"><div align="center">
<div align="center" class="style42"><span class="style3 style2 style1 style16 style41"><span class="style3 style1 style16 style41"><strong>日 程 </strong></span></span><span class="style41"><strong>内 容</strong></span></div>
<span class="style1"></span></div></td>
<td width="6" height="21"><img src="../../img/bbs/rightlin1.gif" width="6" height="21"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#5AAE18">
<tr>
<td height="185" bgcolor="#FFFFFF"><table width="99%" border="0" cellpadding="0" cellspacing="1" style="word-break:break-all;Width:fixed">
<tr bgcolor="#FFFFFF">
<td valign="top"><table width="100%" border="0" cellpadding="2" cellspacing="0">
<tr>
<td style="word-break:break-all;Width:fixed"><div align="center"> <%=(r.Fields.Item("标题").Value)%><br>
安排日期：<%=(r.Fields.Item("日程日期").Value)%> <br>
</div></td>
</tr>
<tr>
<td><hr width="96%" size="1" color="#5AAE18"></td>
</tr>
</table>
<p align="left"><%= (r.Fields.Item("内容").Value)%></p>
<p align="right"> </p>
<p align="left"> <br>
<span class="style37"> </span> <%if r("最后更新时间")<>r.Fields.Item("入库时间").Value then%> 最后更新：<span class="style43"><%=(r.Fields.Item("最后更新时间").Value)%></span>
<%end if%>
<span class="style37">写入时间：<%=(r.Fields.Item("入库时间").Value)%></span><br>
<%if r("批阅开关")<>"" then%>
<br>
批阅：<%=(r.Fields.Item("批阅内容").Value)%> </p>
<p align="left"> 批阅人：<%=(r.Fields.Item("批阅人姓名").Value)%>(<%=(r.Fields.Item("批阅人部门").Value)%>) <%if t<>"2006-10-1" then%>
最后更新：<span class="style43"><%=r("批阅更新时间")%></span></span></span>
<%end if%>
<span class="style37">批阅时间：<%=(r.Fields.Item("批阅时间").Value)%></span></p>
</p>
<%end if%></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<p align="center"><a href="javascript:history.go(-1)">返回</a></p>
</body>
</html>
<%
r.Close()
Set r = Nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?