📄 admin_message.asp

📁 正版创力4.1SQL商业版!!!ASP版。
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueOtherPurview("Message") then
	Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
dim Action
Dim Title, Message, Numc
Action=Trim(Request("Action"))
Header
Select Case Action
Case "add"
	call savemsg()
Case "del"
	Call Del()
Case "delall"
	call delall()
Case "delchk"
	call delchk()
Case "MessageSearch"
	Call MessageSearch()
Case "删 除 短 信"
	Call DelMsg()
Case else
	call sendmsg()
end Select
Footer

Sub SendMsg()
%>
<table cellpadding="2" cellspacing="1" border="0" width="97%" class="Border" align="center">
<tr><th align="left" colspan="9" height="23" width="97%"><p align="center">短信高级管理</p></th></tr>
<tr>
<td width="118" class="tdbg">注意事项</td>
<td width="744" class="tdbg" colspan="8">
	①点删除按钮将删除所选定的用户短信息，此操作是不可逆的<br />
	②您可以批量删除所选定的短信息<br />
	③<b><font color="red">清空短信</font></b>将删除所有的论坛短信息，请慎重使用 </td>
</tr>
<tr>
<td width="118" class="tdbg">快速搜索</td>
<td width="744" class="tdbg" colspan="8">
<select size="1" onchange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}">
<option value="Admin_Message.asp?action=MessageSearch&amp;MessageSearch=0">请选择查询条件</option>
<option value="Admin_Message.asp?action=MessageSearch&amp;MessageSearch=1" <%if request("MessageSearch")=1 then%>selected<%end if%>>列出用户所有短信</option>
<option value="Admin_Message.asp?action=MessageSearch&amp;MessageSearch=2" <%if request("MessageSearch")=2 then%>selected<%end if%>>用户已删除的短信</option>
<option value="Admin_Message.asp?action=MessageSearch&amp;MessageSearch=3" <%if request("MessageSearch")=3 then%>selected<%end if%>>用户已查看的短信</option>
<option value="Admin_Message.asp?action=MessageSearch&amp;MessageSearch=4" <%if request("MessageSearch")=4 then%>selected<%end if%>>用户未查看的短信</option>
<option value="Admin_Message.asp?action=MessageSearch&amp;MessageSearch=5" <%if request("MessageSearch")=5 then%>selected<%end if%>>用户已发送的短信</option>
<option value="Admin_Message.asp?action=MessageSearch&amp;MessageSearch=6" <%if request("MessageSearch")=6 then%>selected<%end if%>>最近24小时内发送</option>
</select>
</td></tr>
<%if request("action")="" or request("MessageSearch")="0" then%>
<form action="Admin_Message.asp" method="get">
<tr><th align="left" colspan="9" height="23" width="97%"><p align="center">高级查询</p></th></tr>
<tr>
<td width="118" class="tdbg">注意事项</td>
<td width="744" class="tdbg" colspan="8">在记录很多的情况下搜索条件越多查询越慢，请尽量减少查询条件；最多显示记录数也不宜选择过大</td>
</tr>
<tr>
<td width="118" class="tdbg">最多显示记录数</td>
<td width="744" class="tdbg" colspan="8"><input size="45" name="searchMax" type="text" value="100" /></td>
</tr>
<tr>
<td width="118" class="tdbg">发送者</td>
<td width="744" class="tdbg" colspan="8"><input size="45" name="sender" type="text" />
  &nbsp;
    <input type="checkbox" name="senderchk" value="yes" checked="checked" />
    发送者名完整匹配</td>
</tr>
<tr>
<td width="118" class="tdbg">接收者</td>
<td width="744" class="tdbg" colspan="8"><input size="45" name="incept" type="text" />
  &nbsp;
    <input type="checkbox" name="inceptchk" value="yes" checked="checked" />
    接收者名完整匹配</td>
</tr>
<tr>
<td width="118" class="tdbg">标题包含</td>
<td width="744" class="tdbg" colspan="8"><input size="45" name="title" type="text" /></td>
</tr>
<tr>
<td width="118" class="tdbg">内容包含</td>
<td width="744" class="tdbg" colspan="8"><input size="45" name="content" type="text" /></td>
</tr>
<tr>
<td width="97%" class="tdbg" align="center" colspan="9"><input name="submit" type="submit" value="   搜  索   " /></td>
</tr>
<input type="hidden" value="9" name="MessageSearch" />
<input type="hidden" value="MessageSearch" name="Action" />
</form>
<%End If%>
</table>
<br />
<table border="0" cellspacing="1" cellpadding="0" align="center" class="border">
  <tr align="center"> 
    <td colspan="2" class="title">发送短消息</td>
  </tr>
  <form action="Admin_Message.asp?action=add" method="post">
  	<tr>
		<td class="tdbg" align="right">用户类别：</td>
		<td class="tdbg">
		  <input type="radio" name="UserType" value="1" checked="checked" onclick="UType(this.value)" />
		用户名单
		<input type="radio" name="UserType" value="2" onclick="UType(this.value)" />
		用户组
		<input type="radio" name="UserType" value="0" onclick="UType(this.value)" />
		所有用户
		</td>
	</tr>
	<tr id="ToUserName">
		<td class="tdbg" align="right">用 户 名：</td>
		<td class="tdbg"> <input type="text" name="UserName" size="80" />
		<br />
		请输入用户名：(多个用户名请以英文逗号“,”分隔,注意区分大小写)</td>
	</tr>
	<tr id="ToUserGroupID" style="display:none;">
		<td class="tdbg" align="right">用 户 组：</td>
		<td class="tdbg">
			<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
			<tr><td>
			<%
			Dim Node
			For Each Node In Application(Cl.CacheName & "_usergrouplist").DocumentElement.selectNodes("usergroup[@id!=5]")
			Response.write "<input type=""checkbox"" name=""UserGroupID"" value="""&Node.selectSingleNode("@id").text&""" />"&Node.selectSingleNode("@groupname").text&"&nbsp;"
			Next
			Set Node = Nothing
			%>
			</td></tr>
			<tr><td height="20" class="tdbg"><input type="button" value="打开高级设置" name="OPENSET" onclick="openset(this,'UpSetting')" /></td></tr>
			<tr><td height="20" id="UpSetting" style="display:none" class="tdbg">
				<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
				<tr><td height="20" colspan="4">符合条件设置(以下条件将对选择的用户组生效)</td>
				</tr>
				<tr>
					<td class="tdbg" width="15%">最后登陆时间：</td>
					<td class="tdbg" width="35%">
					  <input type="text" name="LoginTime" onkeyup="CheckNumer(this.value,this,'')" size="6" />
					天 &nbsp;
					<input type="radio" name="LoginTimeType" checked="checked" value="0" />
					多于 
					<input type="radio" name="LoginTimeType" value="1" />
					少于
					</td>
					<td class="tdbg" width="15%">注册时间：</td>
					<td class="tdbg" width="35%">
					  <input type="text" name="RegTime" onkeyup="CheckNumer(this.value,this,'')" size="6" />
					天 &nbsp;
					<input type="radio" name="RegTimeType" checked="checked" value="0" />
					多于 
					<input type="radio" name="RegTimeType" value="1" />
					少于
					</td>
				</tr>
				<tr>
					<td class="tdbg">登陆次数：</td>
					<td class="tdbg"><input type="text" name="Logins" size="6" onkeyup="CheckNumer(this.value,this,'')" />
					次 &nbsp;
					<input type="radio" name="LoginsType" checked="checked" value="0" />
					多于 
					<input type="radio" name="LoginsType" value="1" />
					少于
					</td>
					<td class="tdbg">发表文章：</td>
					<td class="tdbg"><input type="text" name="UserArticle" size="6" onkeyup="CheckNumer(this.value,this,'')" />
					篇 &nbsp;
					<input type="radio" name="UserArticleType" checked="checked" value="0" />
					多于 
					<input type="radio" name="UserArticleType" value="1" />
					少于</td>
			  </tr></table>
			</td></tr></table>
		</td>
	</tr>
    <tr> 
      <td width="20%" class="tdbg" align="right">消息标题：</td>
      <td width="80%" class="tdbg"> 
        <input type="text" name="title" size="80" />
      </td>
    </tr>
    <tr> 
      <td width="20%" class="tdbg" align="right">消息内容：</td>
      <td width="80%" class="tdbg"> 
        <textarea name="message" cols="78" rows="10"></textarea>
      </td>
    </tr>
    <tr> 
      <td width="20%" class="tdbg"></td>
      <td width="80%" class="tdbg" align="center"> 
          <input type="submit" name="Submit" value="发送消息" />
          <input type="reset" name="Submit2" value="重新填写" />
      </td>
    </tr>
  </form>
</table>
<br />
<table border="0" cellspacing="1" cellpadding="3" align="center" class="border">
  <tr align="center"> 
    <td colspan="2" class="title">短消息管理(批量删除)</td>
  </tr>
  <form action="Admin_Message.asp?action=del" method="post">
  </form>
  <form action="Admin_Message.asp?action=delall" method="post">
    <tr> 
      <td colspan="2" class="tdbg"> 批量删除用户指定日期内短消息（默认为删除已读信息）：<br />
        <select name="delDate">
          <option value="7">一个星期前</option>
          <option value="30">一个月前</option>
          <option value="60">两个月前</option>
          <option value="180">半年前</option>
          <option value="all">所有信息</option>
        </select>
        &nbsp; 
        <input type="checkbox" name="isread" value="yes">
        包括未读信息 
        <input type="submit" name="Submit" value="提 交">
      </td>
    </tr>
  </form>
  <form action="Admin_Message.asp?action=delchk" method="post">
    <tr> 
      <td colspan="2" class="tdbg"> 批量删除含有某关键字短信（注意：本操作将删除所有已读和未读信息）：<br />
        关键字： 
        <input type="text" name="keyword" size="30">
        &nbsp;在 
        <select name="selaction">
          <option value="1">标题中</option>
          <option value="2">内容中</option>
        </select>
        &nbsp; 
        <input type="submit" name="Submit" value="提 交">
      </td>
    </tr>
  </form>
</table>
<script language="JavaScript" type="text/javascript">
<!--
function openset(v,s){
	if (v.value=='打开高级设置'){
		document.getElementById(s).style.display = "";
		v.value="关闭高级设置";
	}
	else{
		v.value="打开高级设置";
		document.getElementById(s).style.display = "none";
	}
}
function UType(n){
	if (n==1){
		document.getElementById("ToUserName").style.display = "";
		document.getElementById("ToUserGroupID").style.display = "none";
	}
	else if(n==2){
		document.getElementById("ToUserName").style.display = "none";
		document.getElementById("ToUserGroupID").style.display = "";
	}
	else{
		document.getElementById("ToUserName").style.display = "none";
		document.getElementById("ToUserGroupID").style.display = "none";
	}
}
//-->
</script>
<%
end sub

Sub del()
	if request("username")="" then
		Cl.ShowErr("<br />请输入要批量删除的用户名。")
		Exit Sub
	end if
	sql="delete from "&Db.MessageTable&" where sender='"&request("username")&"'"
	if UserTableType="Dvbbs" then
		Cl.Execute_U(sql)
	else
		Cl.Execute(sql)
	end if
	Cl.SaveAdminLog
	Call Cl.ShowSuc("<br />操作成功！请继续别的操作。")
End Sub

sub delall()
	dim selflag
	if request("isread")="yes" then
	selflag=""
	else
	selflag=" and flag=1"
	end if
	if IsSQLDataBase_U=1 then
		select case request("delDate")
		case "all"
		sql="delete from "&Db.MessageTable&" where id>0 "&selflag
		case 7
		sql="delete from "&Db.MessageTable&" where datediff(d,sendtime,GetDate())>7 "&selflag
		case 30
		sql="delete from "&Db.MessageTable&" where datediff(d,sendtime,GetDate())>30 "&selflag
		case 60
		sql="delete from "&Db.MessageTable&" where datediff(d,sendtime,GetDate())>60 "&selflag
		case 180
		sql="delete from "&Db.MessageTable&" where datediff(d,sendtime,GetDate())>180 "&selflag
		end select
	else
		select case request("delDate")
		case "all"
		sql="delete from "&Db.MessageTable&" where id>0 "&selflag
		case 7
		sql="delete from "&Db.MessageTable&" where datediff('d',sendtime,Now())>7 "&selflag
12 3 下一页
⌨️ 快捷键说明

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