admin_message.asp

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

   .Parameters.Append .CreateParameter("RETURN", 2, 4)
   .Parameters.Append .CreateParameter("@MessageID", 3, 1, 4, MessageID)
   .Parameters.Append .CreateParameter("@ReadType", 3, 1, 4, 1)
   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 &" >> 阅读短信"
%>
<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_25"><strong>阅读短信</strong></td>
  </tr>
  <tr>
    <td width="13%" class="td_ItemName"><strong>标题</strong></td>
    <td width="87%" class="td_25" style="padding-left:5px;"><%=EL_Common.ServerHTMLEncode(rsMessage("Title"))%></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>发信人</strong></td>
    <td class="td_25" style="padding-left:5px;"><%=EL_Common.ServerHTMLEncode(rsMessage("Sender"))%></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>收信人</strong></td>
    <td class="td_25" style="padding-left:5px;"><%=EL_Common.ServerHTMLEncode(rsMessage("Receiver"))%></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>发送日期</strong></td>
    <td class="td_25" style="padding-left:5px;"><%=rsMessage("UpdateTime")%></td>
  </tr>
  <tr>
    <td valign="top" class="td_ItemName"><strong>内容</strong></td>
    <td valign="top" class="td_25" style="padding:5px; height:60px"><%=EL_Common.HTMLEncode(rsMessage("Content"))%></td>
  </tr>
  <tr>
    <td class="td_ItemName"></td>
    <td class="td_50"><input type="button" name="Submit4" value=" 删 除 " onClick="if(confirm('确定要删除此短信吗？')) location.href='Admin_Message.asp?Action=Delete&DeleteType=4&MessageID=<%=MessageID%>'">
    <input type="button" name="Submit2" value=" 返 回 " onClick="history.back()"></td>
  </tr>
</table>
<%
rsMessage.Close()
Set rsMessage = Nothing
Set MessageCmd = Nothing
EL_Common.ShowScriptError()
End Sub

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

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


StrCondition = ""

If Search_Keywords<>"" And Search_Field<>"" Then 
   StrCondition = 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 &"短信内容："
	 Case "sender": CurrentPath = CurrentPath &"发信人："
	 Case "receiver": CurrentPath = CurrentPath &"收信人："
  End Select
  CurrentPath = CurrentPath &"<span class=redtext>"& Search_Keywords &"</span>"
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 Check(frm){
  SubmitOnce(frm);
  return true;
}
function doDelete(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1条短信");
	 return false;
  }
  frm.action = "Admin_Message.asp?Action=Delete&DeleteType=3";
  if(confirm("确认要执行删除选定的短信吗？")){
     frm.submit();
	 return;
  }
  return false;
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<form name="myform" action="Admin_Message.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="3%" align="center" nowrap class="top_item"><strong>选择</strong></td>
    <td width="5%" align="center" nowrap class="top_item"><strong>ID</strong></td>
    <td width="10%" align="center" nowrap class="top_item"><strong>发信人</strong></td>
    <td width="10%" align="center" nowrap class="top_item"><strong>收信人</strong></td>
    <td width="41%" align="center" nowrap class="top_item"><strong>短信标题</strong></td>
    <td width="19%" align="center" nowrap class="top_item"><strong>发送日期</strong></td>
    <td width="5%" align="center" nowrap class="top_item"><strong>已读</strong></td>
    <td width="7%" align="center" nowrap class="top_item"><strong>操作</strong></td>
  </tr>
  <%
   If RowCount = 0 Then
      Response.Write "<tr><td class='td_50' colspan=8>没有任何短信数据</td></tr>"
   Else
      rsMessage.Open()
	  For i = 1 To RowCount
  %>
  <tr class="td_25" onMouseOver="this.className='MouseOver_25'" onMouseOut="this.className='td_25'">
    <td align="center"><input name="CheckObject" type="checkbox" id="CheckObject" value="<%=rsMessage("MessageID")%>"></td>
    <td align="center"><%=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="Admin_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="Admin_Message.asp?Action=Delete&DeleteType=4&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><%Call 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" class="td_topline">
	<%
	  Dim Disabled
	  If RowCount = 0 Then Disabled = "disabled"
	%>
	  <input type="button" name="Submit" value="删除选定短信" onClick="doDelete()" <%=Disabled%>>
      </td>
  </tr>
</table>
</form>

<form name="search" method="get" action="<%=EL_CurrentScriptName%>">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="8%" nowrap class="td_50">短信搜索：</td>
    <td width="92%" class="td_50">
	  <select name="Search_Field" id="Search_Field">
	    <option value="Title">短信标题</option>
		<option value="Content">短信内容</option>
	    <option value="Sender">发信人</option>
	    <option value="Receiver">收信人</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

Function ShowGroupCheck(ByVal DefaultGroupID)
   Dim GroupCmd, rsGroup, ReturnString, i, RowCount
   Call EL_Common.InitCommonCmd(GroupCmd, rsGroup, "EL_Group", "GroupID,GroupName", "1=1")
   rsGroup.Close()
   RowCount = GroupCmd(0)
   rsGroup.Open()
   ReturnString = ""
   For i = 1 To RowCount
      If DefaultGroupID = rsGroup(0) Then
	     ReturnString = ReturnString &"<input name='CheckGroup' id='CheckGroup' type='checkbox' value='"& rsGroup(0) &"' checked class='nomargin'> "& EL_Common.ServerHTMLEncode(rsGroup(1)) &" "
	  Else
	     ReturnString = ReturnString &"<input name='CheckGroup' id='CheckGroup' type='checkbox' value='"& rsGroup(0) &"' class='nomargin'> "& EL_Common.ServerHTMLEncode(rsGroup(1)) &" "
	  End If
	  If i<RowCount Then rsGroup.MoveNext
   Next
   rsGroup.Close()
   Set rsGroup = Nothing
   Set GroupCmd = Nothing
   ShowGroupCheck = ReturnString
End Function

%>
</body>
</html>