📄 u_sendbulletin.asp
字号:
<%@ Language="VBScript" %>
<!-- #include file="../u_menu.asp" -->
<!-- #include file="msg.inc" -->
<%
CheckSecurity("u_SendBulletin.asp")
%>
<%
'--------------------------------------------------------------------------------------------------
' 发送消息处理
'--------------------------------------------------------------------------------------------------
Dim sFormAction : sFormAction = GetParam("FormAction")
if (Not IsEmpty(sFormAction)) and (sFormAction = "SendBulletin") then
Dim fldMessage_Type : fldMessage_Type = GetParam("Message_Type")
Dim fldSubject : fldSubject = GetParam("Subject")
Dim fldContent : fldContent = GetParam("Content")
Dim fldSender : fldSender = GetParam("Sender")
Dim fldReceiver : fldReceiver = GetParam("Receiver")
' Dim sSQL : sSQL = "proc_NewMessage 0," & ToSQL(fldSubject,"Text") & "," & ToSQL(fldContent,"Text") & "," & ToSQL(fldSender,"Text") & "," & ToSQL(fldReceiver,"Text")
Dim rtnCode : rtnCode = newMessage(fldMessage_Type, fldSubject, fldContent, fldSender, fldReceiver, 0)
if rtnCode = 0 then
' Response.write "<script language=""JavaScript"">alert('恭喜，消息已经成功地发送了！');</script>"
else
Response.write "<script language=""JavaScript"">alert('消息发送没有成功，错误码为" & rtnCode & "')</script>"
end if
end if
%>
<html>
<head>
<title>发送新消息</title>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="expires" content="0">
<meta http-equiv="cache-control" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!-- @import url(../common.css); -->
.inputText {border-style:solid;border-width:1px;border-color:white white green white;font-size:11pt;font-family:Verdana,Arial,Tahoma,Helvetica;}
.flatbtn1 {border-style:solid;border-width:1px;border-color:green green green green;font-size:11pt;height:25px;width:60px}
</style>
</head>
<SCRIPT LANGUAGE="VBScript">
sub btnSend_OnClick()
if Trim(formSend.Subject.value)="" then
msgbox"请输入消息标题！"
formSend.Subject.focus()
exit sub
end if
formSend.submit()
end sub
</script>
<body marginwidth=0 marginheight=0>
<form method="post" action="u_SendBulletin.asp" name="formSend">
<table border=0 cellpadding=0 cellspacing=0>
<tr><td style="font-family:黑体;font-size:12pt;color:#508CFF" colspan=2 align=center class=noborder>发布公告信息</td></tr>
<tr><td class=noborder>标题:</td>
<td class=noborder><input type="text" name="Subject" maxlength="50" size="50" class="inputText"></td></tr>
<tr height=10><td class=noborder colspan=2></td></tr>
<tr><td class=noborder valign=top>内容:</td>
<td class=noborder><textarea name="Content" cols="66" rows="12" class=FlatCtrl></textarea></td></tr>
<tr><td colspan=2 align=center height=50px class=noborder>
<input type="hidden" name="FormAction" value="SendBulletin">
<input type="hidden" name="Message_Type" value="<%=conMsgBulletin%>"/>
<input type="hidden" name="Sender" value="<%=Session("UserID")%>"/>
<input type="hidden" name="Receiver" value="<%=getReceivers()%>" class="flatbtn">
<table><tr><td class=noborder><img style="cursor:hand" src="../images/queding.gif" OnClick="VBScript:btnSend_OnClick()"></td>
<td class=noborder> </td>
<td class=noborder><img style="cursor:hand" src="../images/quxiao.gif" OnClick="JavaScript:location.href='msg_s.asp'"></td></tr></table>
</td></tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -