📄 mesendcontentrfgbdfdgh.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<%
Response.ExpiresAbsolute=now()-1
Response.CacheControl="no-cache"
%>
<%'on error resume next
' *** 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 Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Session("userssdfgfhtrh") <> "") Then
Recordset1__MMColParam = Session("userssdfgfhtrh")
End If
%>
<%
Dim Recordset1__varid
Recordset1__varid = "1"
If (request("id") <> "") Then
Recordset1__varid = request("id")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT gongwenadmindfggrhb.id as gwid,*,gongwenadmindfggrhb.阅读次数,文件信息info.文件名,文件信息info.文件路径,文件信息info.文件大小,文件信息info.邮件编号,文件信息info.阅读人数,文件信息info.阅读人次,文件信息info.下载人数,文件信息info.下载次数,文件信息info.id as fid,gongwenadmindfggrhb.是否回执,gongwenadmindfggrhb.回执结果,gongwenadmindfggrhb.标题 FROM gongwenadmindfggrhb inner join 文件信息info on gongwenadmindfggrhb.id=文件信息info.邮件编号 WHERE 公文报送人帐号 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' and 文件信息info.邮件编号=" + Replace(Recordset1__varid, "'", "''") + " and 信息属性来源='公文' ORDER BY 入库时间 DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 3
Recordset1.LockType = 3
Recordset1.Open()
'Recordset1("已阅否")="接收人已经阅读"
'Recordset1=update
Recordset1_numRows = 0
%>
<%
Dim yuedunren__MMColParam
yuedunren__MMColParam = "1"
If (Request("id") <> "") Then
yuedunren__MMColParam = Request("id")
End If
%>
<%
Dim yuedunren
Dim yuedunren_numRows
Set yuedunren = Server.CreateObject("ADODB.Recordset")
yuedunren.ActiveConnection = MM_oavbsconn_STRING
yuedunren.Source = "SELECT * FROM 已读公文名单 WHERE 公文编号 = " + Replace(yuedunren__MMColParam, "'", "''") + " order by id desc"
yuedunren.CursorType = 0
yuedunren.CursorLocation = 2
yuedunren.LockType = 1
yuedunren.Open()
yuedunren_numRows = 0
%>
<%
Dim qiaanyue__MMColParam
qiaanyue__MMColParam = "1"
If (Request("ID") <> "") Then
qiaanyue__MMColParam = Request("ID")
End If
%>
<%
Dim qiaanyue
Dim qiaanyue_numRows
Set qiaanyue = Server.CreateObject("ADODB.Recordset")
qiaanyue.ActiveConnection = MM_oavbsconn_STRING
qiaanyue.Source = "SELECT * FROM 签阅意见 WHERE 公文ID = " + Replace(qiaanyue__MMColParam, "'", "''") + ""
qiaanyue.CursorType = 0
qiaanyue.CursorLocation = 2
qiaanyue.LockType = 1
qiaanyue.Open()
qiaanyue_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
yuedunren_numRows = yuedunren_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index
Repeat3__numRows = -1
Repeat3__index = 0
qiaanyue_numRows = qiaanyue_numRows + Repeat3__numRows
%>
<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>
<style type="text/css">
<!--
.style2 {font-size: 13px}
-->
</style>
<link href="/css/link.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style6 {color: #FFFFFF}
.style7 {color: #666666}
.style12 {font-size: 12px}
.style13 {color: #5AAE18}
.style14 {color: #FF0000}
.style15 {color: #999999}
.style17 {color: #5AAE18; font-weight: bold; }
.style18 {color: #000000}
.style20 {color: #666666; font-weight: bold; }
-->
</style>
</head>
<body>
<% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
<div align="center">
<table width="100%" height="21" 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="style6"><span class="style13 style5 style6"><span class="style6 style3 style2"><strong>已 发 公 文</strong></span></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 bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#AFDBFF">
<p></p>
<tr>
<td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
While ((Repeat3__numRows <> 0) AND (NOT qiaanyue.EOF))
%>
<tr>
<td><% If Not qiaanyue.EOF Or Not qiaanyue.BOF Then %>
<span class="style12"><a href="typegetgw.asp?c=<%=(Recordset1.Fields.Item("公文接收部门").Value)%>"><%=(qiaanyue.Fields.Item("签阅意见").Value)%></a></span><a href="ty?c=<%=(Recordset1.Fields.Item("公文接收部门").Value)%>"><span class="style12"></span></a><span class="style12"><br>
签阅人:<%=(qiaanyue.Fields.Item("签阅人部门").Value)%> <%=(qiaanyue.Fields.Item("签阅人姓名").Value)%></span> <br>
<hr align="left" width="95%" size="1" color="#5AAE18">
<% End If ' end Not qiaanyue.EOF Or NOT qiaanyue.BOF %>
<div align="right"></div></td>
<td> </td>
</tr>
<%
Repeat3__index=Repeat3__index+1
Repeat3__numRows=Repeat3__numRows-1
qiaanyue.MoveNext()
Wend
%>
</table></td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF"><p class="style2"> <span class="style12">
<%if(Recordset1.Fields.Item("是否回执").Value)="是" then %>
<%if Recordset1.Fields.Item("回执结果").Value="成功" then %>
<%else%>
<%end if%>
<%end if%>
<%if(Recordset1.Fields.Item("是否回执").Value)="否" then %>
<%end if%>
主题:<strong><%=(Recordset1.Fields.Item("标题").Value)%> </strong>接收部门:
<%if Recordset1("公文接收部门")<>"对所有人群发" then %>
<strong><%=(Recordset1.Fields.Item("公文接收部门").Value)%></strong> </span>
<%else%>
所有部门
<%end if%>
<span class="style12"><%=(Recordset1.Fields.Item("入库时间").Value)%><span class="style20"> 点击:<%=(Recordset1.Fields.Item("阅读次数").Value)%> </span></span>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr>
<%f=Recordset1.Fields.Item("文件名")%>
<td width="35%"><div align="left"><span class="style2"> <a href="redirecteread.asp?id=<%=(Recordset1.Fields.Item("fid").Value)%>&gwid=<%=(Recordset1.Fields.Item("gwid").Value)%>&fpath=<%=(Recordset1.Fields.Item("文件路径").Value)%>" target="_blank">
<%if len(f)>25 then
response.write(left(f,25)&"..")
else
response.Write(f)
end if%>
</a> </a> <br/>
</span></div></td>
<td width="69"><div align="left"><span class="style2"><a href="downfile.asp?id=<%=(Recordset1.Fields.Item("fid").Value)%>&gwid=<%=(Recordset1.Fields.Item("gwID").Value)%>&fpath=<%=(Recordset1.Fields.Item("文件路径").Value)%>">下载 </a> </span></div></td>
<td width="108"><div align="left"><span class="style2"><span class="style12">阅读:<span class="style17"><%=(Recordset1.Fields.Item("阅读人数").Value)%></span><span class="style15">人,</span><span class="style17"><%=(Recordset1.Fields.Item("阅读人次").Value)%></span><span class="style15">次</span></span></span></div></td>
<td width="103"><div align="left" class="style12"><span class="style14"><span class="style18">下载:</span> <%=(Recordset1.Fields.Item("下载人数").Value)%></span><span class="style15">人,</span><span class="style14"><%=(Recordset1.Fields.Item("下载次数").Value)%></span><span class="style15">次</span></div></td>
<td width="172"><div align="left"><span class="style2"><span class="style7"><%=(Recordset1.Fields.Item("文件大小").Value)%></span></span></div></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
<% If Not yuedunren.EOF Or Not yuedunren.BOF Then %>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#5AAE18">
<tr bgcolor="#FFFFFF">
<td width="10%"><div align="center"><span class="style12"><strong> 姓 名</strong></span></div></td>
<td width="13%"><div align="center"><span class="style12"><strong>部 门</strong></span></div></td>
<td width="16%"><div align="center" class="style12"><strong>文件名</strong></div></td>
<td width="17%"><div align="center"><span class="style12"><strong>阅 读 时 间</strong></span></div></td>
<td width="14%"><div align="center"><span class="style12"><strong>阅读 IP</strong></span></div></td>
<td width="16%"><div align="center"><span class="style12"><strong>下 载 时 间</strong></span></div></td>
<td width="14%"><div align="center"><span class="style12"><strong>下载 IP</strong></span></div></td>
</tr>
<%
While ((Repeat2__numRows <> 0) AND (NOT yuedunren.EOF))
%>
<tr bgcolor="#FFFFFF">
<%f=yuedunren("文件名")%>
<td><div align="center"><span class="style12"><%=(yuedunren.Fields.Item("阅读人姓名").Value)%></span></div></td>
<td><div align="center"><span class="style12"><%=(yuedunren.Fields.Item("阅读人部门").Value)%></span></div></td>
<td><div align="left"><a href="redirecteread.asp?fpath=<%=(yuedunren.Fields.Item("文件路径").Value)%>&id=<%=(yuedunren.Fields.Item("文件编号").Value)%>&gwid=<%=(yuedunren.Fields.Item("公文编号").Value)%>" target="_blank">
<% if len(f)>55 then
response.write(left(f,55)&"..")
else
response.Write(f)
end if%>
</a></div></td>
<td><div align="center"><span class="style12"><%=(yuedunren.Fields.Item("阅读时间").Value)%></span></div></td>
<td><div align="center"><span class="style12"><%=(yuedunren.Fields.Item("阅读ip").Value)%></span></div></td>
<td><div align="center"><span class="style12"><%=(yuedunren.Fields.Item("下载时间").Value)%></span></div></td>
<td><div align="center"><span class="style12"><%=(yuedunren.Fields.Item("下载ip").Value)%></span></div></td>
</tr>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
yuedunren.MoveNext()
Wend
%>
</table>
<% End If ' end Not yuedunren.EOF Or NOT yuedunren.BOF %>
<p> </p></td>
</tr>
</table></td>
</tr>
</table>
</div>
<div align="center"><br>
<table width="108" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="67"><a href="javascript:window.print()"><img src="../../img/print.gif" width="54" height="24" border="0"></a></td>
<td width="41"><a href="javascript:history.go(-1)">返回</a></td>
</tr>
</table>
</div>
<% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>
<% if Recordset1.EOF and Recordset1.BOF then%>
<script>
{
alert("数据不存在或已删除..");history.go(-1)
}
</script>
<%response.end
end if%>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
yuedunren.Close()
Set yuedunren = Nothing
%>
<%
qiaanyue.Close()
Set qiaanyue = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -