www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > result/admin_success.asp
<% '=================================================================== '= ASP FILENAME : /result/success.asp '= CREATED TIME : 2006-5-4 '= LAST MODIFIED: 2006-5-4 '= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com '= DESCRIPTION : 成功提示 '=================================================================== %> <!-- #include file = "../inc/admin/include_admin_action_view.asp" --> <!-- #include file = "../main_func.asp" --> <% '======================================================== '== Action参数设置 '======================================================== '== 页面名 Const CONST_PAGE_FILE = "result/success.asp" '== 页面标题/功能 Const CONST_PAGE_TITLE = "成功提示" '== 功能函数名字空间 Const CONST_ACTION_FUNC = "ShowSuccCtl" '== 相对根目录路径 GBL_strHomeURL = "../" '页面应用构造 Call ActionBuild() '== 在模板中引用的标签变量 Dim TAG_strSuccStr Dim TAG_strColumnURL '== 请求校验与过滤 Call ActionFilter(CONST_PAGE_FILE,CONST_ACTION_FUNC) 'html页面包含 %> <!-- #include file = "../template_a/page_admin_success.html.asp" --> <% '页面应用析构 Call ActionOver() %> <% '=============== FUNCTION BODY BEGIN =============================== '=================================================================== '= Sub : ShowSuccCtl() '= Time : Created At 2006-5-4 '= Input : '= Description : 成功提示 '=================================================================== Sub ShowSuccCtl() Dim strSuccStr Dim intRefreshTime Dim intSuccId Dim strColumnURL,strSuccUrl '== refresh time intRefreshTime = GBL_intRefreshTime strSuccStr = Trim(Request.QueryString("strAddInfo")) intSuccId = Trim(Request.QueryString("intSuccId")) strSuccUrl = Trim(Session(GBL_strCookieURL & "SEN_succUrl")) If strSuccUrl <> "" Then strColumnURL = GBL_strHomeUrl & strSuccUrl Session(GBL_strCookieURL & "SEN_succUrl") = "" End If TAG_strSuccStr = strSuccStr TAG_strColumnURL = strColumnURL End Sub '=============== End of Function ShowSucc() =========================== '=============== FUNCTION BODY END ==================================== %>