📄 maillist.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>ID80推广资源网</title>
<style>
td{font-size:9pt;line-height:160%}
body{font-size:9pt;line-height:160%}
a:link { color: #0033CC; text-decoration: none }
a:visited { color: #0033CC; text-decoration: none }
a:active { color: #FF0000; text-decoration: none }
a:hover { color: #000000; text-decoration: underline}
</style>
</head>
<body topmargin="1" leftmargin="1">
<%Admin="UserMailList"%>
<!--#include file="check.asp"-->
<form action="maillist.asp?type=show" method=post name="frmAnnounce">
<div align="center">
<center>
<table border="0" cellspacing="1" bgcolor="#e6e6e6" cellpadding="2">
<tr>
<td width="600" bgcolor="#bbaadd" colspan="2"><font color="#FFFFFF"><b> 导出邮件列表</b></font></td>
</tr>
<tr>
<td width="77" bgcolor="#FFFFFF" nowrap>
用户类别：</td>
<td width="512" bgcolor="#FFFFFF">
<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" bgcolor="#FFFFFF" valign="top" nowrap>
邮件列表：</td>
<td width="512" bgcolor="#FFFFFF">
<textarea cols=56 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" bgcolor="#FFFFFF" nowrap>
导出数量：</td>
<td width="512" bgcolor="#FFFFFF">
<font color="#FF0000"><%=i%></font></td>
</tr>
<%end if%>
</table>
</center>
</div>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -