📄 showdocument.asp

📁 公文下发和上报管理：　在发布和上报文件时
💻 ASP
字号:
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checkuser.asp"-->

<script LANGUAGE="JavaScript"> 
<!-- 
//窗口一打开就显示在屏幕中央
window.moveTo((screen.width-503)/2, (screen.height-316)/2) 
//--> 
</script> 

<html>
<head>
<title>∷公文传输系统|电子公文交换系统|文件传输系统|办公自动化系统|公文管理系统|文档管理软件|公文上报系统|政务信息上报系统 ——智元软件</title>
<META name="keywords" content="公文传输系统 电子公文交换系统 企业文档传输系统 文件传输系统 办公自动化系统 公文管理系统 企业文档管理软件 公文上报系统 政务信息上报系统 智元软件">
<META content="智元软件公文传输系统实现党政机关企事业单位部门与部门之间，单位与单位之间公文上报和下发。我们致力于为您提供操作简便、直观实用、价格便宜的公文交换软件，可直接在线或下载试用，每套系统仅售1200元。上百家成功应用客户案例和我们诚信专业完善的售后服务，是您信任我们的基础。" name="description">
<link href="img/style.css" rel="stylesheet" type="text/css">
<SCRIPT language=javascript src="css/init.js">
</SCRIPT>
</HEAD>
<BODY background="img/background-extender.gif" text=#000000 leftmargin="0" topmargin="2">

<DIV align=center>
<table width="460" height="250" border="0" class="t2"> 
    <tr> 
      <td align="center"> 
 <%
 '页面主要作用为提供窗口给用户签收与下载打印文件
 
   set conn=opendb("oabusy","conn","accessdsn")
   
   '用户签收后,设置签收情况与签收时间,在此提交reid为fileuser表中某文件对应该用户的ID
   if request("action")=1 then
      sql="update fileuser set qshou=1,qstime='"&now&"' where id="&request("reid")
      conn.execute sql
      action=""
   end if

   '打开filedata文件存放表
    Set rs=Server.CreateObject("ADODB.recordset")
    sql="select * from filedata where id="&request("id")
    rs.Open sql,conn,1
    if not rs.EOF and not rs.BOF then
   %>
 
        <table width="94%" border="0" cellpadding="0" cellspacing="2"> 
          <tr>  
            <td align="center"> 
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="t4"> 
                <tr> 
                  <td align="center"><br>
                    <div align="center"><font size=3><b><%=rs("title")%></b></font></div>
                  <br></td> 
                </tr> 
              </table></td> 
          </tr> 
          <tr> 
            <td><table width="100%" border="0" cellpadding="0" cellspacing="0" class="t4"> 
                <tr> 
                  <td>
                    <div align="center">(<%=rs("fbdw")%> -- <%=rs("jointime")%>)</div>
                  </td>
                </tr>
              </table></td>
          </tr>
          <%	
            '取得签收情况  
                  qshou=0
                  if (instr(1,"||supermanage||chksuper|",oabusyuserpower)<2) and rs("manageman")<>oabusyusername then
                     set rs1=server.CreateObject("adodb.recordset")
                      sql="select * from fileuser where reid ="&rs("id")&" and username='"&oabusyusername&"'"
                      rs1.Open sql,conn,1
                      qshou=rs1("qshou")
                   end if
                      

          %>

          <tr>
            <td><table width="100%" border="0" cellpadding="0" cellspacing="6" class="t4">
                <tr>
                <% 
					if qshou=1 or (instr(1,"||supermanage||chksuper|",oabusyuserpower)>1) or  rs("manageman")=oabusyusername then
				%>
                  <td>此文件不在网页中显示，请各收文单位注意<b><font color="#FF0000">先签收</font></b>，后<b><font color="#FF0000">下载打印</font></b>文件
                    <div align="right"><a title=下载打印文件 
                  href="download.asp?path=<%=rs("filepath")%><%=rs("filename")%>"><b>下载打印</b></a> 
                <%
					else
				%>
                     <td> 此文件不在网页中显示，请各收文单位注意<b><font color="#FF0000">先签收</font></b>，后<b><font color="#FF0000">下载打印</font></b> 文件
                    </div>
                </td> 
                <%
                    end if
                %> 
                </tr> 
              </table></td> 
          </tr> 


           <% 
               if (instr(1,"||supermanage||chksuper|",oabusyuserpower)<2)  and rs("manageman")<>oabusyusername then 
           %>

            <tr>
            <td><table width="100%" border="0" cellpadding="0" cellspacing="6" class="t4">
                <tr>
                  <td>
           <%
               if qshou=0 then 
           %>
               <input type="submit" name="qs" value="此文未签收"  onclick="javascript:window.open('showdocument.asp?id=<%=rs("id")%>&reid=<%=rs1("id")%>&action=1','_self')" style="border:1 solid #000000;background:#ffcc66">
           <%
               else
           %>
               <input type="submit" name="qs" value="此文已签收"   style="border:1 solid #000000;background:#00a200">
           <%
               end if
           %>
                  </td> 
                </tr> 
              </table></td> 
          </tr> 
           <% 
               rs1.Close
               set rs1=nothing
               end if
      
      end if
        
     rs.Close
     set rs=nothing
     conn.close
     set conn=nothing

      %>
        </table> 
        
      </td> 
    </tr> 
  </table> 
  
</DIV> 
</BODY></HTML>
⌨️ 快捷键说明

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