📄 modifymessage.asp
字号:
<%@ Language=VBScript %>
<!--#include file="../conn.asp"-->
<%
'判断用户是否登录和是否具有要修改的通知的ID号
if isempty(Session("ID")) or ISEmpty(Session("MessageID")) then
Response.Redirect "../login.asp"
end if
if ISEmpty(Session("MessageID")) then
Response.Redirect "MessageBoard.asp"
end if
'连接系统数据库
'set conn = server.createobject ("adodb.connection")
'conn.open "ASPData", "sa", ""
Warning=false
'用户单击了修改此条通知的按钮
if not isempty(Request.Form("ModifyThisMessage")) then
'校验修改后的通知的内容
if Len(trim(Request.Form("MessageContent")))=0 then
TheMessage="通知内容不能为空，请重填这条通知"
Warning=true
else
conn.execute " update Messageboard set MessageContent='" _
& Request.Form("Messagecontent") & "', " _
& " MessageSendDate='" & Date & "', " _
& " MessageSendTime='" & Time & "', " _
& " MessageValidTime=" & Request.Form("MessageValidTime") _
& " Where MessageID=" & Session("MessageID")
TheMessage = "通知修改成功"
Warning=false
end if
else
TheMessage = "请在下面修改这条通知"
Warning=false
end if
set RSThisMessage=conn.execute("select * from MessageBoard where MessageID=" _
& Session("MessageID"))
%>
<HTML>
<HEAD>
<TITLE>公司内部意见箱-提交意见建议</TITLE>
<META NAME="Generator" CONTENT="NetObjects Fusion 2.0.2 for Windows">
</HEAD>
<body>
<table width=800 border=0 bgcolor=#16A84D 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="#16A84D" 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=#16A84D 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="#10AD4D">返回内网主页</font></a></td>
<td align=center>
<% if Warning=true then %>
<font color=red><% response.write TheMessage %></FONT>
<% else %>
<font color="#10AD4D" ><% response.write TheMessage %></FONT>
<% end if %>
</td>
<td align=right><a href="MessageBoard.asp"><font color="#10AD4D">返回上一级网页</font></a></td></tr></table>
<table width="800" border="0" bordercolor="#16A84D" 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="#16A84D" WIDTH=800 align=center>
<TR VALIGN="center" ALIGN="center">
<TD WIDTH=35% bgcolor=#B5EFC7>
<img src="../image/MessageBoard1.jpg"></td>
<td>
<Form ACTION="ModifyMessage.asp" METHOD=POST>
<table width=100% border=1>
<tr><td>此条通知ID</td><td><% Response.write RSThisMessage("MessageID") %></td></tr>
<tr><td>此条通知接受者</td><td><% Response.write RSThisMessage("MessageType") %></td></tr>
<tr><td>此条通知发送者</td><td><% Response.write RSThisMessage("MessageSender") %></td></tr>
<tr><td>此条通知发送日期</td><td><% Response.write RSThisMessage("MessageSendDate") %></td></tr>
<tr><td>此条通知有效天数</td><td>
<select name=MessageValidTime>
<option value=<% Response.write RSThisMessage("MessageValidTime") %>>  <% Response.write RSThisMessage("MessageValidTime") %>天  </option>
<%
ccounter=1
do until ccounter>31
%>
<OPTION VALUE= <% Response.Write ccounter %> >  <% Response.Write ccounter %>天  </OPTION>
<%
ccounter=ccounter+1
loop
%>
</select>
</td></tr>
<tr>
<td>请修改此条通知的内容</td><td>
<TEXTAREA NAME="MessageContent" ROWS=6 COLS=40 ><% response.write RSThisMessage("MessageContent") %></TEXTAREA>
</td></tr>
<tr><td colspan=2 align=center>
<input type=submit name=ModifyThisMessage value="修改此条通知" style="border: 1px solid #34BB66; background-color: #B6EBCA; color: #34BB66">
</td></tr>
</table>
</Form>
</td></tr></table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -