emailmanage.asp

自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

<!--#include file=../../INC/txlconst.asp-->
<!--#include file=../../INC/txlfun.asp-->
<!--
<pre>
┌─ 自由领域ASP+WAP同学录系统 ─────────────────┐
│                                                               │
│  感谢你使用 自由领域ASP+WAP同学录系统(测试版）                │
│  使用本免费源码您必须遵守以下规定                             │
│    不得公开发表代码 不得用做商业用途，不得向其他使用者收费。  │
│                                                               │
│  使用时，请保留此段信息，谢谢配合                             │
│                                                               │
│                                       2004/12/19              │
│                                                               │
└────────────────  http://99167.jahee.com ───┘
</per>
-->
<%
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

%>