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

📄 readshouwengd.asp

📁 功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来看下.
💻 ASP
字号:
<!--#include file="check.asp"-->
<!--#INCLUDE FILE="connect.asp" --> 
<html>
<head>
<title>收文</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="fawen.css" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false">
<%
session("shouwenid")=CLng(request("flowid"))
set rs=server.createobject("adodb.recordset")
sql="select * from shouwen where id="&Clng(request("flowid"))
rs.open sql,conn,1,1
if rs.eof then
response.redirect "error.htm"
response.end
end if
 LocalFile="readshouwengd.asp"
  PsoFile="swload.asp"
  HttpUrl="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") 
  HttpUrl=Left(HttpUrl,Len(HttpUrl)-Len(LocalFile))
  PsoUrl=HttpUrl & PsoFile

%>
<table width="100%" height="300" cellpadding="0" cellspacing="0" align="center">
  <tr> 
    <td valign="top"  width="940" height="382"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="40">
        <tr> 
          <td valign="middle" class="redtitle" align="center"> 
          <%=rs("title")%>
         </td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr height="25"> 
          <td valign="top" align="center" > 
            <table width="90%" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="990000">
              <tr bgcolor="f0f0f0"> 
                <td height="35" width="19%"> 
                  <div align="center">来文单位: </div>
                </td>
                <td height="35" width="32%" class="bblue"> <%=rs("fromdep")%> 
                </td>
                <td height="35" width="18%"> 
                  <div align="center">份  数: </div>
                </td>
                <td height="35" width="31%" class="bblue"> <%=rs("copy")%> </td>
              </tr>
              <tr bgcolor="f0f0f0"> 
                <td height="35" width="19%" bgcolor="f0f0f0"> 
                  <div align="center">文  号: </div>
                </td>
                <td height="35" width="32%" class="bblue"> <%=rs("wenhao")%> </td>
                <td height="35" width="18%"> 
                  <div align="center">密  级: </div>
                </td>
                <td height="35" width="31%" class="bblue"> <%=rs("miji")%> </td>
              </tr>
              <tr bgcolor="f0f0f0"> 
                <td height="35" width="19%"> 
                  <div align="center">来文时间: </div>
                </td>
                <td height="35" width="32%" class="bblue"> <%=rs("arrivetime")%> 
                </td>
                <td height="35" width="18%"> 
                  <div align="center">缓  急: </div>
                </td>
                <td height="35" width="31%" class="bblue"> <%=rs("huanji")%> </td>
              </tr>
              <tr bgcolor="f0f0f0"> 
                <td height="35" width="19%"> 
                  <div align="center">标  题: </div>
                </td>
                <td height="35" colspan="3" class="bblue"> <%=rs("title")%> </td>
              </tr>
              <tr bgcolor="f0f0f0"> 
                <td height="35" width="19%"> 
                  <div align="center">主 题 词: </div>
                </td>
                <td height="35" colspan="3" class="bblue"> <%=rs("keyword")%> 
                </td>
              </tr>
              <tr bgcolor="f0f0f0" valign="middle"> 
                <td height="35" width="19%"> 
                  <div align="center">文件正文: </div>
                </td>
                <td height="35" colspan="3"> 
                  <%
						fujianname=rs("documentname")
						  if fujianname<>"" then
						   response.write "<a href='"&PsoUrl&"' target='_blank'>"&fujianname&"</a>"
					      end if
						  %>
                </td>
              </tr>
              <tr bgcolor="f0f0f0"> 
                <td height="35" width="19%"> 
                  <div align="center">拟办意见: </div>
                </td>
                <td height="35" colspan="3" class="bblue"><%=rs("name_nb")%> </td>
              </tr>
              <tr bgcolor="f0f0f0"> 
                <td height="55" width="19%" valign="middle" bgcolor="f0f0f0"> 
                  <div align="center">批办意见:</div>
                </td>
                <td height="55" colspan="3" valign="middle" class="bblue"><%=rs("name_pb")%> 
                </td>
              </tr>
              <tr bgcolor="f0f0f0"> 
                <td height="55" width="19%"> 
                  <div align="center">承办意见:</div>
                </td>
                <td height="55" colspan="3" valign="middle" class="bblue"> <%=rs("name_cb")%> 
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="40">
  <tr> 
    <td width="45%" align="right"> <font size=5 > 
      <input  type="image" name="send22" value=" 打 印 " onClick="window.print();return false;" src="images/printgif.gif" alt="打印">
      </font></td>
    <td width="8%">&nbsp;</td>
    <td width="47%"><font size=5 > 
      <input  type="image" name="send2" value=" 返 回 " onClick="history.go(-1);return false;" src="images/fanhuigif.gif" alt="返回">
      </font></td>
  </tr>
</table>
<%
             rs.close
			  set rs=nothing
			  conn.close
			  set conn=nothing
%>

</body>
</html>

⌨️ 快捷键说明

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