admin_emaillist.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<% 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>
	<TD width="70%" align="left" valign="top">
<TABLE border="0" width="85%" align=center>
  <TR>
    <TD width="33%" align="left" nowrap><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><a href="default.asp"><img src="<% =strImageURL %>icon_folder_open.gif" alt="返回论坛首页" border="0">&nbsp;<% =strForumTitle %></a>
<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open.gif" border="0">&nbsp;<A href="admin_home.asp">论坛管理中心</A>
<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;<A href="admin_emaillist.asp">邮件列表设置</A>
</FONT></TD>
  </TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>

<%
if Request.Form("MSG") = "kerrywrotethis" then
	Response.Redirect "admin_emailmanager.asp"
end if

If Request.QueryString("whichpage") = "" or Request.QueryString("whichpage") <= 0 then
	mypage = 1
Else
	mypage = CINT(Request.QueryString("whichpage"))
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
%>
<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="<% Response.Write strTableWidth %>" align="center" cellspacing="0" cellpadding="0">
  <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 %>"><B>选择</B></font></td>
  <td bgColor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>会员名</B></font></td>
  <td bgColor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>邮件地址</B></font></td>
  <td bgColor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>发表</B></font></td>
  <td bgColor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>等级</B></font></td>
  <td bgColor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>注册日期</B></font></td>
  <td bgColor="<% =strHeadCellColor %>">　</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>
<% else %>
<%
		RS.movefirst
		RS.PageSize = strPageSize
		RS.CacheSize = RS.PageSize
		maxPages = cint(RS.PageCount)
		maxRecs = cint(RS.PageSize)
		If myPage > RS.PageCount Then
			myPage = RS.PageCount
		end if
		RS.AbsolutePage = myPage

		StartPageNum=1
		do while StartPageNum+10<=myPage
			StartPageNum = StartPageNum+10
		Loop
		EndPageNum = StartPageNum+9
		If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount
rec = 1
do until rs.EOF or rec = (strPageSize + 1)
	MyRank = rs("M_LEVEL")
	if MyRank = 1 then
		MyRank = "一般会员"
	elseif MyRank = 2 then
		MyRank = "版主"
	elseif MyRank = 3 then
		MyRank = "管理员"
	end if
%>
<%	If rec mod 2=0 Then %>
		<tr bgcolor="<%=strAltForumCellColor%>">
<%	Else %>
		<tr bgcolor="<%=strForumCellColor%>">
<%	End If %>