📄 admin_message.asp
字号:
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewCloud Site Management System Version 2.1
' 文件名称：admin_message.asp
' 更新日期：2005-4-15
' 官方网站：新云网络(www.newasp.net www.newasp.cn) QQ：94022511
'=====================================================================
' Copyright 2002-2005 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim Action
If Not ChkAdmin("SendMessage") Then
Server.Transfer("showerr.asp")
Response.End
End If
Action = LCase(Request("action"))
Select Case Trim(Action)
Case "save"
Call SaveNewMessage
Case "del"
Call DeleteMessage
Case "delall"
Call DeleteAllMessage
Case Else
Call showmain
End Select
If FoundErr = True Then
ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Sub showmain()
Dim RsObj
Response.Write "<script language=JavaScript>" & vbNewLine
Response.Write "var _maxCount = '64000';" & vbNewLine
Response.Write "function doSubmit(){" & vbNewLine
Response.Write " if (document.myform.topic.value==''){" & vbNewLine
Response.Write " alert('短信标题不能为空！');" & vbNewLine
Response.Write " return false;" & vbNewLine
Response.Write " }" & vbNewLine
Response.Write " myform.content1.value = Composition.document.body.innerHTML; " & vbNewLine
Response.Write " MessageLength = Composition.document.body.innerHTML.length;" & vbNewLine
Response.Write " if(MessageLength < 2){" & vbNewLine
Response.Write " alert('短信内容不能小于2个字符！');" & vbNewLine
Response.Write " return false;" & vbNewLine
Response.Write " }" & vbNewLine
Response.Write " if(MessageLength > _maxCount){" & vbNewLine
Response.Write " alert('短信的内容不能超过'+_maxCount+'个字符！');" & vbNewLine
Response.Write " return false;" & vbNewLine
Response.Write " }" & vbNewLine
Response.Write " document.myform.Submit1.disabled = true;" & vbNewLine
Response.Write " document.myform.submit();" & vbNewLine
Response.Write "}" & vbNewLine
Response.Write "</script>" & vbNewLine
Response.Write "<table cellspacing=1 align=center cellpadding=3 border=0 class=tableborder>"
Response.Write " <tr>"
Response.Write " <th colspan=2> >>用户短信管理<< </th>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=TableRow1 colspan=2>共有用户短信：<b><font color=red>" & AllUsersmsnum & "</font></b> 条 今日用户短信：<b><font color=red>" & DayUsersmsnum & "</font></b> 条 <a href=""?action=del"" onclick=""return confirm('您确定要删除所有用户短信吗?')"" class=showmeun>删除所有用户短信</a></td>"
Response.Write " </tr>"
Response.Write " <form name=form1 method=post action='admin_message.asp?action=del'>"
Response.Write " <tr>"
Response.Write " <td class=TableRow2 colspan=2> <b>批量删除某用户的短信：</b>"
Response.Write "<input type=text name=username size=30> <input type=submit value="" 提 交 "" class=button onclick=""return confirm('您确定要删除此用户短信吗?')"">"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " </form>"
Response.Write " <form name=form2 method=post action='admin_message.asp?action=delall'>"
Response.Write " <tr>"
Response.Write " <td class=TableRow2 colspan=2><b>批量删除指定日期内短信：</b>"
Response.Write " <select name=delDate size=1>"
Response.Write " <option value=7>一个星期前</option>"
Response.Write " <option value=30>一个月前</option>"
Response.Write " <option value=60>两个月前</option>"
Response.Write " <option value=180>半年前</option>"
Response.Write " <option value=""all"">所有短信</option>"
Response.Write " </select>"
Response.Write " <input type=checkbox name=isread value='yes'>包括未读信息"
Response.Write " <input type=submit name=Submit value="" 提 交 "" class=button onclick=""return confirm('您确定要删除此短信吗?')"">"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " </form>"
Response.Write " <tr>"
Response.Write " <th colspan=2> >>短信群发<< </th>"
Response.Write " </tr>"
Response.Write " <form name=myform method=post action='admin_message.asp?action=save'>"
Response.Write " <tr>"
Response.Write " <td class=TableRow1 align=right><b>短信标题:</b></td>"
Response.Write " <td class=TableRow1><input type=text name=topic maxlength=70 size=70 value=''></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=TableRow2 align=right><b>收件人:</b></td>"
Response.Write " <td class=TableRow2>"
Response.Write " <select name=UserGroup size='1'>"
Set RsObj = Newasp.Execute("Select GroupName,Grades From NC_UserGroup order by Groupid")
Do While Not RsObj.EOF
Response.Write " <option value=""" & RsObj("Grades") & """"
If RsObj("Grades") = 0 Then Response.Write " selected"
Response.Write ">"
If RsObj("Grades") = 0 Then
Response.Write "所有用户"
Else
Response.Write RsObj("GroupName")
End If
Response.Write "</option>" & vbCrLf
RsObj.movenext
Loop
Set RsObj = Nothing
Response.Write " </select>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=TableRow1 align=right><b>短信内容:</b></td>"
Response.Write " <td class=TableRow1><textarea name='content1' id='content1' style='display:none'></textarea>"
Response.Write " <script Language=Javascript src=""../editor/editor1.js""></script>"
Response.Write " <input type=radio name=isshow value=1 checked>显示发送过程 <input type=radio name=isshow value=0 > 不显示发送过程（速度较快）</td>" & vbNewLine
Response.Write " </tr>"
Response.Write " <tr align=center>"
Response.Write " <td class=TableRow2 colspan=2><input type=""button"" name=""Submit1"" value="" 发送短信 "" onclick=""doSubmit();"" class=button></td>"
Response.Write " </tr><form>"
Response.Write "</table>"
End Sub
Sub SaveNewMessage()
Dim strTopic,strContent,sender
Dim UserGrade,isshow,i,smsnum,userlist
isshow = CInt(Request("isshow"))
If Trim(Request("topic")) = "" Then
ErrMsg = "<li>短信标题不能为空。</li>"
FoundErr = True
Exit Sub
Else
strTopic = Newasp.CheckStr(Request("topic"))
End If
If Trim(Request("content1")) = "" Then
ErrMsg = "<li>短信内容不能为空。</li>"
FoundErr = True
Exit Sub
Else
strContent = Newasp.CheckStr(Request("content1"))
End If
sender = Newasp.SiteName
UserGrade = CInt(Request("UserGroup"))
If CInt(Request("UserGroup")) = 0 Then
SQL = "INSERT INTO NC_Message (sender,incept,title,content,flag,SendTime,isRead,delSend) VALUES ('"& sender &"','所有用户','"& strTopic &"','"& strContent &"',1,"& NowString &",0,0) "
Newasp.Execute(SQL)
Newasp.Execute ("UPDATE NC_User SET usermsg=usermsg+1")
Succeed("<li>发送所有用户短信成功！</li>")
Exit Sub
Else
SQL = "SELECT COUNT(userid) FROM [NC_User] WHERE UserGrade="& UserGrade
Set Rs = Newasp.Execute(SQL)
smsnum = Rs(0)
Rs.Close
SQL = "SELECT username FROM [NC_User] WHERE UserGrade="& UserGrade &" ORDER BY userid DESC"
End If
Response.Write "<br><table width='400' align=center border=0 cellspacing=1 cellpadding=1>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td>下面开始发送短消息，预计本次发送" & smsnum & "个用户。</td></tr>" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td style=""border: 1px #384780 solid ;background-color: #FFFFFF;"">" & vbCrLf
Response.Write "<table width=0 id=table2 name=table2 border=0 cellspacing=0 cellpadding=0>" & vbCrLf
Response.Write "<tr height=12><td bgcolor=#36D91A>" & vbCrLf
Response.Write "</td></tr></table></td></tr><tr> " & vbCrLf
Response.Write "<td> <span id=txt2 name=txt2 style=""font-size:9pt"">0</span></td></tr>" & vbCrLf
Response.Write "</table><br>" & vbCrLf
Response.Flush
Set Rs = Newasp.Execute(SQL)
If Not (Rs.EOF And Rs.BOF) Then
userlist=Rs.GetRows(-1)
Set Rs = Nothing
For i=0 to UBound(userlist,2)
userlist(0,i)=Newasp.CheckStr(userlist(0,i))
If Response.IsClientConnected Then
If isshow = 1 Then
Response.Write "<script>" & vbCrLf
Response.Write "table2.style.width=" & Fix((i / smsnum) * 400) & ";" & vbCrLf
Response.Write "txt2.innerHTML=""" & FormatNumber(i / smsnum * 100, 2, -1) & "，发送短信给" & userlist(0,i) & "成功！"";" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Flush
End If
SQL = "INSERT INTO NC_Message (sender,incept,title,content,flag,SendTime,isRead,delSend) VALUES ('"& sender &"','"& userlist(0,i) &"','"& strTopic &"','"& strContent &"',0,"& NowString &",0,0) "
Newasp.Execute(SQL)
Newasp.Execute ("UPDATE NC_User SET usermsg=usermsg+1 WHERE username='"& userlist(0,i) &"'")
End If
Next
Response.Write "<script>table2.style.width=400;txt2.innerHTML=""100%，发送完成..."";</script>"
Response.Flush
End If
Succeed("<li>发送用户短信完成！请继续其它操作。</li>")
End Sub
Sub DeleteMessage()
If Trim(Request("username")) = "" Then
ErrMsg = "<li>请输入要批量删除的用户名。</li>"
FoundErr = True
Exit Sub
End If
SQL = "DELETE FROM NC_Message WHERE Sender='" & Newasp.CheckStr(Request("username")) & "'"
Newasp.Execute(SQL)
Newasp.Execute ("UPDATE NC_User SET usermsg=0 WHERE username='"& Newasp.CheckStr(Request("username")) &"'")
Succeed("<li>删除用户：" & Request("username") & " 的短信成功！</li>")
End Sub
Sub DeleteAllMessage()
Dim selRead, summid,i
If Request("isread") = "yes" Then
selRead = " ORDER BY id"
Else
selRead = " And isRead = 1 ORDER BY id"
End If
Select Case Request("delDate")
Case "all"
If Request("isread") = "yes" Then
Newasp.Execute("DELETE FROM NC_Message")
Else
Newasp.Execute("DELETE FROM NC_Message WHERE isRead > 0")
End If
Succeed("<li>删除所有用户短信成功！</li>")
Exit Sub
Case 7
If IsSqlDataBase = 1 Then
SQL = "SELECT id FROM NC_Message WHERE DATEDIFF(d, Sendtime, GetDate()) > 7 " & selRead
Else
SQL = "SELECT id FROM NC_Message WHERE DATEDIFF('d', Sendtime, Now()) > 7 " & selRead
End If
Case 30
If IsSqlDataBase = 1 Then
SQL = "SELECT id FROM NC_Message WHERE DATEDIFF(d, Sendtime, GetDate()) > 30 " & selRead
Else
SQL = "SELECT id FROM NC_Message WHERE DATEDIFF('d', Sendtime, Now()) > 30 " & selRead
End If
Case 60
If IsSqlDataBase = 1 Then
SQL = "SELECT id FROM NC_Message WHERE DATEDIFF(d, Sendtime, GetDate()) > 60 " & selRead
Else
SQL = "SELECT id FROM NC_Message WHERE DATEDIFF('d', Sendtime, Now()) > 60 " & selRead
End If
Case 180
If IsSqlDataBase = 1 Then
SQL = "SELECT id FROM NC_Message WHERE DATEDIFF(d, Sendtime, GetDate()) > 180 " & selRead
Else
SQL = "SELECT id FROM NC_Message WHERE DATEDIFF('d', Sendtime, Now()) > 180 " & selRead
End If
End Select
Set Rs = Newasp.Execute(SQL)
summid = 0
If Not (Rs.EOF And Rs.BOF) Then
SQL = Rs.GetRows(-1)
Rs.Close:Set Rs = Nothing
For i = 0 To Ubound(SQL,2)
Newasp.Execute("DELETE FROM NC_Message WHERE id = " & SQL(0,i))
summid = summid + 1
Next
End If
Succeed("<li>共删除" & summid & "条用户短信成功！请继续别的操作。</li>")
Exit Sub
End Sub
Function AllUsersmsnum()
On Error Resume Next
AllUsersmsnum = Newasp.Execute("SELECT COUNT(id) FROM NC_Message")(0)
End Function
Function DayUsersmsnum()
On Error Resume Next
If isSqlDataBase = 1 Then
DayUsersmsnum = Newasp.Execute("SELECT COUNT(id) FROM NC_Message WHERE datediff(d,SendTime,GetDate())=0")(0)
Else
DayUsersmsnum = Newasp.Execute("SELECT COUNT(id) FROM NC_Message WHERE SendTime >= Date()")(0)
End If
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -