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