emailmanage.asp

同学录的设计

<!--#include file=../../INC/txlconst.asp-->
<!--#include file=../../INC/txlfun.asp-->

<%
Dim const_txl_HomeUrl,sql,i
const_txl_HomeUrl = "../../"
%>
<!--#include file=../checkadmin.asp-->
<%
OpenDatabase
IF Request.QueryString("action")="export" Then
	Call export
	Response.End()
End If
txl_SiteHead const_txlname&"- 删除用户"
call online
IF Request.QueryString("action")="export" Then
	Call export
Else
	call main
End If
CloseDatabase
SiteBottom
sub main
dim rs
set rs=conn.execute ("select studentid,email from ec order by studentid")
%>
<br><table width="720" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
	<tr>
	<td colspan="2" class="content" bgcolor="#FFFFFF"><a href="?">查看邮件列表</a>｜<a href="?action=export">导出邮件列表</a></td>
	</tr>
  <tr bgcolor="#FFFFFF"> 
    <td class="blu">用户名</td>
    <td class="blu">邮箱</td>
  </tr>
  <%While not rs.eof%>
  <tr bgcolor="#FFFFFF"> 
    <td width="154"><%=rs("studentid")%></td>
    <td width="258"><%=rs("email")%></td>
  </tr>
  <%
  	rs.movenext
  wend
  %>
</table>
<br>
<br>
<%
End Sub
%>
<%
Sub export
	Dim rs
	Response.ContentType = "text/txt" 
	Response.AddHeader "Content-Disposition", "attachment; filename=Email.txt"
	Set rs=conn.execute ("select email from ec")
	If rs.eof Then
		Response.Write("No records!")
	Else
		while not rs.eof
			Response.Write(rs(0)&Vbcrlf)
			rs.movenext
		wend
	End If
End Sub

%>