📄 admin_message.asp
字号:
<!--#include file="Admin_Common.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 2 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "Message" '其他权限
Dim MessageID
Response.Write "<html><head><title>短消息管理</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Call ShowPageTitle("短 消 息 管 理", 10046)
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='70' height='30'><strong>管理导航：</strong></td>" & vbCrLf
Response.Write " <td><a href='Admin_Message.asp'>短消息管理首页</a> | "
Response.Write " <a href='Admin_Message.asp?Action=Send'>发布网站消息</a> | "
Response.Write " <a href='Admin_Message.asp?Action=BatchDel'>批量删除操作</a> | "
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
MessageID = Trim(Request("MessageID"))
If IsValidID(MessageID) = False Then
MessageID = ""
End If
strFileName = "Admin_Message.asp?Action=" & Action & "&Field=" & strField & "&keyword=" & Keyword
Select Case Action
Case "Send"
Call Send
Case "Save"
Call Save
Case "Read"
Call Read
Case "BatchDel"
Call BatchDel
Case "DelUserMessage"
Call DelUserMessage
Case "DelChkMessage"
Call DelChkMessage
Case "Del"
Call Del
Case Else
Call main
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
Sub main()
Dim rsMessage, sqlMessage
Call ShowJS_Main("短消息")
Response.Write "<br><table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>"
Response.Write " <tr>"
Response.Write " <td height='22'>" & GetManagePath() & "</td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'><tr>"
Response.Write " <form name='myform' method='Post' action='Admin_Message.asp' onsubmit='return ConfirmDel();'>"
Response.Write " <td><table class='border' border='0' cellspacing='1' width='100%' cellpadding='0'>"
Response.Write " <tr class='title' height='22'> "
Response.Write " <td width='30' align='center'><strong>选中</strong></td>"
Response.Write " <td width='25' align='center'><strong>ID</strong></td>"
Response.Write " <td width='100' align='center' ><strong>发件人</strong></td>"
Response.Write " <td width='100' align='center' ><strong>收件人</strong></td>"
Response.Write " <td align='center' ><strong>短消息主题</strong></td>"
Response.Write " <td width='140' align='center' ><strong>日期</strong></td>"
Response.Write " <td width='70' align='center' ><strong>大小</strong></td>"
Response.Write " <td width='40' align='center' ><strong>已读</strong></td>"
Response.Write " <td width='60' align='center' ><strong>操作</strong></td>"
Response.Write " </tr>"
sqlMessage = "Select * From PE_Message where 1=1"
If Keyword <> "" Then
Select Case strField
Case "Title"
sqlMessage = sqlMessage & " and Title like '%" & Keyword & "%' "
Case "Content"
sqlMessage = sqlMessage & " and Content like '%" & Keyword & "%' "
Case "Incept"
sqlMessage = sqlMessage & " and Incept='" & Keyword & "' "
Case "Sender"
sqlMessage = sqlMessage & " and Sender='" & Keyword & "' "
Case Else
sqlMessage = sqlMessage & " and Title like '%" & Keyword & "%' "
End Select
End If
sqlMessage = sqlMessage & " order by ID desc"
Set rsMessage = Server.CreateObject("adodb.recordset")
rsMessage.Open sqlMessage, Conn, 1, 1
If rsMessage.BOF And rsMessage.EOF Then
totalPut = 0
Response.Write "<tr class='tdbg'><td colspan='20' align='center'><br>没有任何短消息！<br><br></td></tr>"
Else
totalPut = rsMessage.RecordCount
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage > 1 Then
If (CurrentPage - 1) * MaxPerPage < totalPut Then
rsMessage.Move (CurrentPage - 1) * MaxPerPage
Else
CurrentPage = 1
End If
End If
Dim MessageNum
MessageNum = 0
Do While Not rsMessage.EOF
Response.Write " <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
Response.Write " <td width='30' align='center'><input name='MessageID' type='checkbox' onclick='unselectall()' id='MessageID' value='" & rsMessage("ID") & "'></td>"
Response.Write " <td width='25' align='center'>" & rsMessage("ID") & "</td>"
Response.Write " <td width='100' align='center' >" & rsMessage("Sender") & "</td>"
Response.Write " <td width='100' align='center' >" & rsMessage("Incept") & "</td>"
Response.Write " <td>"
Response.Write "<a href='Admin_Message.asp?Action=Read&MessageID=" & rsMessage("ID") & "'>"
If rsMessage("Flag") = 1 Then
Response.Write PE_HTMLEncode(rsMessage("Title"))
Else
Response.Write "<font color=blue>" & PE_HTMLEncode(rsMessage("Title")) & "</font>"
End If
Response.Write "</a></td>"
Response.Write " <td width='140' align='center'>" & rsMessage("SendTime") & "</td>"
Response.Write " <td width='70' align='center'>" & Len(rsMessage("Content")) & "Byte</td>"
Response.Write " <td width='40' align='center'>"
If rsMessage("Flag") = 1 Then
Response.Write "<font color=green><b>√</b></font>"
Else
Response.Write "<font color=red><b>×</b></font>"
End If
Response.Write " </td>"
Response.Write " <td width='60' align='center'>"
Response.Write "<a href='Admin_Message.asp?Action=Del&MessageID=" & rsMessage("ID") & "' onclick=""return confirm('确定要删除此短消息吗？');"">删除</a>"
Response.Write "</td>"
Response.Write "</tr>"
MessageNum = MessageNum + 1
If MessageNum >= MaxPerPage Then Exit Do
rsMessage.MoveNext
Loop
End If
rsMessage.Close
Set rsMessage = Nothing
Response.Write "</table>"
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>"
Response.Write " <tr>"
Response.Write " <td width='130' height='30'><input name='chkAll' type='checkbox' id='chkAll' onclick='CheckAll(this.form)' value='checkbox'>选中所有的短消息</td><td>"
Response.Write "<input type='submit' value='删除选定的短消息' name='submit' onClick=""document.myform.Action.value='Del'""> "
Response.Write "<input name='Action' type='hidden' id='Action' value=''>"
Response.Write " </td></tr>"
Response.Write "</table>"
Response.Write "</td>"
Response.Write "</form></tr></table>"
If totalPut > 0 Then
Response.Write ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "条短消息", True)
End If
Response.Write "<br><table width='100%' border='0' cellpadding='0' cellspacing='0' class='border'>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='90' align='right'><strong>短消息搜索：</strong></td>"
Response.Write " <td>" & GetMessageSearch() & "</td>"
Response.Write " </tr>"
Response.Write "</table>"
End Sub
Sub ShowJS_Send()
Response.Write "<script language = 'JavaScript'>" & vbCrLf
Response.Write "function SelectUser(){" & vbCrLf
Response.Write " var arr=showModalDialog('Admin_SourceList.asp?TypeSelect=UserList&DefaultValue='+document.myform.InceptUser.value,'','dialogWidth:600px; dialogHeight:450px; help: no; scroll: yes; status: no');" & vbCrLf
Response.Write " if (arr != null){" & vbCrLf
Response.Write " document.myform.InceptUser.value=arr;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "function CheckForm(){" & vbCrLf
Response.Write " if (document.myform.Sender.value==''){" & vbCrLf
Response.Write " alert('消息发送人不能为空！');" & vbCrLf
Response.Write " document.myform.Sender.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if (document.myform.Title.value==''){" & vbCrLf
Response.Write " alert('短消息标题不能为空！');" & vbCrLf
Response.Write " document.myform.Title.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " document.myform.Content.value=editor.HtmlEdit.document.body.innerHTML; " & vbCrLf
Response.Write " if (document.myform.Content.value==''){" & vbCrLf
Response.Write " alert('短消息内容不能为空！');" & vbCrLf
Response.Write " document.myform.Content.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " return true; " & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
End Sub
Sub Send()
Call ShowJS_Send
Dim UserType, UserName
UserType = PE_CLng(Trim(Request("UserType")))
UserName = Trim(Request("UserName"))
Response.Write "<br><table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>"
Response.Write " <tr>"
Response.Write " <td height='22'>" & GetManagePath() & "</td>"
Response.Write " </tr>"
Response.Write "</table><br>"
Response.Write "<form method='POST' name='myform' onSubmit='return CheckForm();' action='Admin_Message.asp' target='_self'>"
Response.Write " <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr class='title'>"
Response.Write " <td height='22' colspan='2' align='center'><strong>发 布 网 站 消 息</strong></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td align='right'>接收方选择：</td>"
Response.Write " <td><table><tr><td><input type='radio' name='InceptUserType' value='0'"
If UserType = 0 Then Response.Write " checked"
Response.Write "> 所有会员</td><td></td></tr>"
Response.Write "<tr><td valign='top'><input type='radio' name='InceptUserType' value='1'"
If UserType = 1 Then Response.Write " checked"
Response.Write "> 指定会员组</td><td>" & GetUserGroup("", "") & "</td></tr>"
Response.Write "<tr><td valign='top'><input type='radio' name='InceptUserType' value='2'"
If UserType = 2 Then Response.Write " checked"
Response.Write "> 指定用户名</td><td><input type='text' name='InceptUser' size='40' value='" & UserName & "'>"
Response.Write "<font color='blue'><=【<a href='#' onclick=""SelectUser();""><font color='green'>会员列表</font></a>】</font>"
Response.Write "<br>多个用户名间请用<font color='#0000FF'>英文的逗号</font>分隔</td></tr></table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td align='right'>短消息标题：</td>"
Response.Write " <td>"
Response.Write " <input type='text' name='Title' size='66' id='Title' value=''>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td align='right'>短消息内容：</td>"
Response.Write " <td>"
Response.Write " <textarea name='Content' id='Content' style='display:none'></textarea>"
Response.Write " <iframe ID='editor' src='../editor.asp?ChannelID=1&ShowType=2&tContentid=Content' frameborder='1' scrolling='no' width='480' height='280'></iframe>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td align='right'>消息发送人：</td>"
Response.Write " <td>"
Response.Write " <input type='text' name='Sender' size='30' id='Sender' value='" & SiteName & "'>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='40' colspan='2' align='center'>"
Response.Write " <input name='Action' type='hidden' id='Action' value='Save'>"
Response.Write " <input type='submit' name='Submit' value=' 发 布 '>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write "</form>"
End Sub
Sub Save()
Dim rs, sql
Dim InceptUserType, inceptUser, Sender, GroupID, Title, Content
Dim rsMessage, sqlMessage
InceptUserType = PE_CLng(Trim(Request("InceptUserType")))
Sender = Trim(Request("Sender"))
inceptUser = ReplaceBadChar(Trim(Request("InceptUser")))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -