⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 readmingxiforjieshou.asp

📁 绿叶oa系统v6.04试用版(2007-4-29) 带视频演示
💻 ASP
字号:
🔍 
<%@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" -->

<%
Dim rs__MMColParam
rs__MMColParam = "1"
If (request("id")  <> "") Then 
  rs__MMColParam = request("id") 
End If
%>
<%
Dim rs__u
rs__u = "1"
If (Session("userssdfgfhtrh") <> "") Then 
  rs__u = Session("userssdfgfhtrh")
End If
%>
<%'on error resume next
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_oavbsconn_STRING
rs.Source = "SELECT *,文件信息.阅读次数,文件信息.下载次数,文件信息.是否回执,文件信息.回执结果,文件信息.附言,文件信息.文件大小,文件阅读明细wtrhy6wtrgvr467htyhgt.id as delid  FROM 文件阅读明细wtrhy6wtrgvr467htyhgt inner join 文件信息  on 文件阅读明细wtrhy6wtrgvr467htyhgt.文件ID=文件信息.id  WHERE 文件ID = " + Replace(rs__MMColParam, "'", "''") + " and 阅读人帐号='" + Replace(rs__u, "'", "''") + "'and 文件信息.上传人是否删除='否' and 文件阅读明细wtrhy6wtrgvr467htyhgt.接收人是否删除='否'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0
%>
<%if not rs.eof or not rs.bof then
n=rs("文件名")
end if
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rs_numRows = rs_numRows + Repeat1__numRows
%>
<html>
<head><%on error resume next
function HTMLEncode(fString)

	fString = replace(fString, ">", "&gt;")
	fString = replace(fString, "<", "&lt;")
	fString = Replace(fString, CHR(13), "")
	fString = replace(fString,chr(32),"&nbsp;")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	HTMLEncode = fString

end function
%>
<script>
function CheckAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.name != 'chkAll')
e.checked = form.chkAll.checked;
}
}
</script>
<SCRIPT language=JavaScript>
  function check()//表单判断
  {
   var str="";
   var j=0;
   var el=document.form1.getElementsByTagName("input")
   for(i=0;i<el.length;i++){
    if(el[i].type=="checkbox"){
     if((el[i].checked)&&(el[i].name.indexOf("id")!='-1')){
      j++;
     }
    }
   }
   if(j > 100 || j<1)
   {
    alert("最少必须选择一项，最多不能超过100项!\r\t你现在选择了"+j+"项");
    return false;
   }
   
     if(!confirm('您确定要删除吗？'))
 {
return false
} 
else 
document.form1.submit
}
  </script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
.style7 {font-size: 14px}
-->
</style>
<link href="../../../css/link.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style9 {
	color: #5AAE18;
	font-weight: bold;
}
.style10 {
	color: #FF0000;
	font-weight: bold;
}
.style11 {
	font-size: 13px;
	font-weight: bold;
}
.style2 {font-size: 12px}
-->
</style>
</head>
<body>
<% If Not rs.EOF Or Not rs.BOF Then %>
<div align="center">
  <form name="form1" method="post" action="delreadcrcord.asp?id=<%=request("id")%>" onsubmit="return check()">
    <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="style1"><span class="style1 style2"><span class="style7"><span class="style11">文 件 阅 读 明 细</span></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"> 　文件名:<%if rs("群发否")="无" then %><a href="../userfolderasdffqerdfv/adminfiles/accessfiles/redirectforsmssended.asp?id=<%=(rs.Fields.Item("文件ID").Value)%>&n=<%=(rs.Fields.Item("文件名").Value)%>" target="_blank"><%=n%></a> 　 <a href="../userfolderasdffqerdfv/adminfiles/accessfiles/downfileforsmssended.asp?id=<%=(rs.Fields.Item("文件ID").Value)%>&n=<%=(rs.Fields.Item("文件名").Value)%>">下载</a><%else%><a href="../userfolderasdffqerdfv/adminfiles/accessfiles/redirectforsmssendedforqunfa.asp?id=<%=(rs.Fields.Item("文件ID").Value)%>&n=<%=(rs.Fields.Item("文件名").Value)%>" target="_blank"><%=n%></a> 　 <a href="../userfolderasdffqerdfv/adminfiles/accessfiles/downfileforsmssendedforqunfa.asp?id=<%=(rs.Fields.Item("文件ID").Value)%>&n=<%=(rs.Fields.Item("文件名").Value)%>">下载</a><%end if%>大小:<%=(rs.Fields.Item("文件大小").Value)%>　　发送人:<%=(rs.Fields.Item("上传人姓名").Value)%> 　部门: <%=(rs.Fields.Item("上传人部门").Value)%>　　　<br>
      　阅读:<span class="style9"><%=(rs.Fields.Item("阅读次数").Value)%></span> 　下载: <span class="style10"><%=(rs.Fields.Item("下载次数").Value)%></span> 　是否回执: <%=(rs.Fields.Item("是否回执").Value)%>　
      <%if rs("是否回执")="是" then%>
      回执结果:
      <%'if rs("回执结果")="无" then%>
      已发送　
      <%end if%>
      <%'end if%>
      <%dim fy
	  fy=HTMLEncode(rs("附言"))%>
      　<br>
&nbsp;
      <%if fy<>"" then%>
      附言:<%=fy%>
      <%else%>
      无附言
      <%end if%>
      <br>
      <table width="98%" border="0" cellspacing="3" cellpadding="0">
        <tr>
          <td width="495">
              &nbsp;<input type="submit" name="Submit" value="删除"></td>
          <td width="161">&nbsp;</td>
          <td width="88">&nbsp;</td>
        </tr>
      </table>
      <div align="center">
        <table width="98%" border="0" cellpadding="2" cellspacing="1" bgcolor="#5AAE18">
          <tr bgcolor="#FFFFFF">
            <td width="3%">&nbsp;</td>
            <td width="18%"><div align="center"><strong>姓名</strong></div></td>
            <td width="22%"><div align="center"><strong>阅读时间</strong></div></td>
            <td width="17%"><div align="center"><strong>阅读IP</strong></div></td>
            <td width="22%"><div align="center"><strong>下载时间</strong></div></td>
            <td width="18%"><div align="center"><strong>下载IP</strong></div></td>
          </tr>
          <% 
While ((Repeat1__numRows <> 0) AND (NOT rs.EOF)) 
%>
          <tr bgcolor="#FFFFFF">
            <td><input name="id3" type="checkbox" id="id3" value="<%=rs("delid")%>">
			</td>
            <td><div align="center"><%=(rs.Fields.Item("阅读人姓名").Value)%></div></td>
            <td><div align="center"><%=(rs.Fields.Item("阅读时间").Value)%></div></td>
            <td><div align="center"><%=(rs.Fields.Item("阅读IP").Value)%></div></td>
            <td><div align="center"><%=(rs.Fields.Item("下载时间").Value)%></div></td>
            <td><div align="center"><%=(rs.Fields.Item("下载IP").Value)%></div></td>
          </tr>
          <% 
  Repeatrs__index=Repeatrs__index+1
  Repeatrs__index=Repeatrs__index-1
  Rs.MoveNext()
Wend
%>
        </table>
        <div align="left"><span class="style2"> </span>
            <table width="98%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="39%"><span class="style2">
                      &nbsp;&nbsp;<input type="checkbox" name="chkAll" value="on" onClick="CheckAll(this.form)">
                  </span><span class="style2"> 全部选中<br>

                &nbsp;<input type="submit" name="Submit" value="删除">
                </span></td>
                <td width="61%">&nbsp;</td>
              </tr>
            </table>
            <br>
        </div>
    </div></td>
          </tr>
    </table>
    </form>
  <table width="260" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td width="21"></td>
      <td width="131"></td>
      <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>
  <br>
</div>
<% End If ' end Not rs.EOF Or NOT rs.BOF %>
<% If rs.EOF And rs.BOF Then %>
<script>
{
alert("记录已删除,或者你没有阅读或下载该文件,不能查看他人记录..\n如需查看,请打开或下载该文件.");history.go(-1)
}
</script>
<% End If ' end rs.EOF And rs.BOF %>

</body>
</html>
   <%
Rs.Close()
Set Rs = Nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -