admin_emaillist.asp

一个不错的ASP论坛源码

<% server.scripttimeout = 6000 %>
<!--#INCLUDE FILE="config.asp" -->
<% if Session(strCookieURL & "Approval") = "15916941253" then %>
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE file="inc_top.asp" -->
<script language="JavaScript">
<!-- hide from JavaScript-challenged browsers
function selectAll(formObj, isInverse) 
{ 
with (formObj) 
{ 
for (var i=0;i < length;i++) 
{ 
fldObj = elements[i]; 
if(isInverse) 
{ 
if (fldObj.name != 'inverse') 
{ 
if (fldObj.name == 'selectall') 
fldObj.checked = false; 
else 
fldObj.checked = (fldObj.checked) ? false : true; 
} 
else fldObj.checked = true; 
} 
else 
{ 
fldObj.checked = true; 
if (fldObj.name == 'inverse') fldObj.checked = false; 
} 
} 
} 
}
// done hiding --> 
</script>
<%
if request.form("MSG") = "kerrywrotethis" then
response.redirect "admin_emailmanager.asp"
end if


PageName = request.form("pagename")
if PageName = "" then
My_Sort = request.form("sortme")
My_Order = request.form("order")
My_Order2 = request.form("order2")

if My_Sort = "" then
Sort_Name = "所有会员"
elseif My_Sort = "1" then
Sort_Name = "只有一般会员" 
elseif My_Sort = "2" then
Sort_Name = "只有版主"
elseif My_Sort = "3" then
Sort_Name = "只有管理员"
elseif My_Sort = "4" then
Sort_Name = "半年未使用者"
My_Last = DateToStr(DateAdd("m", -6, now()))
elseif My_Sort = "5" then
Sort_Name = "一年未使用者"
My_Last = DateToStr(DateAdd("yyyy", -1, now()))
elseif My_Sort = "6" then
Sort_Name = "无发表文章者"
end if

if My_Order = "" then
Order_Name = "按会员名"
elseif  My_Order ="2" then
Order_Name = "按等级"
elseif  My_Order ="3" then
Order_Name = "按文章数" 
elseif  My_Order ="4" then
Order_Name = "按注册日期"
end if

if My_Order2 = "" then
Order_By = "Desc"
elseif My_Order2 = "1" then
Order_By = "Asc"
end if
%>
<table border="0" width="100%">
  <tr>
 <td width="33%" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
 <img src="images/icon_folder_open.gif" height=15 width=15 border="0">&nbsp;<a href="default.asp">返回论坛首页</a>&nbsp;<img src="images/icon_folder_open.gif" height=15 width=15 border="0">&nbsp;<a href="admin_home.asp">论坛管理中心</a>&nbsp;<img src="images/icon_folder_open_topic.gif" height=15 width=15 border="0">&nbsp;邮件列表设置<br>
 </font></td>
  </tr>
</table>
<center>
<table border="0" cellpadding="10">
  <tr><form method="post" action="admin_emaillist.asp">
 <td nowrap>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">选择发送群组：</font><BR>
 <font face="宋体, Arial, Helvetica" size="2"> 
 <select name="sortme" size="1">
  <option value="<%=My_Sort%>" SELECTED>&nbsp;<% =Sort_Name%></option>
  <option value="">&nbsp;所有会员</option>
  <option value="3">&nbsp;只有管理员</option>
  <option value="2">&nbsp;只有版主</option>
  <option value="1">&nbsp;只有一般会员</option>
  <option value="4">&nbsp;半年未使用者</option>
  <option value="5">&nbsp;一年未使用者</option>
  <option value="6">&nbsp;无发表文章者</option>
  </select>
  </font>
 </td><td>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">排序方式：</font><BR>
 <font face="宋体, Arial, Helvetica" size="2"> 
 <select name="order" size="1">
  <option value="<%=My_Order%>" SELECTED>&nbsp;<%=Order_Name%></option>
  <option value="">&nbsp;按会员名</option>
  <option value="2">&nbsp;按等级</option>
  <option value="3">&nbsp;按文章数</option>
  <option value="4">&nbsp;按注册日期</option>
</select>
 </font>
 </td>
<td>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">排序方法：</font><BR>
 <font face="宋体体, Arial, Helvetica" size="2"> 
 <select name="order2" size="1">
  <option value="<%=My_Order2%>" SELECTED>&nbsp;<%=Order_By%></option>
  <option value="">&nbsp;由大到小</option>
  <option value="1">&nbsp;由小到大</option>
</select>
 <input type="submit" value="显示">
 </font>
 </td></form>
</tr><form action="admin_emaillist.asp" method="post"></table>



<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">选择信件内容：

<%         '------------------------------------
strSql = "SELECT * FROM " &strMemberTablePrefix & "SPAM WHERE ARCHIVE = '0'"
set rsSP = Server.CreateObject("ADODB.Recordset")
rsSP.open  strSql, my_Conn, 3
%>
<% if rsSP.EOF or rsSP.BOF then %>
建立新讯息
<% else %>
<select name="MSG" size="1">
  <option value="" SELECTED>&nbsp;- 建立新讯息- </option>
<%
do until rsSP.EOF 
%>

  <option value="<% =rsSP("ID") %>">&nbsp;<% =Server.HTMLEncode(rsSP("Subject")) %></option>
  
<%
rsSP.MoveNext
%>
<%loop %>
</select>
<% end if 
set rsSP = nothing
%>
 &nbsp;&nbsp; 或 <a href="admin_emailmanager.asp">进入讯息管理中心</a></font>
<table border="0" width="100%" cellspacing="0" cellpadding="0" align="center">
  <tr>
  <input type="hidden" name="pagename" value="compose">
  <td align=center>
  <input type="button" value="选择本页全部会员" onClick="selectAll(this.form,1)">&nbsp;
<input type="submit" name="action" value="将讯息寄给所选择的会员">
&nbsp;<input type="submit" name="action" value="将讯息寄给所有会员">&nbsp;<input type="reset" name="Reset" value="全部清除">
<BR><BR></td></tr>
 <td bgcolor="<% =strTableBorderColor %>">
 <table border="0" width="100%" cellspacing="1" cellpadding="4">
<tr align=center>
<td bgColor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">选择</font></td>
  <td bgColor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">会员名</font></td>
  <td bgColor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">邮件地址</font></td>
  <td bgColor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">发表</font></td>
  <td bgColor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">等级</font></td>  
  <td bgColor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">注册日期</font></td>
  <td bgColor="<% =strHeadCellColor %>">&nbsp;</td>  
</tr>
<%
strSql = "SELECT * FROM " &strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_STATUS = " & 1
strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_EMAIL <> " & "''"

if My_Sort > "" then
if My_Sort = "1" then
  strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_LEVEL = " & 1
elseif My_Sort = "2" then
 strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_LEVEL = " & 2
elseif My_Sort = "3" then 
 strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_LEVEL = " & 3
elseif My_Sort = "6" then
  strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_POSTS = " & 0  
elseif My_Sort = "4" or "5" then 
 strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_LASTPOSTDATE < '" & My_Last & "'"
 end if
 end if
 
if My_Order = "2" then
 strSql = strSql & " ORDER BY " & strMemberTablePrefix & "MEMBERS.M_LEVEL " & Order_By
elseif My_Order = "3" then 
 strSql = strSql & " ORDER BY " & strMemberTablePrefix & "MEMBERS.M_POSTS " & Order_By
elseif My_Order = "4" then 
 strSql = strSql & " ORDER BY " & strMemberTablePrefix & "MEMBERS.M_DATE " & Order_By
else
 strSql = strSql & " ORDER BY " & strMemberTablePrefix & "MEMBERS.M_NAME " & Order_By
 end if
 
set rs = Server.CreateObject("ADODB.Recordset")
rs.cachesize=20
rs.open  strSql, my_Conn, 3
%>
<% if rs.EOF or rs.BOF then %>
<tr>
  <td bgcolor="<% =strForumCellColor %>" colspan="7"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">目前没有任何会员</font></td>
</tr>