www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > result/success.asp

    <%
'===================================================================
'= ASP FILENAME	: /success.asp
'= CREATED TIME : OCT,22,2003
'= LAST MODIFIED: OCT,22,2003
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 成功信息提示页面
'===================================================================
%>
<!-- #include file = "../inc/customer/include_customer_action_view.asp" -->
<!-- #include file = "../main_func.asp" -->
<%
'========================================================
'==   Action参数设置
'========================================================
'== 页面名
Const CONST_PAGE_FILE	= "result/success.asp"

'== 页面标题/功能
Const CONST_PAGE_TITLE	= "成功提示"

'== 功能函数名字空间
Const CONST_ACTION_FUNC	= "ShowSucc"

'== 相对根目录路径 
GBL_strHomeURL			= "../"

'页面应用构造
Call ActionBuild()

'== 请求校验与过滤
Call ActionFilter(CONST_PAGE_FILE,CONST_ACTION_FUNC)

'== 页面析构
Call ActionOver()
%>

<%
'===================================================================
'= Function    : LoadPageTpl()
'= Time		   : Created At 2006-5-4
'= Description : 加载页面模块
'===================================================================
Function LoadPageTpl()
%>
	<!-- #include file = "../template_c/sub_page.html.asp" -->
<%
End Function

 '=============== FUNCTION BODY BEGIN ===============================
 '===================================================================
 '= Sub         : ShowSucc()
 '= Time	    : Created At OCT,22,2003
 '= Input       : 成功号(intSuccId),附加信息(strAddInfo)
 
 '= Calls		:
 '= Called by	:
 '= Description : 成功分类(成功号和成功的中文信息)
 '===================================================================
 Sub ShowSucc()

	Dim strSuccStr
	Dim intRefreshTime
	Dim intSuccId,strSuccUrl
	Dim strColumnURL,GBL_strImgPath


	'== 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
	
	GBL_strImgPath = GBL_strHomeUrl & "images/"

	%>
	<table width="100%" >
		<tr align="center" >
			<td width="40%" align="right">
				<% =MakeImg(GBL_strImgDir & "home_succ.gif","SUCC_ID：" & intSuccId) %>
			</td>
			<td align="center" width="60%">
				<table align="center" width="100%">
					<tr align=center>
						<td colspan=2>
							<% =strSuccStr %>
						</td>
						<br>
					</tr>
					<tr align=center>
						<td><br>
						</td>
						<br>
					</tr>
					<tr>
						<td width="30%"></td>
						<td>
							◇ <a href="javascript:history.go(-1)" title="返回刚才页面">返回</a>
						</td>
					</tr>
					<tr>
						<td></td>
						<td>
							◇ <a href="<% =GBL_strHomeURL %>" title="回首页">回首页</a>
						</td>
					</tr>
				</table>
	 		</td>
	 	</tr>
	 </table>
	 <br>
	 <meta http-equiv=refresh content="<% =GBL_intRefreshTime %>;URL=<% =strColumnURL %>">
	 <%

 End Sub
'=============== End of Function ShowSucc() ===========================
'=============== FUNCTION BODY END ====================================
%>