📄 admin.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<%
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__MMColParam
r__MMColParam = "1"
If (Session("userssdfgfhtrh") <> "") Then
r__MMColParam = Session("userssdfgfhtrh")
End If
%>
<%
Dim r__varid
r__varid = "1"
If (session("qianyueid") <> "") Then
r__varid = session("qianyueid")
End If
%>
<%
Dim r
Dim r_numRows
Set r = Server.CreateObject("ADODB.Recordset")
r.ActiveConnection = MM_oavbsconn_STRING
r.Source = "SELECT * FROM 签阅意见 WHERE 签阅人帐号 = '" + Replace(r__MMColParam, "'", "''") + "' and 公文ID=" + Replace(r__varid, "'", "''") + ""
r.CursorType = 0
r.CursorLocation = 2
r.LockType = 1
r.Open()
r_numRows = 0
%>
<%
Dim Recordset1__varid
Recordset1__varid = "1"
If (session("qianyueid") <> "") Then
Recordset1__varid = session("qianyueid")
End If
%>
<%
Dim Recordset1__c1
Recordset1__c1 = "1"
If (session("zibumen")&"," <> "") Then
Recordset1__c1 = session("zibumen")&","
End If
%>
<%
Dim Recordset1__a
Recordset1__a = "1"
If (session("bumen") <> "") Then
Recordset1__a = session("bumen")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT 文件信息info.文件名,文件信息info.文件路径, 文件信息info.id,文件信息info.阅读人数,文件信息info.阅读人次,文件信息info.下载人数,文件信息info.下载次数,gongwenadmindfggrhb.id as gwid,文件信息info.文件大小,gongwenadmindfggrhb.标题 FROM 文件信息info inner join gongwenadmindfggrhb on 文件信息info.邮件编号=gongwenadmindfggrhb.id WHERE 邮件编号=" + Replace(Recordset1__varid, "'", "''") + " and (公文接收部门 like'%" + Replace(Recordset1__c1, "'", "''") + "%' or 公文接收部门='对所有人群发' or 公文接收部门='" + Replace(Recordset1__a, "'", "''") + "') and gongwenadmindfggrhb.id=" + Replace(Recordset1__varid, "'", "''") + " and 文件信息info.信息属性来源='公文' ORDER BY 文件信息info.id desc"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim times__MMColParam
times__MMColParam = "1"
If (session("qianyueid") <> "") Then
times__MMColParam = session("qianyueid")
End If
%>
<%
Dim times
Dim times_numRows
Set times = Server.CreateObject("ADODB.Recordset")
times.ActiveConnection = MM_oavbsconn_STRING
times.Source = "SELECT 入库时间,公文报送人姓名,公文报送人部门 FROM gongwenadmindfggrhb WHERE ID = " + Replace(times__MMColParam, "'", "''") + ""
times.CursorType = 0
times.CursorLocation = 2
times.LockType = 1
times.Open()
times_numRows = 0
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
r_numRows = r_numRows + Repeat2__numRows
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_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
%>
<%
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
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style11 {font-size: 12px}
-->
</style>
<link href="../../../css/link1.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style13 {color: #FFFFFF}
.style2 {font-size: 13px}
.style16 {
color: #FF0000;
font-size: 12px;
}
.style17 {
color: #999999;
font-size: 12px;
}
.style7 {
color: #666666;
font-size: 12px;
}
.style18 {
color: #5AAE18;
font-weight: bold;
}
.style21 {color: #FF0000}
.style23 {color: #999999}
-->
</style>
</head>
<body>
<div align="center">
<% If Not r.EOF Or Not r.BOF Then %>
<table width="90%" 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="style13"><span class="style13 style5 style6 style2"><strong>公 文 签 阅</strong></span></span></div></td>
<td width="6" height="21"><img src="../../../img/bbs/rightlin1.gif" width="6" height="21"></td>
</tr>
</table>
<table width="90%" border="0" cellpadding="0" cellspacing="1" bgcolor="#5AAE18">
<tr>
<td bgcolor="#FFFFFF"><table width="99%" border="0" cellpadding="0" cellspacing="1">
<tr>
<td><%
While ((Repeat2__numRows <> 0) AND (NOT r.EOF))
%>
<p class="style11"><br>
<%=HTMLEncode(r.Fields.Item("签阅意见").Value)%><br>
<br>
</p>
<table width="99%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><div align="right"><span class="style11"> 签阅时间 <%=(r.Fields.Item("签阅时间").Value)%><br>
</span></div></td>
</tr>
<tr>
<td><div align="right"><span class="style11"> <A HREF="update.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "ID=" & r.Fields.Item("ID").Value %>">修改</A> <A HREF="del.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "ID=" & r.Fields.Item("ID").Value %>" onClick="return confirm('您确定进行删除操作吗？')">删除</A></span></div></td>
</tr>
</table>
<table width="99%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><span class="style11"> <strong>主题：<%=(Recordset1.Fields.Item("标题").Value)%></strong></span></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr>
<td width="34%"> <span class="style11"><span class="style2"><a href="../redirecteread.asp?id=<%=(Recordset1.Fields.Item("id").Value)%>&gwid=<%=session("qianyueid") %>&fpath=<%=(Recordset1.Fields.Item("文件路径").Value)%>" target="_blank"><%=(Recordset1.Fields.Item("文件名").Value)%></a></span></span>
</td>
<td width="66%"><table width="308" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><span class="style11"><span class="style2"><a href="../downfile.asp?id=<%=(Recordset1.Fields.Item("id").Value)%>&gwid=<%=(Recordset1.Fields.Item("gwid").Value)%>">下载</a> </span></span></td>
<td><span class="style11"><span class="style2">阅读:<span class="style18"><%=(Recordset1.Fields.Item("阅读人数").Value)%></span><span class="style17 style11">人</span><span class="style23">,</span><span class="style18"><%=(Recordset1.Fields.Item("阅读人次").Value)%></span> <span class="style23">次</span></span></span></td>
<td><span class="style11"><span class="style2"> 下载: <span class="style21"><%=(Recordset1.Fields.Item("下载人数").Value)%></span><span class="style17 style11">人,</span><span class="style16 style11"><%=(Recordset1.Fields.Item("下载次数").Value)%></span><span class="style17 style11">次 </span><span class="style7 style11"><%=(Recordset1.Fields.Item("文件大小").Value)%></span></span></span></td>
</tr>
</table></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
<tr>
<td colspan="2"><div align="right"><span class="style11">发送人;<%=(times.Fields.Item("公文报送人部门").Value)%> <%=(times.Fields.Item("公文报送人姓名").Value)%> 时间:<%=(times.Fields.Item("入库时间").Value)%></span></div></td>
</tr>
</table>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
r.MoveNext()
Wend
%>
<p class="style11"><span class="style2"> </span><br>
</p></td>
</tr>
</table></td>
</tr>
</table>
<% End If ' end Not r.EOF Or NOT r.BOF %>
<p> <% If r.EOF And r.BOF Then %>
<span class="style12">很抱歉，您暂未签阅公文或已经删除..
<% End If ' end r.EOF And r.BOF %>
<span class="style11"> </span></p>
<p><span class="style2"><span class="style11"><span class="bg"><span class="bg style2"><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff>
<input name="按钮" type=button style="FONT-SIZE: 12px; HEIGHT: 27px" onClick="javascript:history.go(-1)" value= " 返 回 " >
</font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG></font></strong></FONT></STRONG></span></span></span></span> </p>
</div>
</body>
</html>
<%
r.Close()
Set r = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
times.Close()
Set times = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -