address_base_down.asp

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

<%
'===================================================================
'= ASP FILENAME	: /address/address_base_down.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 member 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 = "./address_func.asp" -->

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

<%
Const CONST_PAGE_FILE = "address/address_base_down.asp"
GBL_strHomeURL = "../"

Dim clsPubDB
Set clsPubDB = New classDBOprt

Call SiteHead("资料下载")
Call ExecOrShowSwitch(CONST_PAGE_FILE,"AD")
Set clsPubDB = Nothing



'=============== FUNCTION BODY BEGIN ===============================
'===================================================================
'= Sub	       : ShowDownMenu()
'= Time		   : Created At OCT,28,2003
'= Input       : None

'= Called by   :
'= Calls       :
'= Description : info down
'===================================================================
Sub ShowDownMenu()
	
	Dim clsForm

	Set clsForm = New classForm
	clsForm.ColumnScale = "40%"
	clsForm.MakeForm()
	clsForm.MakeTable "0","3","1","center","98%",GBL_cssFormTable

	clsForm.AddTr GBL_cssFormTitleTr
	clsForm.AddTitle "校友资料,数据下载",GBL_cssFormTitleTd

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "历史留言下载",GBL_cssFormTdOne,GBL_cssFormTdTwo
	strHtmlCode = MakeLink("address/address_board_down.asp","→点击下载所有历史留言(word格式)","下载所有历史留言")
	clsForm.AddLine strHtmlCode

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "成员通讯下载",GBL_cssFormTdOne,GBL_cssFormTdTwo
	strHtmlCode = MakeLink("address/address_user_down.asp","→点击下载所有成员通讯(word格式)","下载所有成员通讯")
	clsForm.AddLine strHtmlCode

	clsForm.OutPutForm()
	Set clsForm = Nothing

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