?? 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 + -