www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > user/user_data_down.asp

    <%
'===================================================================
'= ASP FILENAME	: /sms/user_data_down.asp
'= CREATED TIME : Nov,2,2003
'= LAST MODIFIED: Nov,2,2003
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 资料下载现实页面
'= Change Log    :
'===================================================================
%>
<!-- #include file = "../inc/inc_class_def.asp" -->
<!-- #include file = "../inc/inc_pub_func.asp" -->
<!-- #include file = "../db_func.asp" -->
<!-- #include file = "../class/class_db.asp" -->
<!-- #include file = "../class/class_html_form.asp" -->
<!-- #include file = "../class/class_html_table.asp" -->
<%
Const CONST_PAGE_FILE = "/user/user_data_down.asp"
Dim clsPubDB

GBL_strHomeURL = "../"
Set clsPubDB = New classDBOprt
Call UserCheck()
Call ShowAddressDown()
Set clsPubDB = Nothing




'=============== ALL FUNCTION THAT DEFINED IN THIS FILE ============
'=============== FUNCTION BODY BEGIN ===============================
'===================================================================
'= Sub         : ShowClassDataMenu()
'= Time		   : Created At Nov,19,2003
'= Input       : 
'= Output      : 
'= Called by   :
'= Calls       :
'= Description : The data of this class's downing main menu
'= Modify      :
'=               Time    Description
'===================================================================
Sub ShowAddressDown()
	
	Dim clsTable
	Dim strHtmlCode

	Set clsTable = New classTable
	clsTable.Border = "0"
	clsTable.CellPadding = "0"
	clsTable.CellSpacing = "0"
	clsTable.Width = "98%"
	clsTable.ClassType = ""
	clsTable.Align = "center"
	clsTable.MakeTable()

	clsTable.AddTitleTr ""
	clsTable.AddTitleTd "","",""
	clsTable.AddTitleTd "","",""
	clsTable.AddTitleTd "","",""
	clsTable.AddTitleTd "","",""

	clsTable.AddTr ""
	clsTable.AddTd "","CSS_TD_CENTER3"

	clsTable.AddTr ""
	clsTable.AddTd "","CSS_TD_CENTER3"

	clsTable.AddTr ""
	clsTable.AddTd "","CSS_TD_CENTER3"
	
	response.ContentType = "application/msword" 
	clsTable.OutPutTable()
	
	Set clsTable = Nothing

End Sub
'================== End of Sub ShowClassDataMenu() =================
'===================================================================
'= Sub         : ShowAddressDown()
'= Time		   : Created At Nov,19,2003
'= Input       : 
'= Output      : 
'= Called by   :
'= Calls       :
'= Description : The data of this class's downing main menu
'= Modify      :
'=               Time    Description
'===================================================================
Sub ShowAddressdDown()
	
	Dim clsTable
	Dim strHtmlCode

	Set clsTable = New classTable
	clsTable.Border = "0"
	clsTable.CellPadding = "0"
	clsTable.CellSpacing = "0"
	clsTable.Width = "98%"
	clsTable.ClassType = ""
	clsTable.Align = "center"
	clsTable.MakeTable()

	clsTable.AddTitleTr ""
	clsTable.AddTitleTd "","",""
	clsTable.AddTitleTd "","",""

	clsTable.AddTr ""
	clsTable.AddTd "本班","CSS_TD_CENTER3"
	clsTable.AddTd "本班","CSS_TD_CENTER3"

	clsTable.AddTr ""
	strHtmlCode = MakeLink("./user_data_down.asp","通讯资料","通讯资料下载")
	clsTable.AddTd strHtmlCode,"CSS_TD_CENTER3"
	strHtmlCode = MakeLink("./user_data_down.asp?action=DataAddressDown","通讯资料","通讯资料下载")
	clsTable.AddTd strHtmlCode,"CSS_TD_CENTER3"

	Response.Write "<br>"
	clsTable.OutPutTable()
	Set clsTable = Nothing

End Sub
'================= FUNCTION BODY END ===============================
%>