?? 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 ===============================
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -