admin_maillist.asp
来自「个人网站比较简短」· ASP 代码 · 共 453 行 · 第 1/2 页
ASP
453 行
<!--#include file="Admin_Common.asp"-->
<!--#include file="../Include/PowerEasy.SendMail.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 = "MailList" '其他权限
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("邮 件 列 表 管 理", 10047)
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='70' height='30'><strong>管理导航：</strong></td>" & vbCrLf
Response.Write " <td><a href='Admin_Maillist.asp'>发送邮件列表</a> | "
Response.Write " <a href='Admin_Maillist.asp?Action=Export'>导出邮件列表</a> | "
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Action = Trim(Request("Action"))
Select Case Action
Case "Send"
Call SendMaillist
Case "Export"
Call ExportMail
Case "DoExport"
Call DoExportMail
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 reSend
Dim UserType, UserName
UserType = PE_CLng(Trim(Request("UserType")))
UserName = Trim(Request("UserName"))
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.subject.value==''){" & vbCrLf
Response.Write " alert('邮件主题不能为空！');" & vbCrLf
Response.Write " document.myform.subject.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 " editor.HtmlEdit.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if (document.myform.SendperPage.value==''){" & vbCrLf
Response.Write " alert('发送数量不能为空！');" & vbCrLf
Response.Write " document.myform.SendperPage.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " return true; " & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<br><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' Class='border'>"
Response.Write " <form name='myform' method='post' onSubmit='return CheckForm();' action='Admin_Maillist.asp'>"
Response.Write " <tr class='title'>"
Response.Write " <td height='22' class='title' colspan=2 align=center><b> 邮 件 列 表</b></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='InceptType' 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='InceptType' 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='InceptType' 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 "多个用户名间请用<font color='#0000FF'>英文的逗号</font>分隔</td></tr>"
Response.Write "<tr><td valign='top'><input type='radio' name='InceptType' value='3'"
If UserType = 3 Then Response.Write " checked"
Response.Write "> 指定会员Email</td><td><input type='text' name='InceptEmail' size='40'>"
Response.Write "多个Email间请用<font color='#0000FF'>英文的逗号</font>分隔</td></tr></table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='15%' align='right'>邮件主题：</td>"
Response.Write " <td width='85%'>"
Response.Write " <input type=text name=subject size=64>"
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 width='15%' align='right'>发件人：</td>"
Response.Write " <td width='85%'>"
Response.Write " <input type='text' name='sendername' size='64' value='" & SiteName & "'>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='15%' align='right'>发件人Email：</td>"
Response.Write " <td width='85%'>"
Response.Write " <input type='text' name='senderemail' size='64' value='" & WebmasterEmail & "'>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='15%' align='right'>每次发送数量：</td>"
Response.Write " <td width='85%'>"
Response.Write " <input type='text' name='SendperPage' size='5' value='100'>封邮件"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td align='right'>邮件优先级：</td>"
Response.Write " <td>"
Response.Write " <input type='radio' name='Priority' value='1'>"
Response.Write " 高"
Response.Write " <input type='radio' name='Priority' value='3' checked>"
Response.Write " 普通"
Response.Write " <input type='radio' name='Priority' value='5'>"
Response.Write " 低"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td colspan=2 align=center>"
Response.Write " <input name='Action' type='hidden' id='Action' value='Send'>"
Response.Write " <input name='SendCount' type='hidden' id='SendCount' value='1'>"
Response.Write " <input name='Submit' type='submit' id='Submit' value=' 发 送 ' "
Response.Write " > "
Response.Write " <input name='Reset' type='reset' id='Reset' value=' 清 除 '>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</form>"
Response.Write "</table>"
End Sub
Sub SendMaillist()
Dim sql, rs
Dim totalsend, SendperPage, sendMsg, sendCount, endCount
Dim Sendername, Senderemail, Subject, Content, Priority, InceptType, GroupID, inceptUser, InceptEmail, i, j, k
i = 0
j = 0
k = 0
sendMsg = ""
sendCount = PE_CLng(Request("SendCount"))
If sendCount < 1 Then sendCount = 1
Sendername = Trim(Request("sendername"))
Senderemail = Trim(Request("senderemail"))
Subject = Trim(Request("Subject"))
'增加邮件内容的编辑器
Content = Trim(Request("Content"))
Priority = Trim(Request("Priority"))
SendperPage = PE_CLng(Request("SendperPage"))
If Sendername = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>发件人不能为空！</li>"
End If
If Senderemail = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>发件人Email不能为空！</li>"
End If
If Subject = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>邮件主题不能为空！</li>"
End If
If Content = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>邮件内容不能为空！</li>"
End If
If Priority = "" Then
Priority = 3
End If
If FoundErr = True Then
Exit Sub
End If
InceptType = CLng(Request("inceptType"))
sql = "select UserName,Email from PE_User "
If InceptType = 0 Then
sql = sql & " where 1=1"
ElseIf InceptType = 1 Then
GroupID = Trim(Request("GroupID"))
If IsValidID(GroupID) = False Then
FoundErr = True
ErrMsg = ErrMsg & "<li>请指定会员组！</li>"
Exit Sub
End If
If InStr(GroupID, ",") > 0 Then
sql = sql & " where GroupID in (" & GroupID & ")"
Else
sql = sql & " where GroupID=" & GroupID
End If
ElseIf InceptType = 2 Then
inceptUser = Replace(ReplaceBadChar(Request("InceptUser")), ",", "','")
If inceptUser = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>请指定收信人的用户名！</li>"
Exit Sub
End If
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?