user_message.asp

依蓝旅游网站管理系统Elan2008.SP2

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);
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<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></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(EL_Common.ELRequest("UserName", 1))%>"></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(EL_Common.ELRequest("Title", 1))%>" size="80"></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="history.back()">
      <input name="Action" type="hidden" id="Action" value="SendMsg"></td>
  </tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub

Sub ManageMessage()
On Error Resume Next
Dim MessageCmd, rsMessage, StrFields, StrCondition, i
Dim PageSizes, PageCounts, RowCount, TotalRowCount

PageSizes = 20
StrFields = "MessageID,Title,Sender,Receiver,UpdateTime,Readed"

If MessageType = 1 Then
   StrCondition = "Receiver='"& EL_User.UserName &"' "
ElseIf MessageType = 2 Then 
   StrCondition = "Sender='"& EL_User.UserName &"' "
Else  
   StrCondition = "(Receiver='"& EL_User.UserName &"' OR Sender='"& EL_User.UserName &"') "
End If

If Search_Keywords<>"" And Search_Field<>"" Then 
   StrCondition = StrCondition &" And "& Search_Field &" Like '%"& Search_Keywords &"%'"
End If

Call EL_Common.InitCommand(MessageCmd, "EL_SP_SplitPage")
With MessageCmd
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_Message")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "MessageID")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "UpdateTime DESC")
  .Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
  .Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
  .Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
  .Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
  .Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
  .Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
  .Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
  Set rsMessage = .Execute()
End With
rsMessage.Close()
RowCount = MessageCmd(0)
TotalRowCount = MessageCmd(9)
PageCounts = MessageCmd(10)


If Search_Keywords<>"" And Search_Field<>"" Then
  CurrentPath = CurrentPath &" >> 短信搜索 >> "
  Select Case lCase(Search_Field)
     Case "title": CurrentPath = CurrentPath &"短信标题："
	 Case "content": CurrentPath = CurrentPath &"短信内容："
  End Select
  CurrentPath = CurrentPath &"<span class=redtext>"& Search_Keywords &"</span>"
Else
   If MessageType = 1 Then
      CurrentPath = CurrentPath &" >> 收信箱"
   ElseIf MessageType = 2 Then 
      CurrentPath = CurrentPath &" >> 发信箱"
   Else  
      CurrentPath = CurrentPath &" >> 所有短信"
   End If
End If
%>
<script language="javascript">
function CheckedAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = true;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CancelAll()'>取消</a>]";
}
function CancelAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = false;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CheckedAll()'>全选</a>]";
}
function CheckObject(){
   var frm = getObject("myform");
   for (var i=0;i<frm.elements.length;i++){
    var e = frm.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false && e.checked == true ){
       return true
    }
  }
  return false;
}
function doDelete(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1条短信");
	 return false;
  }
  frm.action = "User_Message.asp?Action=Delete";
  if(confirm("确认要执行删除选定的短信吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function ClearMessage(type){
  var frm = getObject("myform");  
  var s = ""
  if(type==1){
     s = "确认要清空收信箱吗？"
	 frm.action = "User_Message.asp?Action=ClearReceive";
  }else{
     s = "确认要清空发信箱吗？"
	 frm.action = "User_Message.asp?Action=ClearSend";
  }
  if(confirm(s)){
     frm.submit();
	 return;
  }
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<form name="myform" action="User_Message.asp" method="post" onSubmit="SubmitOnce(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="5%" align="center" class="top_Item"><strong>选择</strong></td>
    <td width="11%" align="center" class="top_Item"><strong>发信人</strong></td>
    <td width="12%" align="center" class="top_Item"><strong>收信人</strong></td>
    <td width="46%" align="center" class="top_Item"><strong>主题</strong></td>
    <td width="15%" align="center" class="top_Item"><strong>发信日期</strong></td>
    <td width="5%" align="center" class="top_Item"><strong>已读</strong></td>
    <td width="6%" align="center" class="top_Item"><strong>操作</strong></td>
  </tr>
  <%
   If RowCount = 0 Then
      Response.Write "<tr><td class='td_50' colspan=7 align=center>没有任何短信</td></tr>"
   Else
      rsMessage.Open()
	  For i = 1 To RowCount
  %>
  <tr class="td_22" onMouseOver="this.className='MouseOver_22'" onMouseOut="this.className='td_22'">
    <td align="center"><input name="CheckObject" type="checkbox" id="CheckObject" value="<%=rsMessage("MessageID")%>"></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsMessage("Sender"))%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsMessage("Receiver"))%></td>
    <td style="padding-left:5px;"><a href="User_Message.asp?Action=Read&MessageID=<%=rsMessage("MessageID")%>"><%=EL_Common.ServerHTMLEncode(rsMessage("Title"))%></a></td>
    <td align="center"><%=rsMessage("UpdateTime")%></td>
    <td align="center"><%=EL_Common.ShowBoolean(rsMessage("Readed").value, "<strong class=greentext>√</strong>", "<strong class=redtext>×</strong>")%></td>
    <td align="center"><a href="User_Message.asp?Action=Delete&MessageID=<%=rsMessage("MessageID")%>" onClick="return confirm('确认要删除此短信吗？')">删除</a></td>
  </tr>
  <%
         If i<RowCount Then rsMessage.MoveNext
	  Next
	  rsMessage.Close()
   End If
  %>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td width="12%"><span id="myselect">[<a href="javascript:CheckedAll()">全选</a>]</span></td>
    <td width="88%" align="right" nowrap><%=EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "短信", "条")%></td>
  </tr>
</table>

<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td height="50" align="center">
    <%
	  Dim Disabled
	  If RowCount = 0 Then Disabled = "disabled"
	%>
    <input type="button" name="Submit" value="删除选定短信" onClick="doDelete()" <%=Disabled%>>
	<% If MessageType = 1 Then %>
    <input type="button" name="Submit2" value="清空收信箱" onClick="ClearMessage(1)" <%=Disabled%>>
	<% End If %>
	<% If MessageType = 2 Then %>
    <input type="button" name="Submit22" value="清空发信箱" onClick="ClearMessage(2)" <%=Disabled%>>
	<% End If %>
    </td>
  </tr>
</table>
</form>
<form name="search" method="get" action="User_Message.asp">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="8%" align="right" nowrap class="td_50">短信搜索：</td>
    <td width="92%" class="td_50">
	  <select name="MessageType" id="MessageType">
	    <option value="0">所有短信</option>
	    <option value="1">收信箱</option>
	    <option value="2">发信箱</option>
      </select>
	  <select name="Search_Field" id="Search_Field">
	    <option value="Title">短信标题</option>
		<option value="Content">短信内容</option>
      </select>
      <input name="Search_Keywords" type="text" id="Search_Keywords" value="关键字">
      <input type="submit" name="Submit3" value="搜索"></td>
  </tr>
</table>
</form>
<%
Set rsMessage = Nothing
Set MessageCmd = Nothing
EL_Common.ShowScriptError()
End Sub
%>
</div>
</body>
</html>