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 =============================== %>