shownotice.asp

来自「很好的OA办公系统」· ASP 代码 · 共 77 行

ASP

77 行

<!--#include file="asp/keepformat.asp"-->
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/bgsub.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='default.asp';")
	response.write("</script>")
	response.end
end if

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="css/css.css">
<title>企业办公自动化IE37-OA系统</title>
</head>
<body bgcolor="#ffffff" topmargin="0" leftmargin="5">
<%
 
%>
<%
set conn=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from newnotice where id=" & request("id")
rs.open sql,conn,1
%>
<center>
<b>通告标题：<%=keepformat(rs("title"))%></b><br>[发布日期：<%=rs("noticedate")%>]
</center>



<div align="center">
  <center>
  <table border="0" cellpadding="5" cellspacing="0" width="80%">
    <tr>
      <td width="100%">
        <table border="0" cellpadding="0" cellspacing="0" width="100%">
          <tr>
            <td width="100%"><%=keepformat(rs("content"))%></td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  </center>
</div>



<div align="center">
  <center>
  <table>
    <tr>
      <td height=19>
        <table border="0" cellpadding="0" cellspacing="0" width="610" height="19">
		  <tr>
          <td width="100%" height=20><p align="center"><font color="#808080">IE37 &copy; <a href="http://www.ie37.com" target="_blank">IE37.com</a></font></td>  
		  </tr>
        </table>
      </td>
    </tr>

  </table>
  </center>
</div>
</body>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

shownotice.asp

shownotice.asp - 源码说明

⌨️ 快捷键说明