📄 communication.asp
字号:
<%@ Language=VBScript %>
<!--#include file="conn.asp"-->
<%
'判断用户是否登录
if isempty(Session("ID")) then
Response.Redirect "../login.asp"
end if
set RSPublicMessage= conn.Execute(" select * from MessageBoard where " _
& " MessageType = '公共通知' ")
TheMessage = "请选择你要进入的内部信息交流功能模块"
%>
<HTML>
<HEAD>
<TITLE>Employee Email Blast</TITLE>
<META NAME="Generator" CONTENT="NetObjects Fusion 2.0.2 for Windows">
</HEAD>
<table width=800 border=0 bgcolor=#9933FF cellspacing=1 cellpadding=2 align=center>
<tr bgcolor=white><td height="50" valign=center bgcolor="#9933FF" ><div align="center"><strong><font color="#FFFFFF" size="4">企业办公自动化系统</font></strong></div></td>
</tr>
</table>
<table width=800 border=0 bgcolor=#9966FF cellspacing=1 cellpadding=2 align=center>
<tr bgcolor="#9999FF"><td colspan=3>
<P ALIGN="CENTER"><font color="white">公司内部办公信息管理系统->内部信息交流系统 当前用户：
<% response.write Session("Name") %>
</font>
</td></tr>
<tr bgcolor=white >
<td width="198"><a href="../html/home.asp"><font color="#9900FF">返回主页</font></a></td>
<td width="398" align=center> <font color="#9966FF" ><% response.write TheMessage %></FONT></td>
<td width="188" align=right><div align="left"><a href=".././html/home.asp"><font color="#9966FF">返回上页</font></a></div></td>
</tr></table>
<TABLE CELLPADDING=1 CELLSPACING=2 BORDER=1 bordercolor="#9966FF" WIDTH=800 align=center>
<TR VALIGN="center" ALIGN="center">
<TD WIDTH=35% bgcolor=#99CCFF>
<img src="../image/HomepagePicture1.jpg" width="250" height="173"></td>
<td>
<table>
<tr height=30>
<td><p><font color="#9900FF" >公司内部信息交流系统 <a href="MessageBoard.asp"><font color="#9900FF"></a></font></p>
<p><font color="#9900FF" ><a href="MessageBoard.asp">进入通知公告牌</a></font></p></td>
</tr>
</table>
</td></tr></table>
<table width="800" border="0" bordercolor="#9900FF" align="center" cellpadding="3" cellspacing="0">
<tr><td>
<Form ACTION="MessageBoard.asp" METHOD=POST>
<table WIDTH=800 border=0 bgcolor=#9900FF cellspacing=1 cellpadding=2 align=center>
<tr><td colspan=3 height=1 ><font color=white><P ALIGN="left">今日公司有如下公共通知</FONT></td></tr>
<tr bgcolor=white >
<td width=15% align=left>发送时间</td>
<td width=50% align=left>通知内容</td>
<td width=10% align=left> 通知类型</td>
<td align=left> 通知发送者</td>
<td align=left> 有效时间</td>
</tr>
<%
Do Until RSPublicMessage.EOF
%>
<TR bgcolor=white VALIGN="top" ALIGN="left">
<TD ><font face=arial><% Response.write RSPublicMessage("MessageSendDate") %></font></TD>
<TD ><font face=arial><% Response.write RSPublicMessage("MessageContent") %></font></TD>
<TD HEIGHT=21><font face=arial><% Response.write RSPublicMessage("MessageType") %></font></TD>
<TD HEIGHT=21><font face=arial><% Response.write RSPublicMessage("MessageSender") %></font></TD>
<TD HEIGHT=21><font face=arial><% Response.write RSPublicMessage("MessageValidTime") %></font></TD>
</TR>
<%
RSPublicMessage.MoveNext
Loop
%>
</table></Form>
<table width="800" border="0" bordercolor="#9900FF" align="center" cellpadding="0" cellspacing="0">
</table>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -