www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > user/user_data.asp
<% '=================================================================== '= ASP FILENAME : /sms/user_data.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" --> <!-- #include file = "../main_func.asp" --> <!-- #include file = "../js/comm_func.js" --> <% Const CONST_PAGE_FILE = "/user/user_data.asp" Dim clsPubDB GBL_strHomeURL = "../" Set clsPubDB = New classDBOprt Call UserCheck() Call SiteHead("资料下载区") Call ExecOrShowSwitch(CONST_PAGE_FILE,_ "ShowClassDataMenu" &_ "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 ShowClassDataMenu() 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 "" strHtmlCode = MakeLink("./user_data.asp?action=ShowAddressDown","通讯资料","通讯资料下载") clsTable.AddTd strHtmlCode,"CSS_TD_CENTER3" strHtmlCode = MakeLink("./user_data.asp?action=ShowSbDown","某人资料","某人详细资料下载") clsTable.AddTd strHtmlCode,"CSS_TD_CENTER3" strHtmlCode = MakeLink("./user_data.asp?action=ShowBoardDown","校友留言","校友留言下载") clsTable.AddTd strHtmlCode,"CSS_TD_CENTER3" strHtmlCode = MakeLink("./user_data.asp?action=ShowAddressDown","校友相册","通讯资料下载") clsTable.AddTd strHtmlCode,"CSS_TD_CENTER3" clsTable.AddInfoTr "","TOP" clsTable.AddInfoTd "请选择你想要的资料下载","CSS_HAED_CENTER1" Response.Write "<br>" 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 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.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 =============================== %>