📄 user_message.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New Admin_UserMessage
KSCls.Execute()
Set KSCls = Nothing
Class Admin_UserMessage
Private KSCMS
Private Action
Private Title, Message, Numc
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
Public Sub Execute()
If Not KSCMS.ReturnPowerResult(0, "KMUA10002") Then
Write ("<script>parent.frames['BottomFrame'].location.href='javascript:history.back();';</script>")
Call KSCMS.ReturnErr(1, "")
End If
Response.Write "<html>"
Response.Write"<head>"
Response.Write"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
Response.Write"<link href=""../Inc/Admin_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
Response.Write "<script src=""../JS/Common.js"" language=""JavaScript""></script>"
Response.Write"</head>"
Response.Write"<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"
Response.Write"<table width=""100%"" height=""25"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Response.Write " <tr>"
Response.Write" <td height=""25"" align=""center"" class=""sort""> "
Response.Write " <strong>用户短信管理</strong>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write"</TABLE>"
Action=Trim(Request("Action"))
Select Case Action
Case "add"
call savemsg()
Case "delall"
call delall()
Case "delchk"
call delchk()
Case else
call sendmsg()
end Select
Response.Write "<div style=""text-align:center;color:#003300"">-----------------------------------------------------------------------------------------------------------</div>"
Response.Write "<div style=""height:30px;text-align:center"">KeSion CMS V 2.2, Copyright (c) 2006-2008 <a href=""http://www.kesion.com/"" target=""_blank""><font color=#ff6600>KeSion.Com</font></a>. All Rights Reserved . </div>"%>
</body>
</html>
<%
End Sub
Sub SendMsg()
%>
<div style="margin-top:10px;height:25px;text-align:center">发送短消息</div>
<table width="80%" border="0" align=center cellpadding="0" cellspacing="1" bgcolor="#cccccc" class="border">
<form action="User_Message.asp?action=add" method=post>
<tr>
<td height="25" align="right" bgcolor="#F4F4EA">用户类别：</td>
<td bgcolor="#FFFFFF">
<Input type="radio" name="UserType" value="1" 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 height="25" align="right" bgcolor="#F4F4EA">用 户 名：</td>
<td bgcolor="#FFFFFF"> <INPUT TYPE="text" NAME="UserName" size="80"><br>
请输入用户名：(多个用户名请以英文逗号“,”分隔,注意区分大小写)</td>
</tr>
<tr id="ToGroupID" style="display:none;">
<td height="25" align="right" bgcolor="#F4F4EA">用 户 组：</td>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="1" cellpadding="3" align=center>
<tr><td>
<%=KSCMS.GetUserGroup_CheckBox(0,5)
%>
</td></tr>
<tr><td height=20><input type="button" value="打开高级设置" NAME="OPENSET" onclick="openset(this,'UpSetting')"></td></tr>
<tr><td height=20 ID="UpSetting" style="display:NONE">
<table width="100%" border="0" cellspacing="1" cellpadding="3" align=center>
<tr><td height=20 colspan="4">符合条件设置(以下条件将对选择的用户组生效)</td></tr>
<tr>
<td width="15%">最后登陆时间：</td>
<td width="35%">
<input type="text" name="LoginTime" onkeyup="CheckNumber(this,'天数')" size=6>天 <INPUT TYPE="radio" NAME="LoginTimeType" checked value="0">多于 <INPUT TYPE="radio" NAME="LoginTimeType" value="1">少于 </td>
<td width="15%">注册时间：</td>
<td width="35%">
<input type="text" name="RegTime" onkeyup="CheckNumber(this,'天数')" size=6>天 <INPUT TYPE="radio" NAME="RegTimeType" checked value="0">多于 <INPUT TYPE="radio" NAME="RegTimeType" value="1">少于 </td>
</tr>
<tr>
<td>登陆次数：</td>
<td><input type="text" name="Logins" size=6 onkeyup="CheckNumber(this,'次数')">次 <INPUT TYPE="radio" NAME="LoginsType" checked value="0">多于 <INPUT TYPE="radio" NAME="LoginsType" value="1">少于 </td>
<td>发表文章：</td>
<td><input type="text" name="UserArticle" size=6 onkeyup="CheckNumber(this,'篇数')">篇 <INPUT TYPE="radio" NAME="UserArticleType" checked value="0">多于 <INPUT TYPE="radio" NAME="UserArticleType" value="1">少于</td>
</tr></table>
</td></tr></table> </td>
</tr>
<tr>
<td width="20%" height="25" align="right" bgcolor="#F4F4EA" class=tdbg>消息标题：</td>
<td width="80%" bgcolor="#FFFFFF" class=tdbg>
<input type="text" name="title" size="80"> </td>
</tr>
<tr>
<td width="20%" height="25" align="right" bgcolor="#F4F4EA" class=tdbg>消息内容：</td>
<td width="80%" bgcolor="#FFFFFF" class=tdbg>
<textarea name="message" cols="78" rows="10"></textarea> </td>
</tr>
<tr>
<td height="25" colspan="2" align="center" bgcolor="#FFFFFF" class=tdbg>
<input type="submit" name="Submit" value="发送消息">
<input type="reset" name="Submit2" value="重新填写"> </td>
</tr>
</form>
</table>
<br>
<table width="80%" border="0" align=center cellpadding="3" cellspacing="1" bgcolor="#cccccc" class="border">
<tr align="center">
<td height="25" colspan="2" bgcolor="#F4F4EA" class="title">短消息管理(批量删除)</td>
</tr>
<form action="User_Message.asp?action=del" method=post>
</form>
<form action="User_Message.asp?action=delall" method=post>
<tr>
<td colspan="2" bgcolor="#FFFFFF" class=tdbg> 批量删除用户指定日期内短消息（默认为删除已读信息）：<br>
<select name="delDate" size=1>
<option value=7>一个星期前</option>
<option value=30>一个月前</option>
<option value=60>两个月前</option>
<option value=180>半年前</option>
<option value="all">所有信息</option>
</select>
<input type="checkbox" name="isread" value="yes">
包括未读信息
<input type="submit" name="Submit" value="提 交">
</td>
</tr>
</form>
<form action="User_Message.asp?action=delchk" method=post>
<tr>
<td colspan="2" bgcolor="#FFFFFF" class=tdbg> 批量删除含有某关键字短信（注意：本操作将删除所有已读和未读信息）：<br>
关键字：
<input type="text" name="keyword" size=30>
在
<select name="selaction" size=1>
<option value=1>标题中</option>
<option value=2>内容中</option>
</select>
<input type="submit" name="Submit" value="提 交">
</td>
</tr>
</form>
</table>
<SCRIPT LANGUAGE="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("ToGroupID").style.display = "none";
}
else if(n==2){
document.getElementById("ToUserName").style.display = "none";
document.getElementById("ToGroupID").style.display = "";
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -