📄 user_message.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
Option Explicit
Response.buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="../Inc/Const.asp"-->
<!--#Include File="User_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="User_Style.css" type="text/css" rel="stylesheet">
<script language="javascript" src="../Js/Common.js"></script>
<title>短信管理</title>
</head>
<body>
<%
Dim CurrentPage, CurrentPath, URLParameters, Search_Keywords, Search_Field, MessageType

CurrentPage = EL_Common.ELRequest("page", 2)
MessageType = EL_Common.ELRequest("MessageType", 2)
Search_Keywords = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Keywords", 1))
Search_Field = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Field", 1))

If MessageType = 0 Then MessageType = 1

URLParameters = request.ServerVariables("QUERY_STRING")
If CurrentPage<1 Then 
   CurrentPage = 1
Else
   URLParameters = EL_Common.ReplaceText(URLParameters, "&*page=[0-9]*", "")
End If

CurrentPath = "·您现在的位置：<a href='"& EL_CurrentScriptName &"'>短信管理</a> "
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="13%" background="Images/navbg.gif"><img src="Images/navtitle.gif" width="113" height="37"></td>
    <td width="87%" background="Images/navbg.gif">| <a href="User_Message.asp?Action=Write" class="nav">撰写短信</a> | <a href="User_Message.asp?MessageType=1" class="nav">收信箱</a> | <a href="User_Message.asp?MessageType=2" class="nav">发信箱</a> | </td>
  </tr>
</table>
<div class="dw">
<%
Select Case Action
   Case "": Call ManageMessage()
   Case "Write": Call WriteMessage()
   Case "SendMsg": Call SendMessage()
   Case "Delete": Call DeleteMessage(3)
   Case "ClearReceive": Call DeleteMessage(5)
   Case "ClearSend": Call DeleteMessage(6)
   Case "Read": Call ReadMessage()
End Select
Call ApplicationTerminate()

Sub DeleteMessage(DelType)
  On Error Resume Next
  Dim DeleteCmd
  Dim MessageID, ArrMessageID
  MessageID = EL_Common.ELRequest("MessageID", 2)
  ArrMessageID = EL_Common.ELRequest("CheckObject", 1)
  ArrMessageID = EL_Common.Join2String(ArrMessageID, MessageID, ",")
  
  Call EL_Common.InitCommand(DeleteCmd, "EL_SP_DeleteMessage")
  With DeleteCmd
     .Parameters.Append .CreateParameter("@DeleteType", 3, 1, 4, DelType)
	 .Parameters.Append .CreateParameter("@MessageID", 200, 1, 500, ArrMessageID)
	 .Parameters.Append .CreateParameter("@GroupID", 200, 1, 500, 0)
	 .Parameters.Append .CreateParameter("@Receiver", 200, 1, 4000, EL_User.UserName)
	 .Parameters.Append .CreateParameter("@DelDate", 3, 1, 4, Date())
	 .Parameters.Append .CreateParameter("@Readed", 11, 1, 4, 1)
	 .Execute()
  End With
  Set DeleteCmd = Nothing
  EL_Common.ShowScriptError()
  If Request("DelType") = "1" Then Response.Redirect "User_Message.asp"
  If DelType = 3 Then 
     EL_Common.ShowSuccessMsg("删除短信成功")
  ElseIf DelType = 5 Then 
     EL_Common.ShowSuccessMsg("收信箱已清空")
  ElseIf DelType = 6 Then 
     EL_Common.ShowSuccessMsg("发信箱已清空")
  End If
End Sub

Sub ReadMessage()
On Error Resume Next
Dim MessageCmd, rsMessage
Dim MessageID

MessageID = EL_Common.ELRequest("MessageID", 2)

Call EL_Common.InitCommand(MessageCmd, "EL_SP_GetMessageInfo")
With MessageCmd
   .Parameters.Append .CreateParameter("RETURN", 2, 4)
   .Parameters.Append .CreateParameter("@MessageID", 3, 1, 4, MessageID)
   .Parameters.Append .CreateParameter("@ReadType", 3, 1, 4, 2)
   Set rsMessage = .Execute()
End With
rsMessage.Close()
If MessageCmd(0) = 0 Then
   EL_Common.ShowErrorMsg("指定短信不存在")
   Set rsMessage = Nothing
   Set MessageCmd = Nothing
   Exit Sub
End If
rsMessage.Open()

CurrentPath = CurrentPath &" >> 阅读短信"
%>
<script language="javascript">
function Check(frm){
  if(frm.Receiver.value.trim()==""){
     alert("请输入收信人");
	 frm.Receiver.focus();
	 return false;
  }
  if(frm.Title.value.trim()==""){
     alert("请输入短信主题");
	 frm.Title.focus();
	 return false;
  }
  if(frm.Content.value.trim()==""){
     alert("请输入短信内容");
	 frm.Content.focus();
	 return false;
  }
  
  SubmitOnce(frm);
}
function goto(where){
  location.href = where;
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_26"><strong>阅读短信</strong></td>
  </tr>
  <tr>
    <td width="16%" align="right" class="td_ItemName"><strong>标题：</strong></td>
    <td width="84%" class="td_item_22"><%=EL_Common.ServerHTMLEncode(rsMessage("Title"))%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>发信人：</strong></td>
    <td class="td_item_22"><%=EL_Common.ServerHTMLEncode(rsMessage("Sender"))%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>收信人：</strong></td>
    <td class="td_item_22"><%=EL_Common.ServerHTMLEncode(rsMessage("Receiver"))%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>发送日期：</strong></td>
    <td class="td_item_22"><%=rsMessage("UpdateTime")%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>内容：</strong></td>
    <td class="td_item_22" style="height:100px;"><%=EL_Common.HTMLEncode(rsMessage("Content"))%></td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="button" name="Submit42" value=" 删 除 " onClick="if(confirm('确定要删除此短信吗？')) location.href='User_Message.asp?Action=Delete&DelType=1&MessageID=<%=MessageID%>'">
      <input type="button" name="Submit6" value="快速回复" onClick="getObject('reply').style.display=''; goto('#Replay');">
      <input type="button" name="Submit23" value=" 返 回 " onClick="location.href='<%=ComeURL%>'"></td>
  </tr>
</table>
<br>
<div id="reply" style="display:none">
<form name="myform" action="User_Message.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_26"><strong>回复短信</strong><a name="Replay"></a></td>
  </tr>
  <tr>
    <td width="16%" align="right" class="td_ItemName"><strong>收信人：</strong></td>
    <td width="84%" class="td_22"><input name="Receiver" type="text" id="Receiver" size="50" value="<%=EL_Common.ServerHTMLEncode(rsMessage("Sender"))%>">
      可同时给5个人发送短信，每个用户名之间请用英文逗号“<span class="redText">,</span>”分隔，多于5人系统自动弃除</td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>短信主题：</strong></td>
    <td class="td_22"><input name="Title" type="text" id="Title" value="回复：<%=EL_Common.ServerHTMLEncode(rsMessage("Title"))%>" size="50"></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>短信内容：</strong></td>
    <td class="td_22"><textarea name="Content" cols="80" rows="15" id="Content"></textarea></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"></td>
    <td class="td_50"><input type="submit" name="Submit4" value="发送短信">
      <input type="button" name="Submit5" value=" 取 消 " onClick="getObject('reply').style.display='none'">
      <input name="Action" type="hidden" id="Action" value="SendMsg"></td>
  </tr>
</table>
</form>
</div>
<%
rsMessage.Close()
Set rsMessage = Nothing
Set MessageCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub SendMessage()
  On Error Resume Next
  Dim MessageCmd
  Dim Receiver, Title, Content, Sender
  
  Receiver = EL_Common.ELRequest("Receiver", 1)
  Title = EL_Common.ELRequest("Title", 1)
  Content = EL_Common.ELRequest("Content", 1)
  
  Receiver = Replace(Receiver, " ", "")
  If Receiver = "" Then
     EL_Common.ShowErrorMsg("请指定收信人")
	 Exit Sub
  End If  
  If Title = "" Then
     EL_Common.ShowErrorMsg("请输入短信主题")
	 Exit Sub
  End If 
  If Content = "" Then
     EL_Common.ShowErrorMsg("请输入短信内容")
	 Exit Sub
  End If 
  Receiver = CheckReceiver(Receiver)
  
  Call EL_Common.InitCommand(MessageCmd, "EL_SP_SendMessage")
  With MessageCmd
     .Parameters.Append .CreateParameter("@SendType", 3, 1, 4, 2)
	 .Parameters.Append .CreateParameter("@GroupID", 200, 1, 500, 0)
	 .Parameters.Append .CreateParameter("@Title", 200, 1, 255, Title)
	 .Parameters.Append .CreateParameter("@Sender", 200, 1, 50, EL_User.UserName)
	 .Parameters.Append .CreateParameter("@Receiver", 200, 1, 4000, Receiver)
	 .Parameters.Append .CreateParameter("@Content", 203, 1, EL_Common.LenParameter(Content), Content)
	 .Execute()
  End With
  Set MessageCmd = Nothing
  
  EL_Common.ShowSuccessMsg("发送短信成功")  
  EL_Common.ShowScriptError()
End Sub

Function CheckReceiver(ByVal s)
   Dim i, arr, rt
   If s = "" Then Exit Function
   arr = Split(s, ",")
   rt = ""
   For i = 0 To Ubound(arr)
      If i > 5 Then Exit For
	  rt = EL_Common.Join2String(rt, arr(i), ",")	  
   Next
   CheckReceiver = rt
End Function

Sub WriteMessage()
On Error Resume Next
CurrentPath = CurrentPath &" >> 撰写短信"
%>
<script language="javascript">
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -