📄 mailmember.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Dim strGroupName
Dim intSelGroupID
%>
<html>
<head>
<title>群发邮件</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script language="JavaScript">
function CheckForm () {
var errorMsg = "";
if (document.frmEmailier.subject.value==""){
errorMsg += "\n\t主题 \t\t- 请输入主题";
}
if (document.frmEmailier.message.value==""){
errorMsg += "\n\t内容 \t\t- 请输入邮件内容";
}
if (errorMsg != ""){
msg = "_______________________________________________________________\n\n";
msg += "提交失败.\n";
msg += "请修改后重新提交.\n";
msg += "_______________________________________________________________\n\n";
msg += "需要修改的部分: -\n";
errorMsg += alert(msg + errorMsg + "\n\n");
return false;
}
return true;
}
</script>
<link href="includes/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"><span class="heading"><font size="5"><strong>群发邮件</strong></font></span><br>
<br />
<a href="menu.asp" target="_self">返回到管理主菜单</a><br>
<br>
<span class="text">你可以给所有的用户或者特定的用户组广播邮件</span><br>
<br />
<table width="96%" border="0" cellspacing="1" cellpadding="4" bgcolor="#000000">
<tr>
<td align="center" bgcolor="#CCCCCC" class="lgText"> 注意！</td>
</tr>
<tr>
<td bgcolor="#EFEFEF"> <p align="center" class="text">要群发邮件，请先正确配置 <a href="emailnotify.asp" target="_self">邮件设置</a>
页面</p>
<p align="center" class="lgText">请不要利用此功能发垃圾邮件</p></td>
</tr>
</table><%
If blnMassMailier = False then
%>
<br>
<br>
<br>
<span class="lgText">对不去，这项功能被禁止</span>
<%
Else
%>
<br>
</div>
<form method="post" name="frmEmailier" action="sendmail.asp" onSubmit="return CheckForm();" onReset="return confirm('Are you sure you want to clear the form?');">
<table width="560" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000" height="277">
<tr>
<td height="234"> <table width="100%" border="0" align="center" cellpadding="4" cellspacing="1">
<tr align="left" bgcolor="#CCCCCC">
<td colspan="2" class="text">*必填</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="23%" align="right" class="text">收件人*:<br>
</td>
<td width="77%" valign="top">
<select name="group">
<option value="0" selected>所有用户</option><%
strSQL = "SELECT timesgrp.grpid, timesgrp.Name FROM timesgrp ORDER BY timesgrp.grpid ASC;"
rsConn.Open strSQL, adoCon
Do while NOT rsConn.EOF
strGroupName = rsConn("Name")
intSelGroupID = CInt(rsConn("grpid"))
Response.Write (vbCrLf & " <option value=""" & intSelGroupID & """")
Response.Write(">" & strGroupName & "</option>")
rsConn.MoveNext
Loop
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" class="text">主 题*:</td>
<td valign="top">
<input name="subject" type="text" id="subject" size="30" maxlength="45"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" valign="top" class="text"><div align="right">内 容*:<br>
<br>
<span class="smText">请注意：信是以文本的格式发送的而不是HTML格式.</span> </div></td>
<td valign="top">
<textarea name="message" cols="45" rows="10" id="message"></textarea></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td colspan="2" class="text">
<input name="submit" type="submit" id="submit" value="确定">
<input type="reset" name="Reset" value="清除"></td>
</tr>
</table></td>
</tr>
</table>
</form><%
End If
%>
<br />
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -