📄 communication.asp
字号:
<%@ Language=VBScript %>
<%
'判断用户是否登录
if isempty(Session("ID")) then
Response.Redirect "../login.asp"
end if
'连接系统数据库
set conn = server.createobject ("adodb.connection")
conn.open "ASPData", "sa", "yourpassword"
set RSPublicMessage= conn.Execute(" select * from MessageBoard where " _
& " MessageType = '公共通知' and Date()-MessageSendDate<= MessageValidTime")
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=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr bgcolor=white><td valign=center ><img src="../ASPLogo3.jpg" width=796 height=100></td></tr>
</table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></td></tr>
</table>
<br>
<table width=800 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr><td colspan=3>
<font color=white><P ALIGN="CENTER">公司内部办公信息管理系统->内部信息交流系统 [当前用户-<% response.write Session("Name") %>]
</font></td></tr>
<tr bgcolor=white >
<td><a href=".././html/home.asp"><font color="#104DAD">返回内网主页</font></a></td>
<td align=center> <font color="#104DAD" ><% response.write TheMessage %></FONT></td>
<td align=right><a href=".././html/home.asp"><font color="#104DAD">返回上一级网页</font></a></td></tr></table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr><td height="10" colspan="4" valign="top" bgcolor="#FFFFFF">
<table width="100%" border="0" height="13" cellspacing="0" cellpadding="0" mm_noconvert="TRUE">
<tr><td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></td></tr></table>
</td></tr> </table>
<br>
<TABLE CELLPADDING=1 CELLSPACING=2 BORDER=1 bordercolor="#164DA8" WIDTH=800 align=center>
<TR VALIGN="center" ALIGN="center">
<TD WIDTH=35% bgcolor=#B5C7EF>
<img src="../image/MessageBoard1.jpg"></td>
<td>
<table>
<tr height=30><td><font color="#104DAD" >公司内部信息交流系统</font> -> <a href="MessageBoard.asp"><font color="#104DAD">通知公告牌</a></font></td></tr>
<tr height=30><td><font color="#104DAD">公司内部信息交流系统</font> -> <a href="SuggestionBox.asp"><font color="#104DAD">内部意见箱</a></font></td></tr>
<tr height=30><td><font color="#104DAD">公司内部信息交流系统</font> -> <a href="Voting.asp"><font color="#104DAD">内部投票站</a></font></td></tr>
</table>
</td></tr></table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="3" cellspacing="0">
<tr><td>
<FORM ACTION="MessageBoard.asp" METHOD=POST>
<br>
<table WIDTH=800 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr><td colspan=3 height=1 ><font color=white><P ALIGN="left">今日公司有如下公共通知</FONT></font></td></tr>
<tr bgcolor=white >
<td width=15% align=left>通知发送日期</td>
<td width=50% align=left>通知内容</td>
<td width=10% align=left> 通知类型</FONT></td>
<td align=left> 通知发送者</FONT></td>
<td align=left> 有效天数</FONT></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>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></td></tr>
</table>
</td>
</tr>
</table>
</FORM>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -