youdetauldfgsdf.asp
来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· ASP 代码 · 共 232 行
ASP
232 行
<%@LANGUAGE="VBSCRIPT"%>
<%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" -->
<!--#include file="../../Connections/ifr/ifrasp.asp" -->
<%
Dim r__varid
r__varid = "525"
If (request("id") <> "") Then
r__varid = request("id")
End If
%>
<%
Dim r__varu
r__varu = "1"
If (Session("userssdfgfhtrh") <> "") Then
r__varu = Session("userssdfgfhtrh")
End If
%>
<%
Dim r
Dim r_numRows
Set r = Server.CreateObject("ADODB.Recordset")
r.ActiveConnection = MM_oavbsconn_STRING
r.Source = "SELECT * FROM 工作日志4545zdfbdgg WHERE id=" + Replace(r__varid, "'", "''") + " and 帐号='" + Replace(r__varu, "'", "''") + "'"
r.CursorType = 0
r.CursorLocation = 2
r.LockType = 3
r.Open()
if not r.eof or not r.bof then
r("接收人是否阅读")="是"
r("点击数")=r("点击数")+1
r_numRows = 0
r.update
t=r("批阅更新时间")
c=r("批阅内容")
end if
%>
<%
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>
<%
function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(13), "")
fString = replace(fString,chr(32)," ")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode = fString
end function
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="/css/link.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style35 {
color: #FFFFFF;
font-weight: bold;
font-size: 13px;
}
.style36 {font-size: 12px}
.style7 {color: #FFFFFF}
.style37 {font-size: 12}
body {
margin-top: 0px;
}
.style40 {color: #000000}
.style41 {color: #FF0000}
-->
</style>
</head>
<body>
<div align="center">
<table width="200" height="15" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<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"><span class="style7"><span class="style35">日 志 内 容</span></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" 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="0" cellspacing="0">
<tr>
<td style="word-break:break-all;Width:fixed"><div align="center"><br>
<%=(r.Fields.Item("标题").Value)%><br>
<br>
<span class="style36"> <%if r("最后更新日期")="2006-10-1" then%>时间:<%=(r.Fields.Item("时间").Value)%><%else%>
<span class="style40">最后更新:<%=(r.Fields.Item("最后更新时间").Value)%></span>
<%end if%>
点击: <%=(r.Fields.Item("点击数").Value)%></span></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>
<br>
<span class="style37">日志：最后更新：<span class="style41"><%=(r.Fields.Item("最后更新时间").Value)%> </span> 时间：<%=(r.Fields.Item("时间").Value)%><br>
<%if c<>"" then%>批阅：
<%=c%> <br>
<br>
批阅人：
<%=(r.Fields.Item("批阅人姓名").Value)%>(<%=(r.Fields.Item("批阅人部门").Value)%>)
<%if t<>r("批阅时间") then%>
最后更新：<span class="style41"><%=t%></span></span></span>
<%end if%>
<span class="style37">批阅时间：<%=(r.Fields.Item("批阅时间").Value)%></span></p>
<%end if%>
<p align="left"><span class="style37"> <br>
</span></p></td>
</tr>
</table></td>
</tr>
</table>
</div>
<p align="center"><a href="javascript:history.go(-1)">返 回
</a></p>
<blockquote>
<blockquote>
<p align="center"> </p>
</blockquote>
</blockquote>
</body>
</html>
<%
r.Close()
Set r = Nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?