www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/maillist.asp
<!--#include file="top.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>共享世纪新闻文章管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
<meta copy="WWW.2KY.CN 共享世纪">
</head>
<body>
<%Admin="UserMailList"%>
<!--#include file="check.asp"-->
<form action="maillist.asp?type=show" method=post name="frmAnnounce">
<div align="center">
<center>
<table width="380" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<th width="594" bgcolor="#99CCFF" colspan="2">
<p><b>导出邮件列表</b></th>
</tr>
<tr>
<td width="77" class=forumrow nowrap>
用户类别：</td>
<td width="512" class=forumrow>
<select size="1" name="dj">
<option value="0"<%if request("dj")="0" then%> selected<%end if%>>①:普通会员</option>
<option value="1"<%if request("dj")="1" then%> selected<%end if%>>②:高级会员</option>
<option value="2"<%if request("dj")="2" then%> selected<%end if%>>③:管 理 员</option>
<option value=""<%if request("dj")="" then%> selected<%end if%>>所有用户</option>
</select> <input type=submit value="导出" name=Submit></td>
</tr>
<%if request("type")="show" then%>
<tr>
<td width="77" class=forumrow valign="top" nowrap>
邮件列表：</td>
<td width="512" class=forumrow>
<textarea cols=46 rows=24 name="body"><!--#include file="mdb_path_user.asp"--><%
Set rs= Server.CreateObject("ADODB.Recordset")
if request("dj")<>"" then
ddd=" and dj="&request("dj")&""
end if
rs.open "select email from UserInfo where email<>''"&ddd&"",conn,1,1
if rs.eof and rs.bof then
i=0
else
do while not rs.eof%><%=rs("email")&chr(13)%><%
i=i+1
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%></textarea></td>
</tr>
<tr>
<td width="77" class=forumrow nowrap>
导出数量：</td>
<td width="512" class=forumrow>
<font color="#FF0000"><%=i%></font></td>
</tr>
<%end if%>
</table>
</center>
</div>
</form>
</body>
</html>