📄 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" -->
<!--#include file="../../fengge/config.asp" -->
<%
Dim webtiles
Dim webtiles_numRows
Set webtiles = Server.CreateObject("ADODB.Recordset")
webtiles.ActiveConnection = MM_oavbsconn_STRING
webtiles.Source = "SELECT 页面名称 FROM webtitles WHERE 模块名称 = '公文' and 描述='管理签阅意见'"
webtiles.CursorType = 0
webtiles.CursorLocation = 2
webtiles.LockType = 1
webtiles.Open()
if not webtiles.eof or not webtiles.bof then
dim webtilesname
webtilesname=webtiles("页面名称")
webtiles.Close()
Set webtiles = Nothing
else
webtiles.Close()
Set webtiles = Nothing
response.write "页面标题不完整，请管理员在后台补充。"
end if
webtiles_numRows = 0
%>
<%
Dim r__MMColParam
r__MMColParam = "1"
If (Session("userssdfgfhtrh") <> "") Then
r__MMColParam = Session("userssdfgfhtrh")
End If
%>
<%
Dim r__varid
r__varid = "1"
If (request("id") <> "") Then
r__varid = request("id")
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, "'", "''") + " order by id desc"
r.CursorType = 0
r.CursorLocation = 2
r.LockType = 1
r.Open()
r_numRows = 0
%>
<%
Dim Recordset1__varid
Recordset1__varid = "1"
If (request("id") <> "") Then
Recordset1__varid = request("id")
End If
%>
<%
Dim Recordset1__u
Recordset1__u = "1"
If (Session("userssdfgfhtrh") <> "") Then
Recordset1__u = Session("userssdfgfhtrh")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT * FROM 文件信息info WHERE 邮件编号=" + Replace(Recordset1__varid, "'", "''") + " AND 发送人='" + Replace(Recordset1__u, "'", "''") + "' 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 (request("id") <> "") Then
times__MMColParam = request("id")
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 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
r_numRows = r_numRows + Repeat2__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">
<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>
<style type="text/css">
<!--
a:link {
font-size: 12px;
color: #5C9948;
text-decoration: none;
}
a:visited {
font-size: 12px;
color: #5C9948;
text-decoration: none;
}
a:hover {
color: #6699FF;
}
BODY {
font-size: 12px;
margin-top: 4px;
}
td {
font-size: 12px;
line-height: 15px;
}
-->
</style>
</head>
<body>
<div align="center">
<% If Not r.EOF Or Not r.BOF Then %>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><div class="RoundedCorner">
<div align="center"><b class="rtop"><b class="r1"></b><b class="r2"></b><b class="r3"></b><b class="r4"></b></b> <span class="style1"><%=webtilesname%></span></div>
</div></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="<%=secaiid%>">
<tr>
<td bgcolor="#FFFFFF"><table width="99%" border="0" cellpadding="0" cellspacing="1">
<tr>
<td style="word-break:break-all;Width:fixed"><%
While ((Repeat2__numRows <> 0) AND (NOT r.EOF))
dim signid
signid1=r("id")
yijian=r.Fields.Item("签阅意见").Value
qn=r.Fields.Item("签阅人姓名").Value
qbumen=r.Fields.Item("签阅人部门").Value
qt=r.Fields.Item("签阅时间").Value
SignsCount=r("SignsCount")
%>
<p class="style11"><br>
<%=HTMLEncode(yijian)%><%if SignsCount>0then%>
<IFRAME id="myframe" name="left" frameBorder=0 scrolling=auto src="../signifr.asp?signid=<%=signid1%>" width="100%" height="270"></IFRAME>
<%end if%>
<br>
</p>
<table width="99%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><div align="right"><span class="style11"> 签阅时间: <%=(qt)%><br>
</span></div></td>
</tr>
<tr>
<td><div align="right"><span class="style11"> <a href="update.asp?id=<%=(signid1)%>&gwid=<%=(r.Fields.Item("公文ID").Value)%>">修改</a> <a href="del.asp?ids=<%=(r.Fields.Item("ID").Value)%>&id=<%=(r.Fields.Item("公文ID").Value)%>" onClick="return confirm('您确定要删除本记录吗？')">删除</a></span></div>
</td>
</tr>
</table>
<hr align="center" width="95%" size="1" color="#5AAE18">
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
r.MoveNext()
Wend
%>
<table width="99%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><span class="style11"> <strong>主题：<%=(times.Fields.Item("标题").Value)%></strong></span></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<%f=Recordset1("文件名")%>
<tr>
<td width="34%"><%
Select Case lcase(Right(f, 4))
Case ".txt"
look = "txt"
lookico = "<img src='../../../img/icon/txt.gif'>"
Case ".jpg"
look = "jpg"
lookico = "<img src='../../../img/icon/jpg.gif'>"
Case ".gif"
look = "gif"
lookico = "<img src='../../../img/icon/gif.gif'>"
Case ".png"
look = "png"
lookico = "<img src='../../../img/icon/png.gif'>"
Case ".wma"
look = "wma"
lookico = "<img src='../../../img/icon/wma.gif'>"
Case ".mp3"
look = "mp3"
lookico = "<img src='../../../img/icon/mp3.gif'>"
Case ".rar"
look = "rar"
lookico = "<img src='../../../img/icon/rar.gif'>"
Case ".zip"
look = "zip"
lookico = "<img src='../../../img/icon/zip.gif'>"
Case ".doc"
look = "doc"
lookico = "<img src='../../../img/icon/doc.gif'>"
Case ".xls"
look = "xls"
lookico = "<img src='../../../img/icon/xls.gif'>"
Case ".mdb"
look = "mdb"
lookico = "<img src='../../../img/icon/mdb.gif'>"
Case ".ppt"
look = "ppt"
lookico = "<img src='../../../img/icon/ppt.gif'>"
Case ".htm"
look = "htm"
lookico = "<img src='../../../img/icon/url.gif'>"
Case ".wma"
look = "wma"
lookico = "<img src='../../../img/icon/wma.gif'>"
Case ".wmp"
look = "wmp"
lookico = "<img src='../../../img/icon/wmp.gif'>"
Case ".xml"
look = "xml"
lookico = "<img src='../../../img/icon/xml.gif'>"
Case ".bat"
look = "bat"
lookico = "<img src='../../../img/icon/bat.gif'>"
Case ".bmp"
look = "bmp"
lookico = "<img src='../../../img/icon/bmp.gif'>"
Case ".chm"
look = "chm"
lookico = "<img src='../../../img/icon/chm.gif'>"
Case ".css"
look = "css"
lookico = "<img src='../../../img/icon/css.gif'>"
Case ".dll"
look = "dll"
lookico = "<img src='../../../img/icon/dll.gif'>"
Case ".hlp"
look = "hlp"
lookico = "<img src='../../../img/icon/hlp.gif'>"
Case ".lnk"
look = "lnk"
lookico = "<img src='../../../img/icon/lnk.gif'>"
Case ".mdf"
look = "mdf"
lookico = "<img src='../../../img/icon/mdf.gif'>"
Case ".pdf"
look = "pdf"
lookico = "<img src='../../../img/icon/pdf.gif'>"
Case ".reg"
look = "reg"
lookico = "<img src='../../../img/icon/reg.gif'>"
Case ".sql"
look = "sql"
lookico = "<img src='../../../img/icon/sql.gif'>"
Case ".swf"
look = "swf"
lookico = "<img src='../../../img/icon/swf.gif'>"
Case ".psd"
look = "psd"
lookico = "<img src='../../../img/icon/psd.gif'>"
Case else
lookico = "<img src='../../../img/common.gif'>"
End Select
Select Case lcase(Right(n, 5))
Case ".html"
look = "html"
lookico = "<img src='../../../img/icon/url.gif'>"
Case ".jpeg"
look = "jpeg"
lookico = "<img src='../../../img/icon/jpg.gif'>"
Case ".midi"
look = "midi"
lookico = "<img src='../../../img/icon/midi.gif'>"
Case ".real"
look = "real"
lookico = "<img src='../../../img/icon/real.gif'>"
End Select
If lcase(Right(n, 3))=".rm" then
look = ".rm"
lookico = "<img src='../../../img/icon/rm.gif'>"
End If
%>
<%=lookico%><a href="../redirecteread.asp?id=<%=(Recordset1.Fields.Item("id").Value)%>&gwid=<%=request("id")%>" target="_blank"><%=f%></a> <span class="style11"><span class="style2"> <a href="../downfile.asp?id=<%=(Recordset1.Fields.Item("id").Value)%>&gwid=<%=request("id")%>">下载</a></span></span></td>
<td width="66%"><table width="308" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><span class="style11"><span class="style2"> </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>
<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 %>
<p>
<input name="按钮" type=button style="FONT-SIZE: 12px; HEIGHT: 27px" onClick="javascript:history.go(-1)" value= " 返 回 " >
</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 + -