admin_foxmail.asp

1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛 小巧而实用的论坛,支持UBB标签,快速回复,帖子搜索,灵活的将帖子置顶,设置精华 3] 校友相册 相片上传[方便上传

<%
'===================================================================
'= ASP FILENAME	: /admin/admin_foxmail.asp
'= CREATED TIME : Feb,08,2004
'= LAST MODIFIED: Feb,08,2004
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : class base list
'= Change Log:
'===================================================================
%>

<!-- #include file = "../inc/inc_class_def.asp" -->

<!-- #include file = "../inc/inc_db_func.asp" -->
<!-- #include file = "../class/class_db.asp" -->

<!-- #include file = "../inc/inc_pub_func.asp" -->

<!-- #include file = "../class/class_html_form.asp" -->
<!-- #include file = "../class/class_html_table.asp" -->
<!-- #include file = "../main_func.asp" -->

<!-- #include file = "./admin_func.asp" -->

<!-- #include file = "../js/comm_func.js" -->

<%
Const CONST_PAGE_FILE = "admin/admin_foxmail.asp"
GBL_strHomeURL = "../"

Call AdminCheckExec()

Dim clsPubDB
Set clsPubDB = New classDBOprt

Call SiteHead("导出邮件地址")

Call CheckPostExist("GetUserMail")

Call ExeSysAdminQst()

Set clsPubDB = Nothing

%>
<%
'=============== FUNCTION BODY BEGIN ===============================
'===================================================================
'= Sub		    : GetUserMail()
'= Time		    : Created At Nov,27,2003
'= Input        : None
'= Output       : None
'= Called by    : 
'= Calls        : None
'= Table        : Query CLASS_USER
'= Description  : get user mail address
'===================================================================
Sub GetUserMail()
	
	Dim i
	Dim strTmp

	strTmp = ""

	clsPubDB.Clear()
	clsPubDB.AllSQL = "SELECT USER_EMAIL,USER_REALNAME FROM CLASS_USER"
	clsPubDB.SQLRSExecute()
	Call ResultExecute(clsPubDB.intErrNum,"get user email","ES_ERR")
	For i = 1 To clsPubDB.intRSNum

		strTmp = strTmp & chr(13) & clsPubDB.objPubRS(0) & "  " & clsPubDB.objPubRS(1)
		clsPubDB.objPubRS.MoveNext
	Next

	If Left(strTmp,1) = chr(13) Then
		strTmp = Right(strTmp,Len(strTmp) - 1)
	End If

	Response.Write "&nbsp;&nbsp;<textarea cols=85 rows=30>" & strTmp & "</textarea>"

End Sub
'================ End of Sub GetUserMail() =========================
'=============== FUNCTION BODY END =================================
%>